yardım bekliyorum. bir program ( Kendimce ) yapma aşamasındayım. bunuda öğrenirsem, son rütuşları yapmış olacağım. pür dikkat sizden gelen cevabı bekliyorum.
Sayın ünal karadavut Kardeş;
Şimdilik aşağıdaki kodlar bence yeterli ama siz gene bir deneyin
Kod:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Value = ListBox1.List(ListBox1.ListIndex, 0)
ComboBox2.Value = ListBox1.List(ListBox1.ListIndex, 1)
ComboBox3.Value = ListBox1.List(ListBox1.ListIndex, 2)
ComboBox4.Value = ListBox1.List(ListBox1.ListIndex, 3)
ComboBox5.Value = Format(ListBox1.List(ListBox1.ListIndex, 4), "dd.mm.yyyy")
End Sub
Private Sub UserForm_Initialize()
For a = 2 To WorksheetFunction.CountA(Range("a1:a3000"))
ComboBox1.AddItem Sayfa1.Cells(a, 1)
ComboBox2.AddItem Sayfa1.Cells(a, 2)
ComboBox3.AddItem Sayfa1.Cells(a, 3)
ComboBox4.AddItem Sayfa1.Cells(a, 4)
ComboBox5.AddItem Sayfa1.Cells(a, 5)
'ComboBox4
Next
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "50;50;50;50;50;"
ListBox1.RowSource = "Sayfa1!a2:e10"
End Sub
bayağı bi yol aldık değilmi geri kalanı hakkında benim fazla bilgim yok arkadaşlar Yardımcı olacaklardır.
ha unutmadan önceki yazdığınız kodları siliniz yerine yukarıda yazdığım kodları yazıp deneyiniz listboxda seçili değer üzerinde çift tıklama ile combolar dolmaktadır.
Saygılar Sevgiler
Çalışmalarınızda Başarılar Dilerim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.