Toplu satır silmek

[tiwamo]

Arkadaşlar, problemim şöyle:

Yaklaşık 5000 satırlık bir tablom var. İçinde, "E1 hücresindeki veri" geçen satırları tümüyle silmek istiyorum. Nasıl yaparım?

Sanırım makro gerekli.

Şimdiden teşekkürler.

 

[hamitcan]

Filtreleyerek işi çözebilirsiniz.

 

[tiwamo]

olmadı... Çözemedim... Daha önce hiç kullanmamıştım o özelliği.

Bir makro olsaydı iyiydi.

 

[Korhan Ayhan]

E1 hücresindeki veri tablonuzun hangi sütununda bulunuyor?

 

[tiwamo]

C sütununda

 

[Korhan Ayhan]

Deneyiniz.

Sub Sil()
    Dim X As Long, Alan As Range, Veri As String
    
    Veri = "*" & UCase(Replace(Replace(Range("E1"), "ı", "I"), "i", "İ")) & "*"
    
    Application.ScreenUpdating = False
    
    For X = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        If UCase(Replace(Replace(Cells(X, "C"), "ı", "I"), "i", "İ")) Like Veri Then
            If Alan Is Nothing Then
                Set Alan = Cells(X, "C")
            Else
                Set Alan = Application.Union(Alan, Cells(X, "C"))
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then Alan.EntireRow.Delete
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[tiwamo]

Denedim. Olmadı...

Filtre olayı ile uğraştım biraz. Bu kez başardım.

Teşekkürler ikinize de

 

[Korhan Ayhan]

Dosyanızın küçük bir örneğini paylaşım sitelerine yükleyip linkini foruma eklerseniz neresinin olmadığına bakabiliriz. Hayali olarak cevap verdiğimiz için gözümüzden kaçan bir detay olabilir.