Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz

(18/01/2020, 17:49)berduş yazdı: dilerim işinize yarar

Dim SonStR, x As Long

Dim HcrAdrs, SonStN As String

HcrAdrs = Mid(Range("A1").SpecialCells(xlCellTypeLastCell).Address, 2) 'son hücrenin adresi

SonStN = Left(HcrAdrs, InStr(HcrAdrs, "$") - 1) 'son sütun

SonStR = Mid(HcrAdrs, InStr(HcrAdrs, "$") + 1) 'son satır

        Application.ScreenUpdating = False

 

        For I = SonStR To 1 Step -1 'son satırdan ilk satıra kadar döngü kurduk

            If Application.WorksheetFunction.CountA(Range("A" & I & ":" & SonStN & I)) = 0 Then 'Eğer tüm satır boşsa

                Rows(I).EntireRow.Delete ' Tüm satırı sil

            End If

        Next

 

        Application.ScreenUpdating = True

        Debug.Print "bitti"

İşinize karşmak gibi olmasında bundan yıllar önce alltaki kodu denemiştim hatalı çalışıyordu sanki.
Aklımda kaldığı kadarıyla mesela son satır A50 olsun bu a50 deki veri silinse bile son satır yine A50 çıkıyordu.Dediğim gibi emin değilim yinede.



xlCellTypeLastCell


Alttaki yapınca don satır no vermiyormu


Range("A1").SpecialCells(xlCellTypeLastCell).row

haklısınız ama aklıma gelen 2 yöntem vardı ya tek tek her sütun için son satırı kontrol edecektim yada bu yöntemle
dediğim gibi excelde yeni sayılırım ancak bu kadar oluyor)

(18/01/2020, 18:15)berduş yazdı: haklısınız ama aklıma gelen 2 yöntem vardı ya tek tek her sütun için son satırı kontrol edecektim yada bu yöntemle
dediğim gibi excelde yeni sayılırım ancak bu kadar oluyor)

Bu gidişle bu forum Access yerine Excel forumu olacak

(18/01/2020, 17:49)berduş yazdı: dilerim işinize yarar

Dim SonStR, x As Long

Dim HcrAdrs, SonStN As String

HcrAdrs = Mid(Range("A1").SpecialCells(xlCellTypeLastCell).Address, 2) 'son hücrenin adresi

SonStN = Left(HcrAdrs, InStr(HcrAdrs, "$") - 1) 'son sütun

SonStR = Mid(HcrAdrs, InStr(HcrAdrs, "$") + 1) 'son satır

        Application.ScreenUpdating = False

 

        For I = SonStR To 1 Step -1 'son satırdan ilk satıra kadar döngü kurduk

            If Application.WorksheetFunction.CountA(Range("A" & I & ":" & SonStN & I)) = 0 Then 'Eğer tüm satır boşsa

                Rows(I).EntireRow.Delete ' Tüm satırı sil

            End If

        Next

 

        Application.ScreenUpdating = True

        Debug.Print "bitti"

Teşekkürler berduş