Combobox ile Listbox da Listeleme ve Textbox a Alma Sorunu!!!

[ocamsul]

Arkadaşlar merhabalar. Tüm dostlara iyi çalışmalar. Ekli deneme sayfasında bir bölümde takıldım kaldım, şöyleki;

1 - Combobox1 ile seçili birim e ait kayıtları 10 sütun ile sınırlı listbox1 e alabiliyorum. Ama benim istediğim sayfada kritere uygun tüm hücreleri almak,

2 - Listbox1 e alınan kayıtları maus ile seçtiğimde ilgili kayıtları Textbox lara alması gerekirken hata veriyor.

Bu iki konuda yardımlarınızı bekliyorum arkadaşlar.

Private Sub ComboBox1_Change()
On Error Resume Next
    If ComboBox1 <> "" Then
    Sat&#305;r = ComboBox1.ListIndex + 3
    TextBox1 = Sheets("350").Cells(Sat&#305;r, "B")
    TextBox2 = Sheets("350").Cells(Sat&#305;r, "C")
    TextBox3 = Sheets("350").Cells(Sat&#305;r, "D")
    End If
    ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 5).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1
For Y = 1 To 10
ListBox1.AddItem
ListBox1.List(c - 1, Y - 1) = Cells(i, Y).Value
Next
End If
Next
End Sub

Private Sub ListBox1_Click()
TextBox4 = ListBox1.Column(4)
TextBox5 = ListBox1.Column(5)
TextBox6 = ListBox1.Column(6)
TextBox7 = ListBox1.Column(7)
TextBox8 = ListBox1.Column(8)
TextBox9 = ListBox1.Column(9)
TextBox10 = ListBox1.Column(10)
TextBox11 = ListBox1.Column(11)
TextBox12 = ListBox1.Column(12)
TextBox13 = ListBox1.Column(13)
TextBox14 = ListBox1.Column(14)
TextBox15 = ListBox1.Column(15)
TextBox16 = ListBox1.Column(16)
TextBox17 = ListBox1.Column(17)
TextBox18 = ListBox1.Column(18)
TextBox17 = Format(TextBox17, "dd/mm/yyyy")
TextBox18 = Format(TextBox18, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
ComboBox1.AddItem "&#304;l M&#252;d"
ComboBox1.AddItem "G&#246;z M&#252;d"
ComboBox1.AddItem "75 M&#252;d"

ListBox1.ColumnCount = 20
ListBox1.ColumnWidths = 20 & ";" & 40 & ";" & 50 & ";" & 40 & ";" & 150 & ";" & 30 & ";" & 30 & ";" & 30 & ";" & 30 & ";" & 90 & ";" & 90 & ";" & 90

TextBox17 = Format(TextBox17, "dd/mm/yyyy")
TextBox18 = Format(TextBox18, "dd/mm/yyyy")
End With
End Sub

 

[ocamsul]

İnceleme imkanı olan varmı arkadaşlar? 12 arkadaş indirmiş sayfayı!

 

[ocamsul]

Sorunumu çözen arkadaşlar varmı?

 

[ocamsul]

Üsdatlarım neredesiniz help help!!! Şu an itibariyle 76 görüntüleme ve 15 dosya indirme yapılmış. Ama kimsenin ilgisini çekmemiş anlaşılan (Biraz sitemkar oldu ama!!!) ilginizi bekliyorum.

 

[ocamsul]

Arkadaşlar iyi geceler; konum askıda kaldı, yardım ve önerilerinizi bekliyorum.

 

[Recep İpek]

Bildiğim kadarıyla Listbox AddItem yöntemi ile 10 kolondan fazlasını kabul etmiyor.

Alternatif olarak Listview veya Spreadsheet nesnelerini kullanabilirsiniz.

Forumda bunlarla ilgili birçok güzel örnek çalışma mevcut.Bunlardan birkaçı;

http://www.excel.web.tr/showthread.php?t=40835

http://www.excel.web.tr/showthread.php?t=40613

http://www.excel.web.tr/showthread.php?t=12823

http://www.excel.web.tr/showthread.php?t=42220

 

[ocamsul]

Sn: Ripek; Üsdat ilgili konu linkleri ve ilginiz için teşekkür ederim. Ben bunları bulmuştum, ama durumuma uyan net açıklama olmadığı için başlığı açmıştım. Şimdi biraz uyarlamalarla uğraşmam gerekicek. İyi sabahlar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub ComboBox1_Change()
    On Error Resume Next
    If ComboBox1 <> "" Then
    Sat&#305;r = ComboBox1.ListIndex + 3
    TextBox1 = Sheets("350").Cells(Sat&#305;r, "B")
    TextBox2 = Sheets("350").Cells(Sat&#305;r, "C")
    TextBox3 = Sheets("350").Cells(Sat&#305;r, "D")
    End If
    
    ReDim MYLIST(1 To 20, 1 To 1)
    ListBox1.RowSource = ""
    For X = 3 To [A65536].End(xlUp).Row
    If Cells(X, "E") = ComboBox1 Then
    S&#220;TUN = S&#220;TUN + 1
    ReDim Preserve MYLIST(1 To 20, 1 To S&#220;TUN)
    For Y = 1 To 20
    MYLIST(Y, S&#220;TUN) = Cells(X, Y).Value
    Next Y
    MYLIST(19, S&#220;TUN) = Format(MYLIST(19, S&#220;TUN), "dd.mm.yyyy")
    MYLIST(20, S&#220;TUN) = Format(MYLIST(20, S&#220;TUN), "dd.mm.yyyy")
    End If
    Next X
    ListBox1.Column = MYLIST
End Sub

Ayrıca aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=43089

 

[ocamsul]

Üsdat Selamlar; ay'ın 12 sinden sonra bakmamıştım. Verdiğiniz cevap için teşekkür ederim. Tam anlamıyla oldu.