Ah, assim dá pra entender...
Dim EQ As Long 'EQ é o valor que vc vai digitar no formulário
Dim rng As Range 'Onde estão seus dados
Dim l As Long 'Linha que contém a informação
EQ = 4 'substitua pelo valor do formlário, algo comoo textbox1.value
Set rng = Range("A4:A13")
'Aumenta 3 porque o range desejado ignora as 3 primeiras inhas
l = Application.WorksheetFunction.Match(EQ, rng, 0) + 3
'A partir disso, vc pode atualizar os valores via userform, com algo do tipo:
cells(l, "F").value = textbox2.value 'onde l é a linha encontrada e "F" a que vc especificar
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 16/08/2014 3:19 pm