Ir para o conteúdo
JTualufo

Gravacao de dados nas planilhas

Mensagens Recomendadas

JTualufo    0
JTualufo

Boas, tenho dados que sao gravados nas celulas do exel a partir de um botao num formulario vba, sempre que efectuo a gravacao os dados anteriores que se encontravam nessas celulas sao substituidos pelos novos, o codigo e o seguinte:

" Exemplo

dim ws as worksheet

dim i as long

set ws = worksheets("sheet1")

i = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

ws.Cells(i, 5).Value = Me.txtNumItem

no entanto, eu queria que ele nao apagasse e colocasse o valor da gravacao a seguir na linha a seguir, mas ele sobrepoe os valores nas mesmas celulas, tentei colocar contadores para incrementar mas continua na mesma.... peco ajuda mais uma vez, amigos  :hmm:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
joseA    0
joseA

Copie/cole no lugar do seu procedimento:

Dim ws As Worksheet
Dim i As Integer
Set ws = Worksheets("sheet1")
  If MsgBox("Confirma entrada de dados: " & Me.txtNumItem.Value & " ?", vbYesNo + vbQuestion, "Entrada de Dados") = vbNo Then
   Exit Sub
  End If

i = ws.Range("E65536").End(xlUp).Offset(1, 0).Row
ws.Range("E" & i).Value = Me.txtNumItem

    MsgBox "Entrada de dados realizada com sucesso !!!", 64, "Entrada de Dados"

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade