Textboxa veri aktarımı

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki kodlarla farklı bir form üzerindeki textboxlara aktarıyorum. Fakat veriler bir sütun kayarak textboxlara geliyor nerde hata yapıyorum acaba ?

Private Sub ListBox1_Enter()
ListBox1.ListIndex = 0
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
STOK_KARTI.TextBox1 = ListBox1.Column(1)
STOK_KARTI.TextBox2 = ListBox1.Column(2)
STOK_KARTI.TextBox3 = ListBox1.Column(3)
STOK_LİSTESİ.Hide
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "0;50;0;0;0;0"
ListBox1.ColumnHeads = False
ListBox1.RowSource = "STOKLAR!A2:F" & [F65536].End(xlUp).Row
End Sub

İyi çalışmalar dilerim. :hey:

 

[Levent Menteşoğlu]

column(1) yerine column(0) yazarak devam edin.

column(0)
column(1)
column(2)

 

[Korhan Ayhan]

Teşekkürler.