Textboxa koşul koyabilirmiyim?

[osmanfenerli1907]

Saygılı üstadlarım iyi akşamlar
ben tetxbox1in eğer textbox2 bugünün tarihine eşit ise sayfa2 deki c1 e eşit olmasını istiyorum.eğer textbox2 bugünün tarihine eşit değilsede mesaj yok yazmasını istiyorum.
saygılarımla
iyi akşamlar :bravo:

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If CDate(TextBox2) = Date Then
    TextBox1 = Sheets("Sayfa2").Range("C1").Value
    Else
    TextBox1 = "MESAJ YOK"
    End If
End Sub