Excel Copiar Colunas com valores específicos

[crownics]

Amigos, boa tarde!

 

Preciso de uma ajuda. Preciso de um macro onde eu consulte em uma coluna específica todas as linhas com valores "Em trânsito" e copie os valores de outra coluna respectivo a estas linhas, e cole em outra planilha. Poderiam me ajudar? 

 

É bem simples. No caso cima, é só copiar a informação da "NF" para a linha A2 da planilha "Cópia". Caso haja mais linhas com status em trânsito, todas sejam copiadas, e não somente a primeira linha. 

[Midori]

@crownics  Incrementando as variáveis das linhas em um loop você pode pegar e copiar esses registros, p.ex

 

...
If Cells(I, 3) = "Em trânsito" Then
    Sheets("Cópia").Cells(C, 1) = Cells(I, 1)
    C = C + 1
End If
I = I + 1
...

 

[crownics]

5 minutos atrás, Midori disse:

If Cells(I, 3) = "Em trânsito" Then Sheets("Cópia").Cells(C, 1) = Cells(I, 1) C = C + 1 End If I = I + 1

[Midori]

@crownics Deu erro porque você não atribuiu nenhum valor a variável.

[crownics]

@Midori não entendo muito de vba ainda. Onde eu atribuo o valor?

[Midori]

Sub Macro()
    Dim I   As Integer
    Dim C   As Integer
    
    I = 2
    C = 2
        
    Do While Cells(I, 3) <> ""
        If Cells(I, 3) = "Em trânsito" Then
            Sheets("Cópia").Cells(C, 1) = Cells(I, 1)
            C = C + 1
        End If
        I = I + 1
    Loop
End Sub

 

[crownics]

@Midori O que seria este parâmetro I e C?

[Midori]

@crownics São variáveis que usei para as linhas de Cells

[crownics]

@Midori

4 horas atrás, Midori disse:

Do While Cells(I, 3) <> ""

É refente a coluna que eu quero copiar certo?

 

Obrigado