seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıdaki kod ile textbox7 ve textbox17'deki değere göre Anasayfada bulunan verileri(satırları) silmek istiyorum Ancak find komutunu iki kriterli olarak yazamadım.Bir de aşağıdaki kod sadece tek satırı siliyor halbuki textbox7 ve textbox17 değerler birden fazla satırda var hepsini tek seferde silsin istiyorum.Yardımcı olabilirseniz sevinirim.(Textbox7 deki değerler Anasayfa "A" sutununda,textbox17'deki değerler Anasayfa "D" sutununda yer almaktadır.)
Private Sub CommandButton11_Click()
Dim bul As Variant
Set bul = Sheets("Anasayfa").Range("a:a").Find(TextBox7, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sheets("Anasayfa").Rows(bul.Row).Delete
End If
MsgBox "Kayıt güncellendi"
Private Sub CommandButton11_Click()
Dim bul As Variant
Set bul = Sheets("Anasayfa").Range("a:a").Find(TextBox7, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sheets("Anasayfa").Rows(bul.Row).Delete
End If
MsgBox "Kayıt güncellendi"