Excel Excel VBA - Copiando e colando códigos em Loop

Ander_Marques · 14 de outubro de 2020

Bom dia pessoal! Tudo bom?

Preciso da ajuda dos universitários, por favor.

Bom, sou iniciante em VBA e estou no meio de uma demanda, mas não consigo sair do lugar, o código que preciso é relativamente simples, mas comigo ainda não deu certo.

Preciso realizar os seguintes passos:

Coluna A = Códigos (onde eu tenho vários códigos um após o outro)
Coluna F, célula F3 = Onde eu colo o código principal que vou trabalhar

Existe um intervalo em outra aba que é calculado conforme o código colado na célula F3

Após colar, eu calculo a planilha e chamo uma macro para exportar um PDF do intervalo que foi calculado

Após isso, volto pra coluna A copio o código seguinte e faço tudo novamente... Até os códigos acabarem.

Eu vou anexar um excel de exemplo, e peço por favor, a ajuda de vocês.

A grande questão é fazer essa macro rodar de forma "leve" cumprindo passo a passo...

Já cheguei perto, mas sempre trava...

Desde já eu agradeço.

Exemplo.xlsx

Muca Costa · 14 de outubro de 2020

Veja se ajuda:

Os eventos abaixo objetivam percorrer os códigos da coluna A informando, automaticamente, na célula F3 o item selecionado na coluna A. Basta você incluir sua macro de cálculos, exportação para PDF, etc..

Evento de Planilha:

Click lado direito na Aba Base_Códigos > Exibir código e inclua o evento abaixo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Range("F3") = Target.Offset(, 0).Value
End Sub

Em um módulo:

Sub PercorreColunaA()
Dim i As Long
Dim iUltimaLinha As Long
Dim iCol As Long
    
    Planilha1.Range("F3").Select
    iUltimaLinha = Planilha1.Cells(Rows.Count, "A").End(xlUp).Row
    iCol = 1    'Informe a coluna que será verificada, ou seja, a coluna A
     For i = 3 To iUltimaLinha
        If Cells(i, iCol) <> "" Then
            Cells(i, iCol).Select
            'Aqui Sua macro
        End If
    Next i
    
    Planilha1.Range("F3").Select
    MsgBox "Filtro finalizado", vbInformation, "© Muca Sistemas - 2020"
End Sub