Text box içine veri getirme

[cenqawer]

Merhaba Yapmak istediğim örneğin sayfa 1 deki T1 hücresindeki verinin textbox a gelmesi daha sonrasında da spin butonu ile T1 T2 T2 diye sırayla aşağı doğru gitmesi bi türlü metin kutusunun içine veriyi getiremedim.

ykBIyb.png hosted at Resim Yükle - Hızlı Resim

Resim ykBIyb.png kaydedildi Resim Yükle - Hızlı Resim

imgyukle.com

 

[DoğanD]

Merhaba,

Açıklamanız ile görseli çok bağdaştıramadım açıkçası ama açıklamaya istinaden aşağıdaki kod işinizi görebilir.

Private Sub SpinButton1_Change()
UserForm1.TextBox1.Value = Sayfa1.Range("T" & SpinButton1.Value).Value
End Sub
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Value = Sayfa1.Range("T1").Value
UserForm1.SpinButton1.Min = 1 'Bu satır yerine SpinButton özelliklerinden Minimum değeri 1 olarak ayarlayabilirsiniz. 
End Sub

 

[alicimri]

TextBox pek uygun olmuyor. ListBox kullanmak sizin için uygunsa

Private Sub SpinButton1_SpinDown()
On Error Resume Next
ListBox1.RemoveItem SpinButton1.Value
End Sub

Private Sub SpinButton1_SpinUp()
ListBox1.AddItem Range("T" & SpinButton1.Value)
End Sub