Cerca.vert su userform

Question

Salve, avrei un problema: ho un archivio di clienti caricato su excel, sto creando un userform con vba in modo che seleziona i clienti e inserisce automaticamente i dati nella fattura. La funzione da utilizzare so che è cerca.vert, ma con vba non riesco a farla (vlookup). Mi potreste aiutare?

Answer 1

Salve, avrei un problema: ho un archivio di clienti caricato su excel, sto creando un userform con vba in modo che seleziona i clienti e inserisce automaticamente i dati nella fattura. La funzione da utilizzare so che è cerca.vert, ma con vba non riesco a farla (vlookup). Mi potreste aiutare?

Utilizza Find, visto che sei in VB.

Questo evento di un CommandButton, cerca nel Foglio1 in colonna A quello che hai inserito nella TextBox1 e scrive i dati di colonna B e C in TextBox2 e TextBox3:

Private Sub CommandButton1_Click()

    Dim sh As Worksheet

    Dim rng As Range

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        Set rng = _

            .Range("A:A").Find( _

                What:=TextBox1.Text, _

                LookIn:=xlValues, _

                LookAt:=xlWhole, _

                SearchOrder:=xlRows, _

                SearchDirection:=xlNext, _

                MatchCase:=True)

    End With

    If Not rng Is Nothing Then

        With Me

            .TextBox2.Text = rng.Offset(0, 1).Value

            .TextBox3.Text = rng.Offset(0, 2).Value

        End With

    End If

    Set rng = Nothing

    Set sh = Nothing

End Sub

Answer 2

Egregio sig Mauro, sono (veccchio) di età ma giovane nel voler fare cose nuove e per questo molte volte entro in crisi su cose semplici.

riverendomi al cerca verticale nella userform ho modificato

What:=TextBox1.Text, _

in

What:=combobox1.Text, _

e

.combobox2.Text = rng.Offset(0, 1).Value

sembra che funziona  solo con la prima colonna ma...è possibile vedere  una cinquantina di colonne e forse più. per intuito penso che sia  una cosa facile ma... sto impazzendo.

grazie

Answer 3

Grazie mille, funziona.

Bene!

Ciao e alla prossima.

Answer 4

Grazie mille, funziona.