TexBox lardan veri alma

[shocaoglu]

Arkadaşlar iki adet ayrı Texboxta yazdığım veriyi tek commandbuttona bastığımda A çalışma sayfasında a1 hücresine arada " / " işareti olarakaktarmasını istiyorum. ikisini ayrı hücrelere aktarabiliyorum fakat aynı hücreye aldıramıyorum.

Şimdiden yardımlarınız için teşekkürler

 

[shocaoglu]

Dosyam ektedir.

 

[xxrt]

Bunu deneyin.
Private Sub CommandButton1_Click()
[a1] = TextBox1.Value & "/" & TextBox2.Value
End Sub

 

[shocaoglu]

Merhaba

Sayın xxrt yazdığınız kod gönderdiğim dosyada doğru çalışıyor.Fakat ben dosyayı eksik yapıp sizi yanlış yönlerdirdiğim için özür dilerim.

Şöyle izah etmeye çalışayım.

Texbox1 ve texbox2 ye yazılan değerler a1 hüvresine "/" olarak gelecek texbox3 a2 hücresine texbox4 ve 5 a3 hücresine getirmeye çalışıyorum. Bu şekilde 24 adt txbox um mevcut.Hepsi düzenli sıra ile gitmiyor.

ekli dosyayı düzenleyip tekrar gönderiyorum

 

[shocaoglu]

Arkadaşlar sorunumu aşağıdaki gibi düzelttim

Private Sub CommandButton4_Click()
Set fa = Sheets("GİRİŞ FİŞİ")
say = WorksheetFunction.CountA(fa.Range("B1:B65536"))
fa.Range("b6") = TextBox9
fa.Range("b7") = TextBox10 & "/" & TextBox11.Value

yardımlarınız için tekrar teşekkürler....