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 Anasayfa'da bulunan textbox3'deki isim ve textbox4 deki tarihe göre Anasayfa satırındaki kaydı siliyorum fakat aynı anda Döküm sayfası "G" sutununda bulunan Anasayfadaki textbox15 de bulunan değere göre de Döküm sayfasındaki satırı silsin istiyorum.Yardımcı olabilir misiniz?
Private Sub CommandButton33_Click()
Set s1 = Sheets("Döküm")
Set S2 = Sheets("Anasayfa")
Set c = S2.[A15:A50000].Find(TextBox3, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If S2.Cells(c.Row, "c") = CDbl(CDate(TextBox4.Value)) Then
If k Is Nothing Then
Set k = S2.Rows(c.Row)
Else
Set k = Application.Union(k, S2.Rows(c.Row))
End If
End If
Set c = S2.[A15:A50000].FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
If Not k Is Nothing Then
Application.ScreenUpdating = False
k.Delete
Application.ScreenUpdating = True
End If
Private Sub CommandButton33_Click()
Set s1 = Sheets("Döküm")
Set S2 = Sheets("Anasayfa")
Set c = S2.[A15:A50000].Find(TextBox3, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If S2.Cells(c.Row, "c") = CDbl(CDate(TextBox4.Value)) Then
If k Is Nothing Then
Set k = S2.Rows(c.Row)
Else
Set k = Application.Union(k, S2.Rows(c.Row))
End If
End If
Set c = S2.[A15:A50000].FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
If Not k Is Nothing Then
Application.ScreenUpdating = False
k.Delete
Application.ScreenUpdating = True
End If