Hücre aralığını controlsource ile textbox sıralı bağlama

[mrttrn]

Private Sub UserForm_Initialize()
TextBox1.ControlSource = "A1"
End Sub

Aşağıda verilen kodu yukarıdaki koddan esinlenerek yapmak istedim.Beceremedim.Yardımcı olursanız memnun olurum.

Private Sub UserForm_Initialize()
Set GİR = Worksheets("GİRİŞ")
SpinButton1.value=1
  For i = 1 To 10
  Controls("TextBox" & i ).ControlSource = GİR.Cells(SpinButton1.Value , i )
  Next i
End Sub

Yapmak istediğim GİRİŞ sayfasındaki ilk satırın 10 hücresini sırasıyla TextBox lara bağlamak.
Ayrıca;
SpinButton1.value =2 değeri olursa
2. satırın ilk 10 hücresini yeniden bağlamama engel var mı?

 

[Orion1]

Bir engel yok .Bu şekilde olmadımı?
Ayrıca 2nci satırı denemk için spinbuttton değerini bir artıtıp sonucu gözlemleyebilirsdiniz.

 

[Orion1]

Aşağıdaki gibi deneyin

Controls("TextBox" & i ) = GİR.Cells(SpinButton1.Value , i )

 

[mrttrn]

TextBox ile Hücreleri bağlamak istiyorum. Amacım aktarma değil. Hücreye yada textBoxa ne girersem diğerine otomatik aktarılması.

galiba problem şurada oluyor.
TextBox1.ControlSource="A1" oluyor ama benim belirtiğim kodda
ise " " (den den işareti) arasında belirtememekten kaynaklanıyor.

 

[Orion1]

3 numaralı mesajıma bakınız.

 

[mrttrn]

TextBox ile Hücreleri birbirine bağlamak istiyorum. Amacım aktarma değil. Hücreye yada textBoxa ne girersem diğerine otomatik aktarılması.

galiba problem şurada oluyor.
TextBox1.ControlSource="A1" oluyor ama benim belirtiğim kodda
ise " " (den den işareti) arasında belirtememekten kaynaklanıyor.