textboxtan excele veri aktarımı

[aptillah]

merhabalar benim sorunum bir userfrom yaptım userfomda 53 tane textbox var . bu textboxlara yazdığım verilerin excel e gitmesini istiyorum .gnderdiğim çalışma sayfasında da göreceksiniz sayfa 1 de yazılmış a1231-b1231 vs bilgiler var ben textboxa yazdıkça ordaki sutünlara gitmesini istiyorum yardımlarınız için şimdiden teşşekkür ederim...

 

[İhsan Tank]

açıklaman yetersiz kalmış başlıklar birbirine uymuyor

 

[aptillah]

açıklaman yetersiz kalmış başlıklar birbirine uymuyor

ihsan hocam bir userform hazırladım bu userformda 53 textbox var bu textboxa yazdıgım değerlerin excele gitmesini istiyorum fakat verilerin gideceği hücreler farklı sutünlarda olduğu için yardıma ihtiyacım var

 

[İhsan Tank]

hangi sütunlara gideceğini yazmamışsınız sorun orda yazarsanız ona göre yardım etmeye çalışacağım

 

[aptillah]

userfomda a31 yazan yerdeki textboxlar a2,a3,a4 diye gidecek diğerleri içinde aynı işlem b31 kısmı b2,b3,b4 diye gidicek...

 

[İhsan Tank]

userfomda a31 yazan yerdeki textboxlar a2,a3,a4 diye gidecek diğerleri içinde aynı işlem b31 kısmı b2,b3,b4 diye gidicek...

merhaba
sizin yazdığınız kodlarda bir sıkıntı yok aynı veriyi göstermesindeki sebep ise
range("A2").value=textbox1.value

kırmızı yerleri hangi textbox ise ona göre yazın normal çalışıyor
altenatif kod için

Private Sub TextBox[COLOR="Blue"]13[/COLOR]_Change()
[B2] = TextBox[COLOR="blue"]13[/COLOR].Value
End Sub

bu kod işinizi görür. mavi olan yerlere dikkat ediniz

 

[aptillah]

merhaba
sizin yazdığınız kodlarda bir sıkıntı yok aynı veriyi göstermesindeki sebep ise
range("A2").value=textbox1.value

kırmızı yerleri hangi textbox ise ona göre yazın normal çalışıyor
altenatif kod için

Private Sub TextBox[COLOR="Blue"]13[/COLOR]_Change()
[B2] = TextBox[COLOR="blue"]13[/COLOR].Value
End Sub

bu kod işinizi görür. mavi olan yerlere dikkat ediniz

hocam benim istediğim tek mi tuşla yapma şansım yokmu bu olayı yoksa tek tekmi yazmak gerekiyor her textboxa kodu

 

[İhsan Tank]

hocam benim istediğim tek mi tuşla yapma şansım yokmu bu olayı yoksa tek tekmi yazmak gerekiyor her textboxa kodu

hayır bir tane combobox oluşturun

Private Sub CommandButton1_Click()
[A2] = TextBox1.Value
[A3] = TextBox2.Value
End Sub

bu şekilde yapabilirsiniz.
yada uzman arkadaşlar döngü yolu ile halledebilirsiniz.

 

[aptillah]

yardımların için çok sağol hocam teşekkür ederim

 

[İhsan Tank]

yardımların için çok sağol hocam teşekkür ederim

rica ederim
:yazici: