ComboBox, Lıstbox ve rapor oluşturma

[ocamsul]

Arkadaşlar herkese merhabalar. varolan örneklerimle de denediğim halde işin içinden çıkamadım. Ekli çalışmamda 3 ayrı kritere göre rapor alma uygulaması var. ancak ComboBox ile seçilen bir firmaya ait kayıtları LıstBox da bir türlü listeleyemedim. Nerede yanlış yapıyorum onuda bilmiyorum. Birde şu varki benim için çok önemli; combobox a gelen kayıtların tek olması yani aynı isimde birden fazla combo içeriği olmaması lazım. Yardımlarınızı bekliyorum.

 

[algil]

merhaba ocamsul

Kodlarınızı aşağıdakiler ile değiştirirseniz istediğiniz olur. Umarım istediğiniz budur.

Private Sub ComboBox1_Change()
Sheets("Sayfa1").Select
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If LCase(Cells(i, 2).Text) = LCase(ComboBox1.Text) Then
Cells(i, 1).Select
c = c + 1
For Y = 1 To 7
ListBox1.AddItem
ListBox1.List(c - 1, Y - 1) = Cells(i, Y).Value
Next
End If
Next
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
Sheets("Sayfa1").Select
For i = 1 To Cells(65536, 2).End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, "b")) = 1 Then ComboBox1.AddItem Cells(i, "b")
Next i
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = 30 & ";" & 90 & ";" & 70 & ";" & 40 & ";" & 60 & ";" & 40 & ""
End Sub

 

[ocamsul]

SN: algil üsdat çok teşekkür ederim. tam olarak buydu. Sağolun.

 

[aobendes]

Kırık link ..

Verilen örnek inceleme için indirilemiyor..

 

[randzafer]

Dosyayı günceller misiniz. Teşekkürler...