listbox ta bazı satırları göstermemek.

[aydgur]

İyi tatiller, 2 rica var;
1-Ekli dosyada ciro ettiğim satırlar lisbox ta görünmesin istiyorum
2-Aktarma yaparke aynı zamanda Sayfa3 e de aktarsın
acaba nasıl yapılabilir?

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim i As Long, sat As Long, sh As Worksheet, sat2 As Long
Sheets("Çek").Select
Application.ScreenUpdating = False
Set sh = Sheets("Sayfa3")
sh.Range("A2:O65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
sat2 = 2
For i = 2 To sat
    If Cells(i, "K").Value = "" Then
        sh.Range("A" & sat2 & ":K" & sat2).Value = Range("A" & i & ":K" & i).Value
        sat2 = sat2 + 1
    End If
Next i
Application.ScreenUpdating = True
UserForm1.ListBox1.RowSource = "Sayfa3!A2:K" & sat2 - 1
UserForm1.Show
End Sub

 

[aydgur]

Çok afedersiniz , dosyayı acaba neden açamıyorum ?

 

[aydgur]

Teşekkür ederim. Fakat benim ricam listboxta çek sayfasının ciro hücresi dolu ise o satırı listboxta göstermesin.

 

[Orion1]

Teşekkür ederim. Fakat benim ricam listboxta çek sayfasının ciro hücresi dolu ise o satırı listboxta göstermesin.

Zaten öyle gösteriyor.Ciro sütununda eğer boşsa o satırı listboxta gösteriyor ve sayfa3 e aaktarıyor.