Tanto aqui como no forum Thomaz (http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=5819), você não identifica coerentemente em sua planilha o que deseja executar.
Assim no Achometro experimente:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrNum As Variant
If Target.Column = 8 Then
Application.EnableEvents = False
'On Error Resume Next
If IsNumeric(Target.Value) Then
vrNum = CDbl(Target.Value)
Else
vrNum = Target.Value2 'CDbl(Target.Value)
End If
If vrNum = 0 Then
MsgBox "Insira um VALOR Válido para Pesquisa"
Target.Offset(0, 3) = ""
Application.EnableEvents = True
Exit Sub
Else
'On Error Resume Next
vr1 = Application.WorksheetFunction.VLookup((vrNum), Worksheets("Postadores").Range("A2:C120"), 2, "true") '=PROCV(combobox1;A1:B3;2;0)
'Resultado na Coluna K
Target.Offset(0, 3) = vr1
If vr1 = "" Then
MsgBox "Dados não encontrados"
End If
Application.EnableEvents = True
End If
End If
End Sub
Postado : 29/11/2017 7:14 am