Veri Çağırma (COMBOBOXLARA VERİLER GELMİYOR)

[ferhan66]

Merhaba excellde biraz acemiyim. veri bankasında güncelleme yapmak istediğimde User form üzerindeki listboxta herhangi bir isme çift tıkladığımda tüm bilgiler textboxlara geliyor. fakat comboboxlara gelmiyor. bununla ilgili kod bulamadım.yardım ederseniz sevinirim.

KODLAR AŞAĞIDAKİ GİBİ:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "100;200"
ListBox1.RowSource = "Veri!D2:C" & Sheets("Veri").Range("A65536").End(xlUp).Row
Bulunan_Satir_No = ListBox1.ListIndex + 2
TextBox1.Text = Sheets("Veri").Range("D" & Bulunan_Satir_No).Value
TextBox2.Text = Sheets("Veri").Range("E" & Bulunan_Satir_No).Value
TextBox3.Text = Sheets("Veri").Range("F" & Bulunan_Satir_No).Value
TextBox32.Text = Sheets("Veri").Range("G" & Bulunan_Satir_No).Value
TextBox31.Text = Sheets("Veri").Range("H" & Bulunan_Satir_No).Value
TextBox30.Text = Sheets("Veri").Range("L" & Bulunan_Satir_No).Value
TextBox29.Text = Sheets("Veri").Range("M" & Bulunan_Satir_No).Value
TextBox28.Text = Sheets("Veri").Range("N" & Bulunan_Satir_No).Value
TextBox27.Text = Sheets("Veri").Range("O" & Bulunan_Satir_No).Value
TextBox26.Text = Sheets("Veri").Range("P" & Bulunan_Satir_No).Value
TextBox25.Text = Sheets("Veri").Range("Q" & Bulunan_Satir_No).Value
TextBox24.Text = Sheets("Veri").Range("W" & Bulunan_Satir_No).Value
TextBox23.Text = Sheets("Veri").Range("Y" & Bulunan_Satir_No).Value
TextBox22.Text = Sheets("Veri").Range("Z" & Bulunan_Satir_No).Value
TextBox21.Text = Sheets("Veri").Range("AA" & Bulunan_Satir_No).Value
TextBox20.Text = Sheets("Veri").Range("AB" & Bulunan_Satir_No).Value
TextBox19.Text = Sheets("Veri").Range("AC" & Bulunan_Satir_No).Value
TextBox18.Text = Sheets("Veri").Range("AD" & Bulunan_Satir_No).Value
TextBox17.Text = Sheets("Veri").Range("AV" & Bulunan_Satir_No).Value
TextBox16.Text = Sheets("Veri").Range("AZ" & Bulunan_Satir_No).Value
TextBox15.Text = Sheets("Veri").Range("BA" & Bulunan_Satir_No).Value
TextBox14.Text = Sheets("Veri").Range("BB" & Bulunan_Satir_No).Value
TextBox13.Text = Sheets("Veri").Range("BC" & Bulunan_Satir_No).Value
TextBox12.Text = Sheets("Veri").Range("BD" & Bulunan_Satir_No).Value
TextBox11.Text = Sheets("Veri").Range("BE" & Bulunan_Satir_No).Value
TextBox10.Text = Sheets("Veri").Range("BF" & Bulunan_Satir_No).Value
TextBox9.Text = Sheets("Veri").Range("BG" & Bulunan_Satir_No).Value
TextBox8.Text = Sheets("Veri").Range("BH" & Bulunan_Satir_No).Value
TextBox7.Text = Sheets("Veri").Range("BI" & Bulunan_Satir_No).Value
TextBox6.Text = Sheets("Veri").Range("BJ" & Bulunan_Satir_No).Value
TextBox5.Text = Sheets("Veri").Range("BL" & Bulunan_Satir_No).Value
TextBox4.Text = Sheets("Veri").Range("BO" & Bulunan_Satir_No).Value
TextBox34.Text = Sheets("Veri").Range("BP" & Bulunan_Satir_No).Value
TextBox33.Text = Sheets("Veri").Range("BQ" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("I" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("J" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("K" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("R" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("S" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("V" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AH" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AN" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AS" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AT" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AU" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AW" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AX" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("AY" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("BK" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("BM" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("BN" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("BR" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Veri").Range("BS" & Bulunan_Satir_No).Value

End Sub

 

[asi_kral]

Hep Combobox1 yazmışsınınız bundan kaynaklanıyor olabilir.
Ayrıca dosya ekleseydiniz daha net yanıtlar verebilirdik.

 

[ferhan66]

Teşekkür ederim. Dediğiniz gibi kopyala yapıştır yapıp düzeltmeyi unutmuşum. Allah razı olsun.

 

[asi_kral]

Teşekkür ederim. Dediğiniz gibi kopyala yapıştır yapıp düzeltmeyi unutmuşum. Allah razı olsun.

Kolay Gelsin.