Eğer bir satırda 5 den çok boş hücre varsa

[M.Orxan]

Iyi Akşamlar değerli forum üyeleri. Şimdiden teşekkür ederim
Eğer bir satırda 5 den çok boş hücre varsa o satır silinsin istiyorum. Bunu nasıl yapabilirim? Exceli pek fazla bilmiyorum

 

[Korhan Ayhan]

Merhaba,

Adres belirtmemişsiniz.

Aşağıdaki kod A-Z sütun aralığına bakar. 5 adetten fazla boş olan hücre varsa yine A-Z aralığını siler.

Not : Silme işlemi olduğu için verilerinizi yedekleyerek deneyiniz.

Option Explicit

Sub Delete_Blank_Row()
    Dim X As Long, Rng As Range
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If WorksheetFunction.CountBlank(Range("A" & X & ":Z" & X)) > 5 Then
            If Rng Is Nothing Then
                Set Rng = Range("A" & X & ":Z" & X)
            Else
                Set Rng = Union(Rng, Range("A" & X & ":Z" & X))
            End If
        End If
    Next
    
    If Not Rng Is Nothing Then
        Rng.Delete Shift:=xlUp
        Set Rng = Nothing
        MsgBox "5 boşluktan daha fazla boşluk içeren satırlar silinmiştir!", vbInformation
    Else
        MsgBox "5 boşluktan daha fazla boşluk içeren satır bulunumadı!", vbInformation
    End If
End Sub

 

[M.Orxan]

Merhaba,

Adres belirtmemişsiniz.

Aşağıdaki kod A-Z sütun aralığına bakar. 5 adetten fazla boş olan hücre varsa yine A-Z aralığını siler.

Not : Silme işlemi olduğu için verilerinizi yedekleyerek deneyiniz.

Option Explicit

Sub Delete_Blank_Row()
    Dim X As Long, Rng As Range
  
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If WorksheetFunction.CountBlank(Range("A" & X & ":Z" & X)) > 5 Then
            If Rng Is Nothing Then
                Set Rng = Range("A" & X & ":Z" & X)
            Else
                Set Rng = Union(Rng, Range("A" & X & ":Z" & X))
            End If
        End If
    Next
  
    If Not Rng Is Nothing Then
        Rng.Delete Shift:=xlUp
        Set Rng = Nothing
        MsgBox "5 boşluktan daha fazla boşluk içeren satırlar silinmiştir!", vbInformation
    Else
        MsgBox "5 boşluktan daha fazla boşluk içeren satır bulunumadı!", vbInformation
    End If
End Sub

Teşekkür ederim Unutdum kusura bakmayın sadece boşluk değilde Nan olanlarida silsin istiyorum bunu nasıl yapabilirim?

 

[Korhan Ayhan]

"Nan" nedir?

Görsel paylaşabilirmisiniz..

 

[M.Orxan]

"Nan" nedir?

Görsel paylaşabilirmisiniz..

Not a number hocam