İSTEDİĞİM ALANI SEÇİP SORGULAMAK İSTİYORUM

[ünal karadavut]

İSTEDİĞİM BİR KAÇ ALANI SEÇİP SORGULAMAK İSTİYORUM. AYNI ZAMANDA DA LİSTBOX TA GÖZÜKMESİNİ İSTİYORUM.

 

[ünal karadavut]

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.

 

[abdi]

Sayın ünal karadavut Kardeş;
Şimdilik aşağıdaki kodlar bence yeterli ama siz gene bir deneyin

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.