Değişken hücrelerden Textboxlara veri alma, hücreye geri yazma

[Arthassss]

Ekteki dosyada Farklı hücreler seçilerek açılan tek userformdan seçilen hücrenin sağındaki hücreden başlayarak sırayla Textboxs lara veri alıp, değiştirilen değerleri bir butonla tekrar aynı yelerine yazmamız mümkünmüdür.
Textboxs lardan 1 yada 2 tanesi çalışacak şekilde yazarsanız yeterli olur geri kalanını bende tamamlayabilirim.
İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub KAYIT_Click()
Dim i As Byte, sut As Integer
sut = ActiveCell.Column
For i = 1 To 5
    Cells(ActiveCell.Row, sut).Value = Controls("TextBox" & i)
    sut = sut + 1
Next i
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Byte, sut As Integer
sut = ActiveCell.Column
For i = 1 To 5
    Controls("TextBox" & i) = Cells(ActiveCell.Row, sut).Value
    sut = sut + 1
Next i
End Sub

 

[Arthassss]

Evren bey çok teşekkür ederim.
Birde 4. TextBox ile 5. TextBox arasında 3 sütunu atlamak istersek bununda bir yolu varmıdır. yoksa TextBox oluşturup gizlemekmi gerekir.

 

[Arthassss]

Evren bey çok teşekkür ederim.
Birde 4. TextBox ile 5. TextBox arasında 3 sütunu atlamak istersek bununda bir yolu varmıdır. yoksa TextBox oluşturup gizlemekmi gerekir.

Boş TextBoxlar oluşturup sorunu çözmüştüm ama TextBox boş bırakılıp geçildiği için aradaki formüller her seferinde silinmekte. Bunu önlemenin bir yolu varmıdır. yada 6 TextBox dan sonra 5 sütun atlayıp 7. sütunda işlem yapmak mümkünmüdür.

 

[Levent Menteşoğlu]

Her textboxa ayrı ayrı kod yazabilirsiniz. Örneğin:

Textboxlara verileri yüklemek için,

Private Sub UserForm_Initialize()
sat=activecell.row
textbox1=cells(sat,"c")
textbox2=cells(sat,"d")
.
.
.
End Sub

Textboxlardaki verileri tekrar kaydetmek içinde yukarıdaki işlemin tersini yapmanız yeterlidir.

 

[Arthassss]

Levent bey teşekkür ederim.
Kayıt içinde bir örnek istesem çok olurmuyum acaba?