tahsinanarat
Altın Üye
- Katılım
- 14 Mart 2005
- Mesajlar
- 2,164
- Excel Vers. ve Dili
- Ofis 2019 Türkçe
- Altın Üyelik Bitiş Tarihi
- 27-05-2028
Kod:
Sub bul_sil3()
Dim S1 As Worksheet, S2 As Worksheet, X As Long, SAY As Long, Y As Long
Set S1 = Sheets("Arsiv")
Set S2 = Sheets("Silinecekler_listesi2")
Application.ScreenUpdating = False
For X = 1 To S2.Range("A65536").End(3).Row
SAY = WorksheetFunction.CountIf(S1.Columns(2), S2.Cells(X, 1))
If SAY > 0 Then
For Y = 1 To SAY
S1.Columns(2).Find(S2.Cells(X, 1)).EntireRow.Delete
Next
End If
Next
Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
' MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Silinecek sayfasında 2333 nolu sicil yazılı olduğu halde Arşiv Sayfasından 12333 numaralı sicil satırını da sildiğini fark ettim, ben tam eşleşme olması halinde silinmesini istiyorum, kodda nasıl bir değişiklik olmalı.
Yardımcı olacak Hocalarıma şimdiden teşekkür ederim.
Kolay gelsin