Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão completar tab...
 
Notifications
Clear all

Botão completar tabela com novos dados

 
2024 - VBA & Macros
Post Recente por kurtmei 10 anos atrás
9 Posts
3 Usuários
0 Reactions
1,577 Visualizações
RSS
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

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

 
Postado : 15/10/2014 4:38 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 15/10/2014 4:58 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 15/10/2014 5:01 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

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.

 
Postado : 15/10/2014 6:49 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 15/10/2014 7:14 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 15/10/2014 8:50 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

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

 
Postado : 17/10/2014 5:27 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 20/10/2014 4:03 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

Obrigado ,ajudou muito.

 
Postado : 20/10/2014 7:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico