Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para copiar d...
 
Notifications
Clear all

Macro para copiar dados especificos no Excel

 
2024 - VBA & Macros
Post Recente por moodratx 12 anos atrás
3 Posts
2 Usuários
0 Reactions
594 Visualizações
RSS
 moodratx
(@moodratx)
Posts: 2
New Member
Topic starter
 

Olá todos,
Estou começando hoje no forum, e pelas respostas vi que tem muita coisa boa que posso aprender com vocês. Não sou nenhum expert em excel, e tenho uma dúvida na qual gostaria que me ajudassem.

Tenho uma planilha excel com 7 colunas ( A,B,C,D,E,F,G ), sendo que na coluna G tenho status de transacoes 102, 107 e 110. O que preciso saber é de alguma macro que toda vez que estas transacoes cheguem a status 110 elas copiem toda a linha da plan1, delete essa linha da plan1 e cole esses dados na plan2.

Na verdade nao sei se é possível, por que até agora eu vi só uma forma de excluir a linha, sem copiar e colar na plan2. Em anexo envio o arquivo para ficar mais fácil a compreensao.

Obrigado

Leia as regras, os arquivos devem ser compactados!!

 
Postado : 20/03/2013 5:11 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Talvez isso o ajude..

Sub TesteAleVBA()
    Dim rng As Range
     
    With Sheets("Plan1")
        .AutoFilterMode = False
        .Range("A2").AutoFilter field:=7, Criteria1:=110
        Set rng = .AutoFilter.Range
        Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)
        rng.Copy Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp)(2)
        rng.EntireRow.Delete
        'MsgBox rng.Rows.Count & " Linhas Deletadas"
        .AutoFilterMode = False
    End With
     
End Sub

Att

 
Postado : 20/03/2013 5:33 pm
 moodratx
(@moodratx)
Posts: 2
New Member
Topic starter
 

Alexandre,

Obrigado era isso mesmo que precisava deu certinho.

 
Postado : 21/03/2013 8:36 am
Forum Jump:
  Tópico Anterior
Próximo Tópico