Kod:
Sub izoldusil()
Dim son, i As Integer
son = Cells(Rows.Count, "F").End(3).Row
Application.ScreenUpdating = False
Dim cevap
Dim cevap2
Call sifreli
cevap = MsgBox("Buradaki İZ Kayıtlarını Silmek İstediğinizden Eminmisin iz ? " & Chr(10) & Chr(10) & _
"İZ Kayıtlarını Silmeden Önce Yedek Almanız Önerilir !!", vbYesNo + 16 + vbApplicationModal, "Silme Onayı")
If cevap = vbNo Then
Else
If cevap = vbYes Then
End If
For i = son To 2 Step -1
If Cells(i, "F") = "İZ OLDU" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "İZ Kayıtlarınız Başarıyla Silinmiştir.", vbExclamation, "İZ Kayıtları Silindi"
Call SıraNo
End If
End SubSayfada herhangibir silinecek veri yoksa uyarı vermesini istiyorum.
Bir türlü başarılı olamadım. Yardımlarınızı rica ediyorum. Saygılarımla.
