Excel sayfasından kayıt silme

[fehdur]

Sayfa1 de kayıtlı verilerimi A sütununda bulunan isimlere göre veri tabanından silmek istiyorum.Yani silinecek satırın A sütunundaki ismi -comboboxdan bulduğumda sil butonuna tıklayarak sayfadan sileceğim. ancak A sütununda Ahmet adında diyelimki 5 kayıt var bu kayıtların hepsi silinmeyecek Ahmet isminin E sütununda bulunan değerinde " SATIŞ" kelimesi yazan satırını silecek.Diğer Ahmet adlı satırların E sütununda "SATIŞ" diye yazmıyor.Umarım anlaşılmıştır.Teşekkür ederim.

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim S1 As Worksheet, c As Range, Adr As String, k As Range

    Set S1 = Sheets("Sayfa1")

    Set c = S1.[A:A].Find(ComboBox1, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            If S1.Cells(c.Row, "E") = "SATIŞ" Then
                If k Is Nothing Then
                    Set k = S1.Rows(c.Row)
                Else
                    Set k = Application.Union(k, S1.Rows(c.Row))
                End If
            End If
            Set c = S1.[A:A].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
    
    If Not k Is Nothing Then
        Application.ScreenUpdating = False
        k.Delete
        Application.ScreenUpdating = True
        MsgBox "Silme Tamamladı."
    End If
    
End Sub

 

[fehdur]

Kod için teşekkürler.Çalışıyor