Satır Silme Butonu

[soneris]

arkadaşlar ekteki sayfaya c sütununda "sell" ve "buy" haricinde değer yazılı olan satırları silmek için buton eklemek istiyorum.

 

[antonio]

Merhaba,
Aşağıdaki kodları kullanabilirsiniz.

Sub satir_sil()
Dim sh As Worksheet, ss As Long

Set sh = Sayfa1
ss = sh.Range("C" & Rows.Count).End(3).Row
For i = ss To 2 Step -1
    If sh.Range("C" & i).Value <> "sell" And _
        sh.Range("C" & i).Value <> "buy" Then
        sh.Rows(i).EntireRow.Delete
    End If
Next i
End Sub

 

[steppe]

Merhaba,
c5 hücresi https://www.aaa.com.tr/spor/basketbol/güres/

 

c6 hücresi https://www.aaacom.tr/spor/fubol/beyzbol/

c7 hücresi https://www.aaa.com.tr/spor/tenis/hentbol/

c8 hücresi https://www.aaa.com.tr/spor/kosu/atletizm/

içinde futbol ve kosu geçen satırlar hariç diğer satırları nasıl silebilirim.

 

[muysun35]

Sub satir_sil()
Dim sh As Worksheet, ss As Long

Set sh = Sayfa1
ss = sh.Range("C" & Rows.Count).End(3).Row
For i = ss To 2 Step -1
If sh.Range("C" & i).Value Like "*futbol*" And _
sh.Range("C" & i).Value Like "*kosu*" Then
Exit Sub
Else
sh.Rows(i).EntireRow.Delete
End If
Next i
End Sub

 

[steppe]

Sub satir_sil()
Dim sh As Worksheet, ss As Long

Set sh = Sayfa1
ss = sh.Range("C" & Rows.Count).End(3).Row
For i = ss To 2 Step -1
If sh.Range("C" & i).Value Like "*futbol*" And _
sh.Range("C" & i).Value Like "*kosu*" Then
Exit Sub
Else
sh.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Merhaba,
Maalesef hepsini sildi.