Boş satırları sil. A sütunu muaf tutulacak.

[ahzola]

Merhabalar.

Boşluk al makrosu ile çalıştığım zaman.
A sütunundaki verilerimde kayboluyor.

A sütununun etkilenmediği bir makro yazılabilirse çok
sevinirim. B4 ten itibaren çalışmaya başlaşın lütfen.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Ziynettin]

Merhaba,

Sub bos_satirsil()
Dim i As Integer
Dim son As Integer
son = Range("B" & Rows.Count).End(xlUp).Row
For i = son To 4 Step -1
If Cells(i, 2) = "" Then
[COLOR="Red"]Range(Cells(i, "B"),Cells(i,"P")).Delete (xlUp)[/COLOR]
End If
Next i
End Sub

 

[ahzola]

Hızır gibisiniz üstad maaşallah.
Eksik açıklama yaptım galiba özür dilerim.
A sütunu muaf olacak lakin B ile beraber C D ........diye
Diğer sütunlarda da çalışacak. Kendim yapmaya calıştım ama
hata verdi. Düzeltebilirseniz sevinrim.

Aralık belirtilirse daha şık olur.

A muaf B4222 gibi

 

[Ziynettin]

#2 nolu mesajda kırmızı yazılı satır şeklinde uyarlamanız yeterli

 

[ahzola]

Tekrardan teşekkür ederim.
Herşeyin gönlünüzce olması dileğiyle.

İyi akşamlar.