Sayfada gizlenen satırlar listboxda görünmesin.

[udentr2002]

Merhaba Arkadaşlar,

Rapor adlı sayfada a1 den b69 a kadar olan aralığı form üzerindeki listbox a alıyorum.
Ancak rapor adlı sayfada bazı satırlarım gizli ve bu gizli olan satırlarda seçimlere göre değişmekte.
Benim istediğim sayfada göründüğü şekli ile listboxa nasıl alabilirim.
Yani sayfada gizli olan satırlar listboxda da görünmesin

Şimdiden yardımcı olacak arkadaşlarıma teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub UserForm_Initialize()
 
    Dim i As Byte
 
    With ListBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "50;50"
 
        For i = 1 To 69
            If Cells(i, "A").EntireRow.Hidden = False Then
                .AddItem Cells(i, "A").Value
                .List(.ListCount - 1, 1) = Cells(i, "B").Value
            End If
        Next i
    
    End With
 
End Sub

.

 

[udentr2002]

Hocam ilginin için teşekkürler,

Ben Rapor adlı sayfadaki verilerin Listboxda görünmesini istiyorum. Bundan dolayı göndermiş olduğunuz kodlara kırımızı renkli kodu ekledim ama.

Permission denied adlı bir hata veriyor.

Private Sub UserForm_Initialize()

Dim i As Byte
 
    With ListBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "50;50"
        [COLOR="Red"].RowSource = "Rapor!A1:b" & Sheets("Rapor").[A65536].End(3).Row[/COLOR]       

 For i = 1 To 69
            If Cells(i, "A").EntireRow.Hidden = False Then
                .AddItem Cells(i, "A").Value
                .List(.ListCount - 1, 1) = Cells(i, "B").Value
            End If
        Next i
    
    End With

End Sub

 

[Korhan Ayhan]

Merhaba,

Satırlar gizli olduğu için verileri RowSource metodu ile yükleyemezsiniz. Döngü kullanılması gerekir. Yapmanız gereken Ömer beyin önerdiği koda sayfa adını eklemek.

Private Sub UserForm_Initialize()
    Dim i As Byte
 
    With ListBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "50;50"
 
        For i = 1 To 69
            If [COLOR=red]Sheets("Rapor").[/COLOR]Cells(i, "A").EntireRow.Hidden = False Then
                .AddItem [COLOR=red]Sheets("Rapor").[/COLOR]Cells(i, "A").Value
                .List(.ListCount - 1, 1) = [COLOR=red]Sheets("Rapor").[/COLOR]Cells(i, "B").Value
            End If
        Next i
    End With
End Sub

 

[udentr2002]

Hocam teşekkürler ellerinize sağlık
ömer hocam sizinde ellerinize sağlık

Bu arada forumda ki herkesin Kandili Mübarek olsun.