Bir Çalışma Kitabında Koşullu Veri Aratma

[badmad34]

Merhaba arkadaşlar,

Bir çalışma kitabında veri aratma hakkında bir kod yazmaya çalışıyorum. Eğer ilgili çalışma kitabında veri bulunursa "Veri bulunmuştur" diye mesaj vermesini, herhangi bir veri bulamazsa "Veri bulunamamıştır diye mesaj vermesini istiyorum ama kodlamayı beceremedim. Elimdeki kodlar aşağıdaki gibidir, nasıl değiştirmem gerekir?

Dim bul As Range
    For Each bul In Workbooks("flight SGB.xls").Sheets("TC-SGB").Range("a2:a" & Range("a65536").End(3).Row)
        If bul = Log_TextBox Then
       MsgBox "Veri bulunmuştur.", vbCritical, "WARNING!"
        End If
        
        If bul = Nothing Then
        MsgBox "Veri bulunamamıştır.", vbCritical, "WARNING!"
        Exit Sub
        End If

        Next bul

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KİTAP_İÇİNDE_BUL()
    Dim SAYFA As Worksheet, BUL As Range
 
    For Each SAYFA In ThisWorkbook.Worksheets
        Set BUL = SAYFA.Cells.Find(What:="Deneme")
        If Not BUL Is Nothing Then
            MsgBox "Veri bulunmuştur.", vbInformation
            Exit For
        End If
    Next
 
    If BUL Is Nothing Then MsgBox "Veri bulunamamıştır.", vbExclamation
 
    Set BUL = Nothing
End Sub

 

[badmad34]

Çok teşekkür ederim cevap için.