Excel Macro não lê todas o código

[crownics]

Pessoal, poderiam me ajudar?

Citação

Sub Teste()
Dim P As String, UltimaLinha As String, Lin As String, i As Integer

    P = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    UltimaLinha = Sheets("Plano de Produção").Cells(Rows.Count, "A").End(xlUp).Row
    Lin = P
    For i = 16 To UltimaLinha
        If Sheets("Plano de Produção").Cells(i, 2) = "PROD" Then
        Sheets("Planilha1").Cells(Lin, 1) = Sheets("Plano de Produção").Cells(i, 3)

        Lin = Lin + 1
        End If
    Next
    
End Sub
 

Coloquei este código para fazer cópiar o valor da coluna C, para todas as linhas cuja a coluna B tenha escrito a palavra "PROD", porém na hora de executar o comando IF, o mesmo pula para o final do macro. 

 

Sabem me dizer o que fiz de errado?

[Midori]

Com a planilha vai ficar mais fácil ajudar, mas parece que está pulando o For.

 

Teste o valor da variável UltimaLinha, se for menor que 16 vai pular o loop.

[crownics]

@Midori

31 minutos atrás, Midori disse:

Com a planilha vai ficar mais fácil ajudar, mas parece que está pulando o For.

 

Teste o valor da variável UltimaLinha, se for menor que 16 vai pular o loop.

Testei aqui e deu certo. Deixei em anexo a planilha modelo. 

Nova Pasta Compactada.zip

[AfonsoMira]

Boas experimente desta forma.
 

Sub Teste()
Dim P As String, UltimaLinha As String, Lin As String, i As Integer

    P = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row
    
    UltimaLinha = Sheets("Plano de Produção").Cells(Rows.Count, "B").End(xlUp).Row
    Lin = P
    For i = 16 To UltimaLinha
        If Sheets("Plano de Produção").Cells(i, 2) = "PROD" Then
        Sheets("Planilha1").Cells(Lin, 1) = Sheets("Plano de Produção").Cells(i, 3)

        Lin = Lin + 1
        End If
    Next
    
End Sub

 

Penso que o erro esteja na parte em que atribui o valor a varíavle Ultimalinha, pois tinha na coluna A e troquei para a B, pois na planilha que enviou, na coluna A não tem informação. Fazendo com que assim saltase o Loop.

Espero ter ajudado

[crownics]

@AfonsoMira

 

Deu certo! Nem tinha notado que coloquei "A" ali, rs

 

Obrigado