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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.