Recuperar o nº da última linha da coluna D

[RogerioFernandes]

Pessoal estou precisando recuperar o nº da última linha da coluna D cujo valor é igual à célula E1 o resultado deverá ser inserido na célula F1.

EX Valor da celula E1 = 4

Resultado da célula F1 = 10 ( ou seja o último valor encontrado esta na linha 10 )

Coluna D

Linha1 4

Linha2 3

Linha3 6

Linha4 7

Linha5 8

Linha6 2

Linha7 5

Linha8 4

Linha9 3

Linha10 4

Linha11 5

Linha12 5

[leandrotn]

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

[RogerioFernandes]

Leandro, obrigado pelo retorno. Mas este código não trouxe o resultado esperado, ele deveria trazer o número da última linha que contém o critério que está na celula E = 4 e retornar o valor = 10, observe que o critério = 4 repete 3 vezes e que ele aparece pela última vez na linha 10, este deveria ser o resultado na célula F1 = 10

[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