Boa noite,
Tenho uma planilha Plan1 onde digito dados de A2 até C100, podendo ser uma ou mais linhas por vez.
A partir de um botão de macro devo transferir estes dados para Plan2 de A2 até C100, e apagar os dados em Plan1.
Condição : Caso em Plan2 ja tenha dados de A2 até C5, os novos dados de Plan1 devem entrar em Plan2
a partir da proxima linha vazia (A6).
Grato
Kurt
Postou tópico cruzado.
http://forum.clubedohardware.com.br/top ... vos-dados/
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Ja tentou usar a pesquisa do forum? temos muitos posts iguais a esse.
(Na minha asinatura tem o link para a pesquisa)
Abs
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Sim, tambem postei no forum clubedohardward, por não ter indicações de serem um só. Também postei em varios outros
pois acredito que desta forma a solução possa ser mais rápida.
Agradeço as respostas e vou pesquizar nos posts se encontro algo parecido.
kurtmei,
Não há problema em postar a mesma dúvida em diferentes foruns.
Mas é bom sempre avisar que postou em outros lugars, e mandar o link.
Isso porque o pessoal ajuda gratuitamente, quando tem tempo livre. Então, vc pode fazer as pessoas responderem algo que já está resolvido (sem que elas saibam disso).
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Pela tua descrição, poderia ser assim:
Sub completar_GT()
Dim UL(1 To 2) As Long
UL(1) = Plan1.Cells(Rows.Count, "A").End(xlUp).Row
UL(2) = Plan2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Plan1.Range("A2:C" & UL(1)).Copy Plan2.Cells(UL(2), "A")
Plan1.Range("A2:C" & UL(1)).Clear
End Sub
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Obrigado amigo, funcionou como pedido.
Posso pedir uma modificação?
Como alterar para os dados serem transferidos com colar apenas VALORES.
E não apagar os dados de entrada.
grato
Tente assim:
Sub completar_GT()
Dim UL(1 To 2) As Long
UL(1) = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row
UL(2) = Sheets("Plan2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Plan1").Range("A2:C" & UL(1)).Copy
Sheets("Plan2").Cells(UL(2), "A").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Obrigado ,ajudou muito.