Aynı satırda olup istediğim hücrede veri yoksa listele

[ulsbayar]

Merhaba arkadaşlar,

Resimdeki tablomda K (giden) sütununda hiçbirşey yazmıyorsa
B (firma) C (sip.No) D (model) E (renk) F (çift) deki verileri satır satır
Başka bir sayfaya listelemek istiyorum.


Yani şipariş listemde gitmemiş olan siparişlerimi görmek takip etmek istiyorum.

Yardımlarınızı bekliyorum,

İyi Çalışmalar.

 

[Murat OSMA]

Örnek dosya eklerseniz daha hızlı yanıtlar alırsınız.​

 

[ulsbayar]

Ekran görüntüsünü ekledim yeterli olmuyor mu ?

 

[alicimri]

Sayfa ismi Kırmızı Aktarı kendinize göre değiştirin.

Sub Makro1()
Son = ActiveSheet.Range("A65536").End(3).Row
    ActiveSheet.Range("A1:m" & Son).AutoFilter Field:=11, Criteria1:="="
    Set ss = ActiveSheet.Range("A2:A" & Son).SpecialCells(xlCellTypeVisible)
    Say = 2
For Each cel In ss.Cells
For i = 1 To 5
Sheets("[COLOR="Red"]Aktar[/COLOR]").Cells(Say, i).Value = cel.Offset(0, i)
Next
Say = Say + 1
Next
End Sub