Aranan verilerin bulunduğu satırı silmek

[baycanner]

Arkadaşlar bir excel sayfasında örnek "caner" geçen tüm satırları bir kerede nasıl silebilirim lütfen çok acil yardımlarınıza ihtiyacım var.

 

[baycanner]

arkadaşlar yokmu cevabı olan

 

[Ayhan Ercan]

Merhaba Sn baycanner

"caner" geçen hücreler çalışma kitabının her sütununda olabilirmi yoksa bazı sütunlardamı ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BUL_SİL()
    SİLİNECEK_VERİ = InputBox("Lütfen silmek istediğiniz veriyi giriniz !", "SİLİNECEK VERİ")
    If SİLİNECEK_VERİ = "" Or SİLİNECEK_VERİ = False Then Exit Sub
    SAY = WorksheetFunction.CountIf(Sheets("Sayfa1").Cells, SİLİNECEK_VERİ)
    If SAY > 0 Then
    For X = 1 To SAY
    Set BUL = Sheets("Sayfa1").Cells.Find(SİLİNECEK_VERİ)
    If Not BUL Is Nothing Then
    Rows(BUL.Row).Delete
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
    MsgBox "Silmek istediğiniz kayıt bulunamamıştır.", vbCritical, "DİKKAT !"
    End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyin.

Sub Düğme1_Tıklat()
s = Application.InputBox("Silinecek Veri Girin")
If s = "" Then Exit Sub
If s = cancel = True Then Exit Sub
Cells.Find(s).EntireRow.Delete
End Sub

 

[baycanner]

arkadaşlar teşekkürler ama
benim o kadar bilgim yok yani macro falan hiç bilmem daha basit bir yöntem varmı yada. yazdıklarınızı tam olarak nerden yapabileceğimi söyleyebilirmisinz.
yardımlar için tşk.

 

[zipir123]

silme

arkadaşlar teşekkürler ama
benim o kadar bilgim yok yani macro falan hiç bilmem daha basit bir yöntem varmı yada. yazdıklarınızı tam olarak nerden yapabileceğimi söyleyebilirmisinz.
yardımlar için tşk.

Sn. Baycanner bu dosya işinize yararmı

 

[LEVTEPE]

Sayın baycanner

Veri - Filtre Uygula - Gelişmiş Filtre ile sorununuzu çözebilirsiniz.

Verilerinizi K4'e kaydırmalısınız.

 

[baycanner]

herşey için teşekkürler ..
süper..