Procv VBA em Excel
Página 1 de 1
Procv VBA em Excel
esse código está funcionando do jeito q preciso
mas, ele só aceita números pra acionar o procv. Preciso q funcione com letras tb.
obrigado a quem ajudar
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrNum As String
If Target.Column = 8 Then
Application.EnableEvents = False
On Error Resume Next
vrNum = CDbl(Target.Value)
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(CDbl(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
mas, ele só aceita números pra acionar o procv. Preciso q funcione com letras tb.
obrigado a quem ajudar
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrNum As String
If Target.Column = 8 Then
Application.EnableEvents = False
On Error Resume Next
vrNum = CDbl(Target.Value)
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(CDbl(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
doidoDmais- Iniciante
- Mensagens : 6
Data de inscrição : 14/11/2012
Tópicos semelhantes
» botão excel 2010
» planilha excel
» Como reparar arquivo do Excel
» caixa de combinacao no excel
» Importar arquivo CSV para excel com critério.
» planilha excel
» Como reparar arquivo do Excel
» caixa de combinacao no excel
» Importar arquivo CSV para excel com critério.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|