3 textbox tek hücreye

[Fuat Şirin]

arkadaşlar

3 textbox ım var

bunlarda hesap yapıyorum

3*4 12

gibi tek hücreye yazdırmak istiyorum

nasıl yaparım

 

[Ayhan Ercan]

Merhaba

Ekteki Örnek dosyayı inceleyiniz...
İstediğiniz böyle birşeymi?

 

[Fuat Şirin]

anlatmak istediğim o değil hocam
3 textboxı bir hücreye birleştirmek
dediğim

yani şöle

textbox1 textbox2 textbox3

2 3 6

gibi giriş yapıcam
kodlarla çarpımını yapıyorum
hücreye "6" değilde
"2*3=6"
gibi tek hücreye yazmasını istiyorum
saygılar şimdiden

 

[Fuat Şirin]

=BİRLEŞTİR(L12;K12;M12)
bu kodu
textboxta yapmak istiyorum

 

[Skorpiyon]

Sayın parlemenn,

İstediğiniz böyle bir şey mi ?

 

[Fuat Şirin]

evet hocam tam olarak bölede
bunu mesela
alt alta girmek istiyorum
onu nasıl yaparım
a1
a2
a3
..
gibi

devamlı
en son boş hücreden devam edecek şekilde

 

[Skorpiyon]

Textboxlara 2. kez yazdığınız veri A2'ye mi gelecek diyorsunuz. Ve bu şekilde her girişte bir alt satıra.

 

[Skorpiyon]

Eğer üstteki mesajda belirtiğim şekilde ise, kodları aşağıdakiler ile değiştirin.

Private Sub CommandButton1_Click()
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1 & " " & "x" & " " & TextBox2 & " " & "=" & " " & TextBox3
TextBox1 = "": TextBox2 = "": TextBox3 = ""
TextBox1.SetFocus
'Veya textbox3'ü kaldırarak aşağıdaki şekilde de yazabilirsiniz.
'Range("A1") = TextBox1 & " " & "x" & " " & TextBox2 & " " & "=" & " " & Val(TextBox2) * Val(TextBox3)
End Sub