Prosim za pomoč-
V DZ imam dva lista. Na prvem je ukazni gumb, kateri mi prikaže UserForm1, na drugem listu pa so podatki.
UserForm ima ComboBox, dva textBox-a, tri opcijska stikala, DateTimePicker in tri CheckBox-e.
Ker moram na drugem listu večkrat popravljati podatke, bi želel nekako takole:
Ko v ComboBox-u izberem nek zapis (iz lista 2, stolpec »B«), bi se v textBox izpisal podatek iz iste vrstice, stolpec »C« in če je možno, tudi katero opcijsko stikalo je izbrano (stolpec »E«) oziroma
Kateri CheckBox je potrjen (stolpec »F«)
Prilagam tudi kodo za ComboBox
Koda: Izberi vse
Private Sub UserForm_Initialize()
Dim UniqueList() As String
Dim x As Long
Dim Rng1 As Range
Dim c As Range
Dim Unique As Boolean
Dim y As Long
Set Rng1 = Sheets("Podatki").Range("B5:B2000")
y = 1
ReDim UniqueList(1 To Rng1.Rows.Count)
For Each c In Rng1
If Not c.Value = vbNullString Then
Unique = True
For x = 1 To y
If UniqueList(x) = c.Text Then
Unique = False
End If
Next
If Unique Then
y = y + 1
'Več podatkov v comboBox-u
Me.cboNajdi.AddItem c.Offset(0, -1) & ". " & (c.Text) & ", " & c.Offset(0, 1)
UniqueList(y) = c.Text
End If
End If
Next
End Sub