Rešio sam da se obračunam sa svim problemima vezanim za UserForm i vezu sa excelom. Dakle:
ComboBox(cmb1) vuče podatke iz Sheeta "BAZA" (A2:A6). To su nazivi - imena i prezimena. Klikom na ime iz padajuće liste cmb1 - u txt1 i txt2 se upisuju podaci iz kolona "B" i "C" - telefon i mesto. Kao vlookup u excelu. Problem je sledeći: Ako se u kolini NAZIV (pa samim tim i u cmb1) nađu dva, tri i više ISTIH imena (npr. dva Petra Petrovića), koji imaju različite telefone i različita mesta i različite pozicije u listi, u txt1 i txt2 se upisuju podaci - telefon i mesto SAMO PRVOG nađenog naziva. I to bez obzira što se klikne na drugi ili treći naziv-duplikat. Evo procedure koja to reguliše:
Private Sub cmb1_Click()
Dim qx As Variant
qx = cmb1.Text
On Error GoTo errHandle
txt1.Text = Sheets("baza").Range("A1").Offset(Application.WorksheetFunction.Match(qx, Sheets("baza").Range("A2:A200"), 0), 1)
txt2.Text = Sheets("baza").Range("A1").Offset(Application.WorksheetFunction.Match(qx, Sheets("baza").Range("A2:A200"), 0), 2)
Exit Sub
errHandle:
txt1.Value = ""
txt2.Value = ""
End Sub
Svakako treba da se izmeni, ili dopiše, ali šta? U prilogu je kompletan primer. Hvala unapred i pozdrav svim ljubiteljima excela i VBA.