textbox birleştirme

[GursoyC]

Merhaba,
Forumda araştırdım ancak textbox birleştirme örneklerinin tamamı başka bir textbox'ta yapılmasına yönelik.

Ben bir düğme ile;

A1 hücresinin içeriğini textbox1 & " / " & textbox2 şeklinde yapmak istiyorum.

Private Sub CommandButton2_Click()
Sheets("1").Range("A1") = TextBox1.Text & " / " & TextBox2.Text
End Sub

şeklinde denedim ancak olmadı. Satırı nasıl yazmam gerekiyor yardım eder misiniz.

 

[askm]

Aşağıdaki şekilde deneyin.
(Textboxlar sayfa1 de olduğu varsayılmıştır.)

Sub askm()
[a1] = Sayfa1.TextBox1.Value & "/" & Sayfa1.TextBox1.Value
End Sub

 

[GursoyC]

teşekkür ederim sayın askm. gayet güzel oldu.
Aynı satırda birleştirilmiş bu yazıyı büyütmek mümkün mü?
satıra upper komutunu ekleyebilir miyiz?

 

[antonio]

Bir hücredeki yazıyı büyütmek için:

[a1].Font.Size = 14

(14 yerine istediğiniz puntoyu yazabilirsiniz.)

 

[GursoyC]

Teşekkürler sayın Antonio. Ancak bahsettiğim font size değil upper yani harflerin büyük harfe çevrilmesi idi.
Saygılar,

 

[askm]

Sub askm()
[a1] = UCase(Sayfa1.TextBox1.Value) & "/" & UCase(Sayfa1.TextBox2.Value)
End Sub

 

[antonio]

...harflerin büyük harfe çevrilmesi..

Hücredeki yazının büyükharfe çevrilmesi için aşağıdaki kodları kullanabilirsiniz:

buyukharf = UCase(Replace(Replace([A1], "i", "İ"), "ı", "I"))
[A1].Value = buyukharf

 

[GursoyC]

Çok teşekkür ederim.
Saygılar,