AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Herhangibir Kayıt Yoksa Uyarı Vermesi

1 2
12/09/2021, 22:39

reosman

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 Sub

Sayın saygıdeğer hocalarım,
Sayfada herhangibir silinecek veri yoksa uyarı vermesini istiyorum.
Bir türlü başarılı olamadım. Yardımlarınızı rica ediyorum. Saygılarımla.
12/09/2021, 23:27

berduş

If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0
ile kontrol edilebilir
12/09/2021, 23:33

reosman

Hocam neresine yazacağım bu kodu nasıl uyarı verdireceğim
12/09/2021, 23:53

berduş

yukardaki fonksiyon silme fonksiyonuysa fonksiyonun en başına yazabilirsiniz
If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0 then 

msgbox "sayfada veri yok"

exit sub

end if
kodunu fonksiyonun en başına eklemeniz uygun olur
12/09/2021, 23:59

reosman

teşekkür ederim hocam saygılarımla.
13/09/2021, 00:02

berduş

denediniz mi, düzgün çalışıyor mu?
1 2