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,584 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

(@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