İstenilen Değerlerin Silinmesi

[pylor]

Değerli arkadaşlar öncelikle yeni formumuzun herkese hayırlı olmasını diler emeği geçenlere teşekkür ederim. Excel 2003 kullanıyorum ve bir makro kaydetmeye çalıştım ama bir türlü yapamadım örnek vermem gerekirse sayfa1 K10 hücresindeki değer sayfa2 listesinde varsa var olan isimin listeden silinmesi olayıdır. Ekli dosyamda deteylı bir örnek mevcuttur

 

[rabbace]

Merhaba,

Sub sil()

Set syf1 = Sheets("GASTRO")
Set syf2 = Sheets("HASTA_BİLGİSİ_ALMA")
Set awf = Application.WorksheetFunction
Set kolon = syf2.Range("B:B")

veri = syf1.Range("K10")
    If veri = "" Then
        MsgBox ("Kişi bilgisi alınamadı, seçilen hücre boş")
    Else
        say = awf.CountIf(kolon, veri)
        If say = 0 Then
            MsgBox ("Aranan kişi bulunamadı")
        Else
            For i = 1 To say
                ad = awf.Match(veri, kolon, 0)
                Rows(ad).Select
                Selection.Delete
            Next i
        End If
    End If

End Sub

kodları ile verilerin olduğu satırı silebilirsiniz. Yedek alarak deneme yapınız.

 

[pylor]

Merhaba sayın rabbace öncelikle cevabınız için çok teşekkür ederim kodları denedim çalışıyor yanlız bazı eksiklikler var benim aktif çalışma sayfam GASTRO sayfası kod çalışmaya başladığında öncelikle GASTRO sayfası K10 hücresindeki değere bakacak bu değer HASTA BİLGİSİ ALMA sayfasında varsa tüm satırı değilde B sütunu ile E sütunu arasında değerleri temizleyecek yani "sıra no" "bu yıl" ve "yaş" başlıklı sutunlarda silme yapılmayacak satırı silme değilde içeriği temizle diyecek bu mümkünmü acaba

 

[rabbace]

Bu kodu dener misiniz?

Sub sil()

Set syf1 = Sheets("GASTRO")
Set syf2 = Sheets("HASTA_BİLGİSİ_ALMA")
Set awf = Application.WorksheetFunction
Set kolon = syf2.Range("B:B")
veri = syf1.Range("K10")
    If veri = "" Then
        MsgBox ("Kişi bilgisi alınamadı, seçilen hücre boş")
    Else
        say = awf.CountIf(kolon, veri)
        If say = 0 Then
            MsgBox ("Aranan kişi bulunamadı")
        Else
            For i = 1 To say
                ad = awf.Match(veri, kolon, 0)
                Range("B" & ad, "E" & ad).Select
                Selection.Clear
            Next i
        End If
    End If
End Sub

 

[pylor]

Sayın Rabbace kod çalışıyor ama hasta bilgisi alma sayfasında iken çalışıyor yani gastro sayfasında kodu çalıştırdığımda hasta bilgisi alma sayfasına gidip ordaki veri silmiyor neden olabilir

 

[pylor]

bu konuda bir fikri olan varmı acaba

 

[rabbace]

Merhaba,

Küçük bir hata olmuş, şu an çalışıyor kontrol eder misiniz?

bu konuda bir fikri olan varmı acaba

Sub sil()

Set syf1 = Sheets("GASTRO")
Set syf2 = Sheets("HASTA_BİLGİSİ_ALMA")
Set awf = Application.WorksheetFunction
Set kolon = syf2.Range("B:B")
veri = syf1.Range("K10")
    If veri = "" Then
        MsgBox ("Kişi bilgisi alınamadı, seçilen hücre boş")
    Else
        say = awf.CountIf(kolon, veri)
        If say = 0 Then
            MsgBox ("Aranan kişi bulunamadı")
        Else
            For i = 1 To say
                ad = awf.Match(veri, kolon, 0)
                syf2.Select
                Range("B" & ad, "E" & ad).Select
                Selection.Clear
            Next i
        End If
    End If
End Sub

 

[pylor]

Sayın rabbece çok teşekkür ederim şimdi düzgün çalışıyor emeğinize sağlık