Çok teşekkürler Hocam ellerinize sağlık.
Hocam UserForm4 de Listbox da çoklu seçim yapıp silebiliyorum.
ListBox daki veriyi değiştirmek amaçlı TextBoxlara, ComboBoxa alamiyorum. Değiştirmek amacı ile ListBoxdaki satıra tıkladığımda hata veriyor.
Bugün bakarım.
Döngü kurulur ve sorun çözülür.
Yani alttaki kod gibi.
İf listbox1.selected(i)= true then
...textoxa veri alma kodlar.
Exit for
Endf
Hocam bu kodları nereye eklemem gerekiyor.
Yada on error resume next ekleyip deneyin.olmazsa bakarım bugün.
(01/05/2020, 04:46)m_demir yazdı: Hocam bu kodları nereye eklemem gerekiyor.
Önceki mesajımı uygulayın on error olanı.Diğerine bakarım sizin için karışık olabilir.
Hocam önceki mesajınızdaki kodu reye eklemem gerekiyor.
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