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
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?
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.