Listboxtaki Verilerin Textboxlara Gelmemesi

[ademb28]

İyi Bayramlar,

Arkadaşlar benim sorunum listboxtaki verilerin textboxlara gelmemesi. Siz değerli arkadaşlardan sorunun çözümü konusunda yardımlarınızı rica ediyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Not: Excel dosya boyutu 6.873 KB

 

[NBATMAN]

Merhaba,

Öncelikle bir düzeltme yapmanız gerekiyor. Sizin 18 adet Textboxunuz varken bu text boxların isimleri aşağıdaki Listbox1 click deki kodda bulunan döngünün dışında kalıyor. Yani Textbox1...Textbox18 arasında olması greken isimler Textbox2 ile Textbox25 arasında. Bu textboxların isimlerini 1 ile 18 arasında olacak şekilde düzeltiniz...

Kodlarınız da aşağıdaki Kırmızı ile işaretli değişikliği yapınız...

Private Sub ListBox1_Click()
Dim a As Integer
'listbox kutusuna çift tıklattığınızda
For a = 0 To 17
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next
'TextBox2 = TextBox2.Text
'sat = ListBox2.ListIndex + 1
'Range("b" & sat & ":t" & sat).Interior.ColorIndex = 6
End Sub



Private Sub UserForm_Initialize()
Dim i As Long
ComboBox1.Clear 'Combobox semildiğinde tüm alnlar siler
For i = 12 To Range("a65535").End(3).Row
ComboBox1.AddItem Cells(i, 2)
Next i


'userform kurulduğunda(açıldığında) yapılacak işlemler.
ListBox1.ColumnCount = 18
'liste kutusunun 8 sütun olacağı
'ListBox1.ColumnWidths = "80;100;80;200"
'kolonların uzunlukları
ListBox1.RowSource = "c12:T" & Sheets("Depo").[a65536].End(3).Row
'Label34.Caption = Worksheets("Depo").Range("B1").Text
'Label35.Caption = Worksheets("Depo").Range("C1").Text
'Label36.Caption = Worksheets("Depo").Range("D1").Text
'Label37.Caption = Worksheets("Depo").Range("E1").Text



End Sub

 

[Emir Hüseyin Çoban]

. . .

Fazla incelemedim ancak şu kısımdan kaynaklanıyor olabilir.

For a = 0 To 18
Controls("textbox" & a + 2) = ListBox1.Column(a)

Textbox18 e kadar işlem yaptırıyorsunuz, ancak formunuzda Textbox15 16 yok.
Formuzundaki nesnelerin ismini düzenlemeniz gerekiyor veya kodların basına

on error resume next

kodlarını ilave edin.

. .

 

[ademb28]

Cevaplarınız için teşekkür ederim. Gerekli düzeltmeleri yapmaya çalışacağım. Takıldığım yerlerde yardımlarınıza başvurabilirim.