Hücrelerdeki belirli verileri silme

[reisbey1634]

Bir tablodaki farklı hücrelerde var olan aynı veriyi tutup diğer tüm verileri silme işlemi nasıl yapılabilir. Örneğin bir tabloda sınıflar satırlarda, ders saatleri ise sütunlarda yer alıyor. Tablonun içeriğinde ise ders isimleri var. Tabloda sadece fizik dersleri kalacak şekilde tüm diğer ders isimlerini silmek istiyorum.

Yardımcı olabilirseniz memnun olurum. Şimdiden teşekkürler.

 

[YUSUF44]

Dosyanıza filtre ekleyin. Filtrede silinmesini istediğiniz veriler görünecek şekilde filtreleme yapın. Sonuç tablosunu seçip sağ tıklayıp silebilirsiniz.

Fazlası için dosya paylaşmanızı öneririm.

 

[çıtır]

Sayın reisbey1634;
Foruma hoş geldiniz.
Aşağıdaki kodu bir modüle kopyalayınız.Makroyu çalıştırtığınızda İnputbox çıkar.Gerekli şekilde doldurarak deneyiniz.

Sub sıl0()
Application.ScreenUpdating = False
Adres = Application.InputBox("Hücre adresini yazınız.Örn A1:D10 gibi", "Hücre Adresi")
    If Adres = "" Or Adres = False Then
    MsgBox "İptal edildi"
    Exit Sub
    End If
sil = Application.InputBox("Lütfen kalacak veriyi giriniz", "Kayit Kutusu")
If sil = False Then
Exit Sub
End If
If MsgBox("Bilgiler silinecek", vbOKCancel + vbQuestion, "Accept/Reject") = vbCancel Then
    MsgBox "İptal edildi"
    Exit Sub
End If
For Each hucre In ActiveSheet.Range(Adres)
If IsError(hucre.Value) = True Then
    Range(hucre.Address) = ""
   
    ElseIf Range(hucre.Address) <> sil Then Range(hucre.Address) = Empty
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[reisbey1634]

https://drive.google.com/open?id=1iFSkW2EouimikPkAgo0rzk6I61jWsj6C

Dosyanın linkini ekledim.. ilginize teşekkürler

 

[çıtır]

Yukarda verdiğim kodla ister alanı parça parça isterseniz tamamını siliniz.Büyük küçük harf duyarlıdır.Tutulması gereken veriyi olduğu gibi yazınız.Benden isteğiniz nedir?

 

[reisbey1634]

Kodunuz işimi gördü... İlginize çok teşekürler...

 

[çıtır]

Kodunuz işimi gördü... İlginize çok teşekürler...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[mdagistanli]

Sub sıl0()
Application.ScreenUpdating = False
Adres = Application.InputBox("Hücre adresini yazınız.Örn A1:D10 gibi", "Hücre Adresi")
 ...
End Sub

Alan sormak yerine, seçili alana uygulayacak şekilde de yazabilir misiniz?

 

[çıtır]

Alan seçerek uygulama.(Yazdığınız değeri korur,diğerlerini siler)

Sub sil0()
Application.ScreenUpdating = False
Adres = Selection.Address
sil = Application.InputBox("Lütfen kalacak veriyi giriniz", "Kayit Kutusu")
If sil = False Then
Exit Sub
End If
If MsgBox("Bilgiler silinecek", vbOKCancel + vbQuestion, "Accept/Reject") = vbCancel Then
    MsgBox "İptal edildi"
    Exit Sub
End If
For Each hucre In ActiveSheet.Range(Adres)
If IsError(hucre.Value) = True Then
    Range(hucre.Address) = ""

    ElseIf Range(hucre.Address) <> sil Then Range(hucre.Address) = Empty
    End If
Next
Application.ScreenUpdating = True
End Sub

Aşağıdaki şekilde değiştirirseniz yazdığınız değeri siler,diğerlerini korur.

ElseIf Range(hucre.Address) = sil Then Range(hucre.Address) = Empty