• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

JTualufo

Gravacao de dados nas planilhas

7 mensagens neste tópico

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que ver se essa celula se encontra vazia ou não. Se encontrar ocupado ele vai acrescentar +1.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não entendí. Voce quer lançar valores na proxima linha em branco ou somar o novo valor lançado ao já existente na célula?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado mano, es o VB em pessoa!!! ta funcionar e o programa esta quase a terminar...  aquele abraxo  :(

0

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