AccessTr.neT

Sayfalar: 1 2

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.

If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0

ile kontrol edilebilir

Hocam neresine yazacağım bu kodu nasıl uyarı verdireceğim

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

teşekkür ederim hocam saygılarımla.

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

Sayfalar: 1 2

reosman

berduş

reosman

berduş

reosman

berduş