Makroya MsgBox Eklemek

[1Al2Ver]

Merhaba,

Aşağıdaki makroya ilave yaparak, bulunamayan veri için ; MsgBox "Aranan Veri Bulunamadı!", vbCritical satırını bir çok yerde denememe rağmen, veri bulduğunda da mesaj vermesini engelleyemedim,

Sadece veri bulamadığında mesaj vermesini istiyorum.

Teşekkür ederim.

Private Sub CommandButton44_Click()

Set s1 = Sheets("KAYITLI_ÜYE_LİSTESİ")
s1.Unprotect "12345" 
Application.DisplayAlerts = False
Dim bul As Range

  With Sheets("KAYITLI_ÜYE_LİSTESİ")
  
        Set bul = .Range("b:b").Find(TextBox8, LookAt:=xlWhole)
        If Not bul Is Nothing Then
            TextBox7 = .Cells(bul.Row, "a").Value
            TextBox8 = .Cells(bul.Row, "b").Value
            ..................
            ..................
            TextBox26 = .Cells(bul.Row, "u").Value 
            
    s1.Protect "12345" 
         
         End If
         End With
         
    Application.DisplayAlerts = True
    
End Sub

 

[Orion1]

Buyurun.

Private Sub CommandButton44_Click()

Set s1 = Sheets("KAYITLI_ÜYE_LİSTESİ")
s1.Unprotect "12345" 
Application.DisplayAlerts = False
Dim bul As Range

  With Sheets("KAYITLI_ÜYE_LİSTESİ")
  
        Set bul = .Range("b:b").Find(TextBox8, LookAt:=xlWhole)
        If Not bul Is Nothing Then
            TextBox7 = .Cells(bul.Row, "a").Value
            TextBox8 = .Cells(bul.Row, "b").Value
            ..................
            ..................
            TextBox26 = .Cells(bul.Row, "u").Value 
            
    
        [B][COLOR="Red"]else
            MsgBox "Aranan Veri Bulunamadı!", vbCritical[/COLOR][/B]         
         End If
         End With
       [B][COLOR="Red"]s1.Protect "12345" [/COLOR][/B]       
    Application.DisplayAlerts = True
    
End Sub

 

[Ömer BARAN]

Merhaba, Sayın GİZLEN cevabı vermiş sağ olsunlar.

Naçizane bir önerim var.
Kod satırlarının girintilendirilmesi işinde titizlik gösterilirse;
kod'a sonradan yapılacak ilave/düzenleme kolaylaşır, kod satırının işlem bütünü içerisindeki konumu netleşir.

Şahsen ben, girinteleme işini, sayfadaki yerleşik işlevlerin kullanıldığı formüllerde,
F2 tuşu ile hücre içerisine girildiğinde PARANTEZ işaretlerinin renklenmesi gibi düşünüyorum.
.

With Sheets("KAYITLI_ÜYE_LİSTESİ")
Set bul = .Range("b:b").Find(TextBox8, LookAt:=xlWhole)
[COLOR="Red"]    If Not bul Is Nothing Then
[/COLOR][COLOR="blue"]        TextBox7 = .Cells(bul.Row, "a").Value
        TextBox8 = .Cells(bul.Row, "b").Value
        ..................
        ..................
        TextBox26 = .Cells(bul.Row, "u").Value
        s1.Protect "12345"
[/COLOR][COLOR="Red"]    Else
[COLOR="Blue"][B]        MsgBox "Aranan Veri Bulunamadı!", vbCritical[/B][/COLOR]
[/COLOR][COLOR="red"]    End If
[/COLOR]End With

 

[1Al2Ver]

Sayın Orion1 merhaba,

Çözüm ve duyarlığınız için teşekkür ederim, sorun çözülmüştür.

Saygılarımla.

 

[Orion1]

Sayın Orion1 merhaba,

Çözüm ve duyarlığınız için teşekkür ederim, sorun çözülmüştür.

Saygılarımla.

Kod yazarken Ömer Beyinde dediği gibi girintilere dikkat ederseniz daha iyi olacaktır.
İyi çalışmalar.

 

[1Al2Ver]

Sayın Orion1 ve Sayın Ömer BARAN tekrar merhaba,

Önerileriniz ve öğretileriniz için teşekkür ederim,

Hayırlı sabahlar dilerim,

Saygılarımla.