YoRuMSuZ
Biz işimize bakalım...
Uzun excel çalışma kitaplarından belirttiğiniz kritere göre (şarta bağlı) satır silme işlemi uygulayabilirsiniz. Bu işlem için alttaki makro kodunu kullanabilirsiniz.
Yukarıdaki makroya göre;
A1 - A100 sütun aralığında "Ali" olanları bulup, B sütunundaki "Ali" olanlarla eşleşen kayıtlar ile, yine A sütunundaki "Ali" ve B sütununda boş olan hücrelerle eşleşen satırları sildiriyoruz.
Kendinize göre kodları özelleştirebilirsiniz. Eğer metin değil de rakam kullanmak isterseniz "Ali" yazan yerlere ilgili rakamı (tırnaksız) yazabiirsiniz.
Eğer işlem bittiğinde bir mesaj ile durumun bildirilmesini istiyorsanız "Next" satırından sonra alttaki kodları da ekleyebilirsiniz.
Uzun excel sayfalarında işinize yarayabiir.
Kod:
Sub Sil()
For x = [A100].End(3).Row To 2 Step -1
If Cells(x, "A") = "Ali" And Cells(x, "B") = "Ali" Or Cells(x, "A") = "Ali" And Cells(x, "B") = "" Then Rows(x).Delete
Next
End SubA1 - A100 sütun aralığında "Ali" olanları bulup, B sütunundaki "Ali" olanlarla eşleşen kayıtlar ile, yine A sütunundaki "Ali" ve B sütununda boş olan hücrelerle eşleşen satırları sildiriyoruz.
Kendinize göre kodları özelleştirebilirsiniz. Eğer metin değil de rakam kullanmak isterseniz "Ali" yazan yerlere ilgili rakamı (tırnaksız) yazabiirsiniz.
Eğer işlem bittiğinde bir mesaj ile durumun bildirilmesini istiyorsanız "Next" satırından sonra alttaki kodları da ekleyebilirsiniz.
Kod:
MsgBox "İşlem Tamamlandı.", vbInformationUzun excel sayfalarında işinize yarayabiir.
