Satır Silme

[tiryaki_44]

Merhaba;

c sütununda 4. satırdan itibaren konrole başlayacak ve boş hücreyi tespit ettikten sonra boş hücreninde dahil olduğu 40 satır silecek bir makroya ihtiyacım var.

yardımınız için şimdiden sağolun.

 

[fedeal]

Sub n()
Dim A As Long
Set Syf1 = Sheets("SAYFAİSMİ")
For A = 4 To Syf1.Cells(65536, 3).End(xlUp).Row
If Syf1.Cells(A, 3).Value = "" Then
Syf1.Range("A" & A & ":IV" & A + 40).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Selam,
C sütununda boş hücrenin oldugu satır ve kendinden sonraki 39 satır silinir.

 

[Necdet]

Merhaba,

Alternatif çözüm olsun benimkisi de.

Sub SatırSil()
Dim Bul As Range
Set Bul = Range("C4:C65536").Find("")
If Not Bul Is Nothing Then Rows(Bul.Row & ":" & Bul.Row + 40).Delete
End Sub

 

[tiryaki_44]

Çok teşekkürler arkadaşlar. işe yaradı.

kolay gelsin.