Arkadaşlar userformum ve verilerim var. Ekli olan verileri düzenlemeye çalışıyorum. Normal verileri combobox ve textboxlara yazdırabiliyorum ancak checkboxlara veri yazdıramıyorum. Hata veriyor. Kodlarım ve hata ise aşağıdaki gibi. Yardımlarınızı bekliyorum. Şimdiden teşekkür ederim
Hata olarak : could not get the column property. invalid argument hatası alıyorum.
Hata olarak : could not get the column property. invalid argument hatası alıyorum.
Kod:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 0 To 51
Controls("textbox" & 3) = ListBox1.Column(1)
Controls("combobox" & 5) = ListBox1.Column(2)
Controls("textbox" & 9) = ListBox1.Column(3)
Controls("textbox" & 1) = ListBox1.Column(4)
Controls("combobox" & 1) = ListBox1.Column(5)
Controls("textbox" & 2) = ListBox1.Column(6)
Controls("combobox" & 3) = ListBox1.Column(7)
Controls("combobox" & 2) = ListBox1.Column(8)
Controls("textbox" & 10) = ListBox1.Column(9)
Controls("textbox" & 7) = ListBox1.Column(10)
Controls("textbox" & 8) = ListBox1.Column(11)
Controls("textbox" & 11) = ListBox1.Column(12)
Controls("checkbox" & 1) = ListBox1.Column(13)
Controls("checkbox" & 2) = ListBox1.Column(14)
Controls("checkbox" & 3) = ListBox1.Column(15)
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":m" & sat).Interior.ColorIndex = 16
End SubPrivate Sub UserForm_Initialize()
CommandButton1.Enabled = False
TextBox3.SetFocus
ListBox1.ColumnCount = 16
ListBox1.ColumnWidths = "15;80;60;1;"
ListBox1.RowSource = "a2:m" & [a65536].End(3).Row
Me.Top = 40
Me.Left = 80
End Sub