+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Herhangibir Kayıt Yoksa Uyarı Vermesi (/konu-herhangibir-kayit-yoksa-uyari-vermesi.html)
Sayfalar:
1
2
Herhangibir Kayıt Yoksa Uyarı Vermesi - reosman - 12/09/2021
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.
RE: Herhangibir Kayıt Yoksa Uyarı Vermesi - berduş - 12/09/2021
If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0 RE: Herhangibir Kayıt Yoksa Uyarı Vermesi - reosman - 12/09/2021
Hocam neresine yazacağım bu kodu nasıl uyarı verdireceğim
RE: Herhangibir Kayıt Yoksa Uyarı Vermesi - berduş - 12/09/2021
yukardaki fonksiyon silme fonksiyonuysa fonksiyonun en başına yazabilirsiniz
If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0 then
msgbox "sayfada veri yok"
exit sub
end ifRE: Herhangibir Kayıt Yoksa Uyarı Vermesi - reosman - 12/09/2021
teşekkür ederim hocam saygılarımla.
RE: Herhangibir Kayıt Yoksa Uyarı Vermesi - berduş - 13/09/2021
denediniz mi, düzgün çalışıyor mu?