textbox

[samed32]

soru 1 :6 adet texbox var texbox 1,3,5 deki yazılanlar excel sayfa1 deki a1,a2,a3 hücrelerine nsıl yazdırılır yani texbox yazınca hücreyede yazılsın...


soru 2: excel sayfa1 deki b1, b2 ,b3 yazılanlar ise texbox 2,4,6 a sırayla nasıl yazdırılır yani hücredeki deger texbox 2,4,6 da da görülürmü

teşekkürler...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim sat As Byte
sat = 1
For i = 1 To 5 Step 2
    Cells(sat, "A").Value = Controls("TextBox" & i).Value
    sat = sat + 1
Next i
End Sub

Private Sub UserForm_Initialize()
Dim sat As Byte
sat = 1
For i = 2 To 6 Step 2
    Controls("TextBox" & i).Value = Cells(sat, "B").Value
    sat = sat + 1
Next i
End Sub

 

[samed32]

teşekkürler inceleyip yapmak istedigim calısmaya entegre etmeye calışacagım