macro ile satır silmek için ne yapmalıyım

[mid-bim]

Ã?ncelikle bu siteyi açtığınız için çok teşekkür ederim iyiki sizler varsınız
Ben bir excel çalıma sayfasında 1'er atlayarak satırları tamamiyle silmek istiyorum.bunu makro ile nasıl yapabiliriz.

 

[birol_mumcu]

merhaba;
bunu "süz" kullanarak ta yapabilirsiniz
süzülecek alanın seçin
veri\süz\otomatiksüz ü seçin
sonra menü içinden "boş olanları" seçin aralıktaki tüm boş hücreleri gelecektir.
kolay gelsin

 

[veyselemre]

şunu bir deneyin

Sub Makro1()

bas = InputBox("hangi satırdan başlayarak atlayarak silsin")
son = InputBox("hangi satıra kadar silsin")
son = Int(son - bas / 2)
For x = bas To son
Rows(x).Delete Shift:=xlUp
Next

End Sub

 

[Haluk]

Çalışma sayfasındaki A sütunu esas alınarak;

[vb:1:dabdd32ec5]Sub Test()
Dim NoA As Long, i As Long
NoA = Range("A65536").End(xlUp).Row
For i = NoA To 1 Step -2
Rows(i).Delete
Next
End Sub
[/vb:1:dabdd32ec5]

 

[mid-bim]

Arkadaş ilgilendiğiniz için tşk. ama ben soru nu çözem

sonunu çozemedim ekte gönderiyorum makro ile yapmak istiyorum birol_mumcu kardeş süz yapmak işimi görmüyor zaten onu biliyorum o iş görmüyor bana yardım ederseniz çok sevinirim ekte bulunan sayfadaki boş olan aralıklar makro ile silinsin istiyorum ama olmuyor şimdiden tşk.

 

[Levent Menteşoğlu]

Sn Raider'in vermiş olduğu kodu aşağıdaki gibi düzenlersek sanırım istediğiniz olacaktır.

[vb:1:9e2ab8820c]Sub Test()
Dim NoA As Long, i As Long
NoA = Range("A65536").End(xlUp).Row
For i = NoA To 1 Step -1
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next
End Sub
[/vb:1:9e2ab8820c]

 

[mid-bim]

Çok teşkkür ediyorum

yardımcı olduğunuz için tşk. ederiz işim görüldü

 

[snx111]

a sütunu boş olan satırları siliyor

 

[parametre]

a sütunu boş olan satırları siliyor

siz hangileri silmek istiyorsunuz aralıklar ile oynayın isteginiz gerceklesecektir kolay gelsin