leandrotn

Prezado Rogério, Aí vai o código novamente e a explicação. For i = 1 To 90 If Cells(i, 4) = Cells(1, 5) Then 'aqui compara o valor das células da coluna 4 com o valor da célula E1 Cells(1, 6).Value = Cells(i, 4).Rows 'Aqui é atribuido a F1 o valor da linha em que o valor aparece pela última vez. End If Next Se puder explique melhor o que deseja. ^_^ Abços, Leandro

Prezado Rogério, Verifique se esse código atende ao problema. Sub linha() For i = 1 To 90 If Cells(i, 4) = Cells(1, 5) Then Cells(1, 6).Value = Cells(i, 4).Rows End If Next End Sub Abraços Leandro