Textboxtan veri almak

[igultekin2000]

iyi akşamlar;
Userformda Textbox1' yazdığım tarihin aynı anda textbox10' da ay formatında görme şansımız olabilir mi? teşekkürler

 

[BedriA]

iyi akşamlar;
Userformda Textbox1' yazdığım tarihin aynı anda textbox10' da ay formatında görme şansımız olabilir mi? teşekkürler

Aşağıdaki kodu formun kod alanına yapıştırıp deneyiniz.
Aşağıdaki kodu formun kod alanına yapıştırıp deneyiniz.

Private Sub TextBox1_Change()
  TextBox10.Text = TextBox1.Text
End Sub

Not: Korhan Ayhan'ın kodundan uyarlandı.
Denedim, çalışıyor.

 

[Korhan Ayhan]

Deneyiniz.

Ayın ismi için;

Private Sub TextBox1_Change()
    If IsDate(TextBox1) Then
        TextBox10 = Format(TextBox1, "mmmm")
    Else
        TextBox10 = ""
    End If
End Sub

Ayın sayısal değeri için;

Private Sub TextBox1_Change()
    If IsDate(TextBox1) Then
        TextBox10 = Month(TextBox1)
    Else
        TextBox10 = ""
    End If
End Sub

 

[igultekin2000]

ikinci kod

Deneyiniz.

Ayın ismi için;

Private Sub TextBox1_Change()
    If IsDate(TextBox1) Then
        TextBox10 = Format(TextBox1, "mmmm")
    Else
        TextBox10 = ""
    End If
End Sub

Ayın sayısal değeri için;

Private Sub TextBox1_Change()
    If IsDate(TextBox1) Then
        TextBox10 = Month(TextBox1)
    Else
        TextBox10 = ""
    End If
End Sub

ikinci kod bana uygun, çözümünüz için teşekkürler.