C sütunu bos olan bütün satirlari silmek

[geksi]

Yardimlar icin simdiden Tsk.

 

[xxrt]

Sanırım Soru Başlığındaki Soruyu Sormak İstedin.

Sub sil()
Range("c1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Select
Selection.Delete
Range("c1").Select
End Sub

 

[geksi]

YApmak istedigim buydu cook tesekkürler ama kücük bir ayrinti var:
Dosya cok uzun oldugundan her seferinde makro olarak tanittigim tusa basmam gerekiyor.Otomatik olarak kolon sonuna kadar gidebilir mi?Bir döngü daha gerekli sanirim?

 

[xxrt]

Sub sil()
Range("c1").Select
Application.ScreenUpdating = False
Dim hucre As Range
For Each hucre In Range("c1:c" & WorksheetFunction.CountA(Range("c1:c5000")))
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

 

[geksi]

Supper.Cok tesekkürler.