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

602 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/03/2013 5:33 pm