Kodları en alttaki gibi yaptım.Önceden resim eklediğim çıklu seçim olayayını değiştirmemişsiniz.
Dim i As Long
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Sheets(ListBox2.List(i, 0)).Select
Exit For
End If
Next
Bunları ekledim.
'Dim txtbx As Control
'For Each txtbx In Me.Controls
'If TypeName(txtbx) = "TextBox" Then
'TextBox1.Value = ListBox2.Column(0)
'TextBox2.Value = ListBox2.Column(1)
'TextBox3.Value = ListBox2.Column(2)
'TextBox4 = Format(ListBox2.Column(3), "ss:dd")
'TextBox7 = Format(ListBox2.Column(4), "ss:dd")
'End If
'Next
Bunularıda pasif yaptım zaten tek sütun listbox.
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Sheets(ListBox2.List(i, 0)).Select
Exit For
End If
Next
Unload UserForm2
If ListBox2.ListIndex < 0 Then Exit Sub
If ListBox2.RowSource = "" Then
Else
Range("A" & ListBox2.ListIndex + 1).Select
End If
Yeni_mi = False
'Dim txtbx As Control
'For Each txtbx In Me.Controls
'If TypeName(txtbx) = "TextBox" Then
'TextBox1.Value = ListBox2.Column(0)
'TextBox2.Value = ListBox2.Column(1)
'TextBox3.Value = ListBox2.Column(2)
'TextBox4 = Format(ListBox2.Column(3), "ss:dd")
'TextBox7 = Format(ListBox2.Column(4), "ss:dd")
'End If
'Next
If ListBox2.RowSource = "" Then
Range("A" & ListBox2.ListIndex + 1).Select
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider
TextBox1.Text = [a1]
TextBox1.Text = [a1]
TextBox2.Text = [C2]
TextBox3.Text = [C3]
TextBox4.Text = [C4]
TextBox5.Text = [C5]
End If
End Sub
