Dosya ve Yılı / İle Birleştirme

[Hasangencel]

Herkese hayırlı sabahlar,
Bir UserFormum var. Formun TextBox5 'inde Dosya Yılı (Örnek: 2024) ve TextBox6 'sında Dosya No (Örnek: 3569) var.
Bu iki TextBox'daki bilgileri girdiğimde UserFormun en sonundaki TextBox15'e otomatik olarak 2024/3569 yazsın ve bu TextBox15'e müdahale edilemesin istiyorum.
Yardımcı olabilirseniz sevinirim.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub TextBox5_Change()
    TextBox15 = TextBox5.Text & "/" & TextBox6.Text
End Sub

Private Sub TextBox6_Change()
    TextBox15 = TextBox5.Text & "/" & TextBox6.Text
End Sub

Private Sub UserForm_Initialize()
TextBox5 = "2024"
TextBox6 = "3569"
TextBox15 = TextBox5.Text & "/" & TextBox6.Text
TextBox15.Enabled = False
End Sub

 

[Hasangencel]

Çok teşekkür ederim. Artık TextBox5 ve TextBox6 'ya girdiğim değerler TextBox 15'e birleştirilmiş olarak geliyor (2024/3569 gibi) .
ama formu kaydet dediğimde ilgili excel satırına 1 şeklinde yazıyor. Ben excele de 2024/3569 olarak getirsin diyorum. Hücreleri biçimlendirden uğraştım yapamadım veya ben beceremedim (bu arada ilgili sütun şu an "sayı" formatında). Ne yapabiliriz?

 

[hamitcan]

İlgili sütunu ya Genele çevirin ya da kod satırını aşağıdaki gibi değiştirin.

[a1] = "'" & TextBox15.Text

 

[Hasangencel]

Teşekkür ederim.