listboxta raporlama

[erzen]

Ekteki dosyadaki userformda raporla tuşuyla f ve h sütunlarında boş olan hücre varsa boş olan hücrenin satırını listboxta görmek istiyorum. bir kaç örnek inceledim ama uyarlayamadım. Malum sitemizdede dosyalara ulaşamadığımızdan çözüm bulamadım. yardımcı olursanız sevinirim.
Teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton9_Click()
Dim hcr As Range, a As Long, k As Byte
ReDim myarr(1 To 10, 1 To 1)
If OptionButton1.Value = False And _
    OptionButton2.Value = False And _
    OptionButton3.Value = False And _
    OptionButton9.Value = False Then
        MsgBox "Raporlama İçin Seçim Yapılmamış", vbExclamation, "Www.ExcelVBA.Net"
        Exit Sub
End If
For Each hcr In Range("F2:F" & Cells(65536, "A").End(xlUp).Row)
    If hcr.Value = Empty Then
        a = a + 1
        ReDim Preserve myarr(1 To 10, 1 To a)
        For k = 1 To 10
            myarr(k, a) = Cells(hcr.Row, k).Value
        Next k
    End If
    If hcr.Offset(0, 2).Value = Empty Then
        a = a + 1
        ReDim Preserve myarr(1 To 10, 1 To a)
        For k = 1 To 10
            myarr(k, a) = Cells(hcr.Row, k).Value
        Next k
    End If
Next hcr
ListBox1.Column = myarr
Erase myarr
End Sub

 

[erzen]

Cevabınız için teşekkür ederim. Ancak sadece f sütünu için yapılmış. Benim tam olarak istediğim f ve h sütunlarını taraması. Örneğin kişinin sadece f sütunu boşsa listboxta bir defa göstersin. Ama kişinin hem f sütunu hemde h sütunu boş ise listboxta altalta iki kere göstersin. Yardımlarınızı bekliyorum

 

[Orion1]

Cevabınız için teşekkür ederim. Ancak sadece f sütünu için yapılmış. Benim tam olarak istediğim f ve h sütunlarını taraması. Örneğin kişinin sadece f sütunu boşsa listboxta bir defa göstersin. Ama kişinin hem f sütunu hemde h sütunu boş ise listboxta altalta iki kere göstersin. Yardımlarınızı bekliyorum

Dosyayı düzenledim.2 numaralı mesajdan indirebilirsiniz.

 

[erzen]

combobox ekleyerek listboxta sıralanmış verileri comboboxtan seçilen değere göre süzmek mümkünmüdür

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
Dim sat, s As Integer
With ListBox1
.Clear
.ColumnCount = 10
End With
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") Like ComboBox1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "b")
ListBox1.List(s, 2) = Cells(sat, "c")
ListBox1.List(s, 3) = Cells(sat, "d")
ListBox1.List(s, 4) = Cells(sat, "e")
ListBox1.List(s, 5) = Cells(sat, "f")
ListBox1.List(s, 6) = Cells(sat, "g")
ListBox1.List(s, 7) = Cells(sat, "h")
ListBox1.List(s, 8) = Cells(sat, "ı")
ListBox1.List(s, 9) = Cells(sat, "j")
s = s + 1
End If: Next
End Sub

Private Sub UserForm_Initialize()
Dim sat, s As Integer
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Not WorksheetFunction.CountIf(Range("b2:b" & sat), Cells(sat, "b")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Cells(sat, "b")
s = s + 1
End If: Next
End Sub

 

[erzen]

Teşekkür ederim. Yalnız comboboxta seçim yaptığımda listboxtaki başlıklar görünmüyor.

 

[erzen]

Güncel güncel güncel

 

[N.Ziya Hiçdurmaz]

Sayın erzen AddItem yöntemiyle başlıkları gösteremiyoruz.Listbokun üzerine yerleştireceğiniz Labeller ile bu işi halledebilirsiniz.