textbox da veri birleştirmek

[sametumur]

arkadaşlar merhaba,

aşağıda iki sorum var. ilgilenen arkadaş olursa sevinirim.


soru:1

Textbox1 de tarih verisi yer alıyor. örn (07.04.2017)

textbox1 e tarih verisi girildiği anda textbox5 e tarih verisinin son iki hanesi yazılsın istiyorum. (örn. textbox1=07.04.2017 iken "17" yazsın, textbox1=07.04.2018 iken "18" yazsın istiyorum.

soru:2

textbox4 de yazan rakam ile textbox5 de yazan rakamları birleştirip, excel sheet1 in B5 hücresinde yazsın istiyorum (örn.: textbox4=164 ve textbox5=17 iken commadbutton1 e tıkladığımda sheet1 in B5 hücresi 16417 yazsın istiyorum.)

 

[Ömer]

Merhaba,

Cevap1:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox5 = Format(TextBox1.Text, "yy")
End Sub

Cevap2:

Private Sub CommandButton1_Click()
    Sheets("Sheet1").Range("B5") = TextBox4 & TextBox5
End Sub

.

 

[sametumur]

aşağıdaki kodu uyguladığımda diğer textbox lara geçtiğimde (tab veya mouse ile tıklama ile) yazmıyor. textbox a tarih verisini girince enter a tıkladığımda yazıyor. her türlü yazması için yapılacak bi şey var mı?

soru:1

Textbox1 de tarih verisi yer alıyor. örn (07.04.2017)

textbox1 e tarih verisi girildiği anda textbox5 e tarih verisinin son iki hanesi yazılsın istiyorum. (örn. textbox1=07.04.2017 iken "17" yazsın, textbox1=07.04.2018 iken "18" yazsın istiyorum.

cevap:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5 = Format(TextBox1.Text, "yy")
End Sub