Textbox Uyari Mesaji

[OoParadiSeoO]

Arkadaşlar merhaba,
Userformda 10 adet Textbox, 10 adet Label var.
Textbox1 boş ise Label1 de ki metnin uyari mesaji olarak gelmesini istiyorum.
Örneğin, Textbox1 e veri girilmediginde "Lütfen Label1 bilgisini doldurunuz." şeklinde..
Yardımlarınız için şimdiden teşekkürler..

 

[EmrExcel16]

Merhaba , deneyiniz..

Private Sub CommandButton1_Click()
    Dim Tex
    For Each Tex In Me.Controls
        If TypeName(Tex) = "TextBox" Then
            If Tex = "" Then
                MsgBox "Lütfen " & Controls("Label" & Val(Replace(Tex.Name, "TextBox", ""))) & " bilgisini doldurunuz."
            End If
        End If
    Next
End Sub

 

[EmrExcel16]

Alternatif olarak..

Private Sub CommandButton1_Click()
    Dim Tex, Msg
    For Each Tex In Me.Controls
        If TypeName(Tex) = "TextBox" Then
            If Tex = "" Then
                Tex.SetFocus
                Tex.BackColor = &HFF&
                Msg = Msg & Controls("Label" & Val(Replace(Tex.Name, "TextBox", ""))) & "  bilgisini ," & vbNewLine
            Else
                Tex.BackColor = &H80000005
            End If
        End If
    Next
    If Msg <> "" Then
        MsgBox "Lütfen ," & vbNewLine & vbNewLine & Msg & vbNewLine & "Doldurunuz..."
    End If
End Sub

 

[OoParadiSeoO]

Ustad ikinci alternatif çok guzel olmuş emegine sağlık.. İlave olarak veri girişi yapılmamış Textbox için,
Textbox.SetFocus
Textbox. BackColor= &HFF& olayini nasıl ekleyebilirim..

 

[EmrExcel16]

#3 nolu mesajdaki kodları ve dosyayı güncelledim deneyiniz..

 

[OoParadiSeoO]

Çok teşekkür ederim gayet güzel oldu.. İyi çalışmalar dilerim ..

 

[EmrExcel16]

Çok teşekkür ederim gayet güzel oldu.. İyi çalışmalar dilerim ..

Rica ederim , iyi çalışmalar..