K. Alexandre, bom dia.
Se conseguires associar um botão de busca na folha, penso que consegues os resultados pretendidos com mais facilidade, associando este código ao botão, efetuando as devidas alterações em função da tua folha.
Dim address As Variant
Dim CERTAF As Range
Dim RangRow As Range
Set CERTAF = Range("A2:A26")
For Each RangRow In CERTAF.Rows
If RangRow.Cells(1, 1) = ComboBox1_CERTIFICADOS.Value Then
address = RangRow.Cells(1, 1)
RangRow.Cells(1, 1).Select
MsgBox " CERTIFICADO ENCONTRADO NA CELULA - - - - - - " & Selection.address _
& vbLf & " - - REGISTO SUBSTITUÍDO COM SUCESSO, NA CÉLULA - - " _
& RangRow.Cells(1, 6).address
RangRow.Cells(1, 6).Value = TextBox1_UNITARIO.Value
'Aqui incrementas em 1 a coluna cujos dados devem ser apresentados.
'No meu caso altera a célula da coluna 6 na mesma linha cujo valor foi procurado.
Exit For
End If
Next
Não sou perito em VBA nem em Ecel, mas nas minhas folhas funciona na perfeição mostrando tudo o que preciso.
Depois de efetuada a busca pela matrícula, e só acrecentar linhas deslocando o foco e tudo te é apresentado como queres e na folha que queres.
Experimenta.
Cumprimentos
M_A_L
M_A_L
