İsme göre silme

[seddur]

Merhabalar.Yapmaya çalıştığım Takip adlı dosyada "A" sütununda isimler var ancak aynı isimden örneğin 10 tane var.Ben combobox1'den seçtiğim isme ait 10 adet kayıt silinsin istiyorum.Yani o kişiye ait bütün kayıtlar silinecek.Şimdiden Teşekkür ederim.

 

[seddur]

Aşağıdaki kod ile silme yapıyorum fakat hepsini bir seferde silmiyorTek tek yapmaya kalkınca da karışıyor.Bir fikir olsun diye paylaşıyorum.
Set bul = Sheets("Takip").Range("a:a").Find(ComboBox1.Value, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sheets("Takip").Rows(bul.Row).Delete
End If

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Satir_Sil()

    Dim St As Worksheet, c As Range, Adr As String, d As Range
    
    Set St = Sheets("Takip")

    Application.ScreenUpdating = False
    
    Set c = St.[A:A].Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            If d Is Nothing Then
                Set d = St.Rows(c.Row)
            Else
                Set d = Application.Union(d, St.Rows(c.Row))
            End If
            Set c = St.[A:A].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
    
    If Not c Is Nothing Then
        d.Delete
        MsgBox "Silme Tamamladı."
    End If

 

[fehdur]

Sn:Ömer bir kez daha Teşekkür ettim.(iki kullanıcı adım var bazen karışıyor.)Bu arada bir şey danışmak isterim.Doktorlar için Randevu takip programı yapmayı düşünüyorum excel de böyle bir şey yapılabilir mi.Belki yönlendirme açısından bir şeyler söylersiniz.

 

[Ömer]

Rica ederim, iyi çalışmalar.

 

[cems]

Sn. @fehdur

Ekteki dosyayı bir kontrol edin, userform denemesidir ve henüz bitirilmemiştir . Şu an yarı iskelet halindedir ama yine de fikir verebilir, istediğiniz buna benzer bir çalışma mı ? Cevabınız evet ise ;öncelikle userformu aşağıya çekip sütun başlıklarını inceleyiniz ve bir başka dosyaya randevu sisteminizde neler olması gerekiyorsa Gün saat dr ismi bölümü arayan no arayan kişi gibi veri başlıklarını oluşturarak

Mutlaka Sayın @Ömer de zamanına göre gördüğünde cevap verecektir ama soru altında soru kaybolacaktır . Önerim yeni bir soru açarak İsteğinizi sayfada anlatıp
altına da oluşturduğunuz örnek sayfayı eklerseniz daha fazla cevap gelme olasılığı olur .

Sorunuz "isme göre silme" ancak ek talebiniz " randevu defteri " yani ayrı bir başlık olsa daha hızlı mudahaleler olur