Texboxtaki verinin harf harf hücrelere kayıt

[talatcd]

Selam arkadaşlar Userformdaki Textbox1 deki verinin Sayfa1 in A1,B1,C1,D1,E1 e harf harf atmasını istiyorum. yardımcı olursanız sevinirim. şimdiden saoğlun başarılar.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Then Exit Sub
For i = 1 To Len(TextBox1.Value)
Cells(1, i).Value = Mid(TextBox1.Value, i, 1)
Next i
End Sub

 

[talatcd]

Saol ripek ellerine sağlık güzel olmuş ama benim yapmak istediğim daha karışık sorumu kısa sormak için örnek olarak onu vermiştim. Aktaracaım veriler bayağı çok. yani Textbox2 aktarılacağı hücreler B5,B6,B7,B8 ve daha sonra Textbox3 ün aktarılacağı hücreler B11,B12,B13 vs vs gidiyor.15 adet textbox var ve bunlar değişik değişik yerlere harf harf aktarılacaklar.