Notifications
Clear all

Procv VBA

3 Posts
3 Usuários
0 Reactions
811 Visualizações
(@doidodmais)
Posts: 1
New Member
Topic starter
 

boA Noite

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.

obrigdo a quem ajudar

segue planilha anexa

 
Postado : 28/11/2017 4:46 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

doidoDmais,

Boa noite!

Vi o código e entendi o que o mesmo faz. O que não entendi é o que você pretende...

O código foi elaborado especificamente para busca na coluna A da aba Postadores um número e compará-lo ao número que foi digitado na coluna H da aba Plan1.

Diga o que pretende fazer (detalhando os pormenores) para que se possa encontrar a solução. Que letras você pretende buscar para comparar com o que e retornar o que? Digitará essas letras aonde? Deve comparar com que coluna?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/11/2017 5:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/11/2017 7:14 am