vert.zoeken vraag.

Status
Niet open voor verdere reacties.

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
276
Verticaal zoeken in excel lukt mij wel maar hoe kan ik dit voor elkaar krijgen met VBA.

Ik heb een tabblad "Data" met Kolom A, B en C
Tevens een userform als keuze
Via een UserForm klik ik een Optionbutton aan en deze waarde laat ik plaatsen in C2.
In het Userform heb ik een textbox waar de gekozen waarde getoond wordt in Textbox "Key".
Hoe krijg ik de data in de Textbox "Name"op het Userfrom die bij de Key hoort.

Een oefenbestand even bijgevoegd om iets duidelijker te maken.
 

Bijlagen

  • oefen.xlsm
    16,8 KB · Weergaven: 31
Gooi al je code weg en zet er dan dit in:
Code:
Private Sub OptionKey1_Change()
    Call WhatRBisTrue
End Sub

Private Sub OptionKey2_Click()
    Call WhatRBisTrue
End Sub

Private Sub OptionKey3_Click()
    Call WhatRBisTrue
End Sub

Sub WhatRBisTrue()
    With Sheets("Data").Range("C2")
        If OptionKey1 Then
            .Value = "4012"
        ElseIf OptionKey2 Then
            .Value = "5012"
        ElseIf OptionKey3 = True Then
            .Value = "6012"
        End If
    End With
    
    With Sheets("Data").Range("A1:A100")
        Set c = .Find(Sheets("Data").Range("C2"), LookIn:=xlValues)
        If Not c Is Nothing Then
            TextBox1.Text = Sheets("Data").Range(c.Address).Offset(, 1)
        End If
    End With
End Sub
 
Laatst bewerkt:
Ik begrijp de opzet niet helemaal. Misschien zo?
 

Bijlagen

  • oefen.xlsb
    21,9 KB · Weergaven: 43
Laatst bewerkt:
Daarvoor heeft MS de ListBox uitgevonden:
 

Bijlagen

  • 0_oefen.xlsb
    15 KB · Weergaven: 47
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan