Aşağıdaki makro istediğim satırları silmedi. Yardım rica ediyorum.
Makro özetle şu. Dolu Son satırı bul +1 ekle. Son boş satır ile 5000 nolu satır arasını sil.
Makro özetle şu. Dolu Son satırı bul +1 ekle. Son boş satır ile 5000 nolu satır arasını sil.
Kod:
Range("O2").Select
ActiveCell.FormulaR1C1 = "=MATCH(LOOKUP(2,1/(C[-14]<>""""),C[-14]),C[-14],0)" + 1
SATIR = Range("O2")
SONSATIR = 5000
Rows(SATIR & ":" & SONSATIR).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp