Birinci sütün haricinde boş olan satırları seçme ve silme...

[cigahagi]

Sorum ektedir,teşekkürler...Emeğe sağlık

 

[Orion1]

Sorum ektedir,teşekkürler...Emeğe sağlık

Aşağıdaki kodu deneyiniz.

Sub sil()
Dim i As Byte
For i = 2 To 5
    For k = 5 To 1 Step -1
        If Cells(k, i).Value = Empty Then
            Cells(k, i).Delete (xlUp)
        End If
    Next
Next
End Sub

 

[cigahagi]

Aşağıdaki kodu deneyiniz.

Sub sil()
Dim i As Byte
For i = 2 To 5
    For k = 5 To 1 Step -1
        If Cells(k, i).Value = Empty Then
            Cells(k, i).Delete (xlUp)
        End If
    Next
Next
End Sub

Çok teşekkür ederim,ama eğer makro olmadan da bir yolu varsa onu da söylebilirmisiniz,çünkü bu işlemi sık sık yapıcak olan yaşlı bir arkadaşım,makrodan anlayamayabilir,yani f5 boşluklar seç gibi bir seçeneğin düzenlenerek bu dediğim işlemi yapıyosa çok çok iyi olur,en azından boşlukları doğru seçtiğini gözleriyle görür ve satır sil yapar...