Hücrelerdeki belirli verileri silme

Katılım
10 Eylül 2019
Mesajlar
3
Excel Vers. ve Dili
office 365 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,843
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,437
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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.
Kod:
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
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,437
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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?
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,437
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Alan seçerek uygulama.(Yazdığınız değeri korur,diğerlerini siler)
Kod:
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.
Kod:
ElseIf Range(hucre.Address) = sil Then Range(hucre.Address) = Empty
 
Üst