Skip to main content

AccessTr.neT


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

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

#19
(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
Cevapla
#20
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)
Cevapla
#21
Kod:
MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
Cevapla
#22
(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 Img-grin
Cevapla
#23
(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ş
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da