Listbox

[erkan_hakan]

Arkadaşlar kolay gelsin
Ekteki dosyada görüleceği gibi sayfada bazı veriler var. Yapmak istediğim şu; userform açılırken daha aralıktaki verileri listbox1'e yüklüyor. Beceremediğim şu ComboBox da secili olan no ya ((Mesela 1 noyu sectim buna göre K3:L1000 aralığını listbox2'ye getirecek(buraya 1000 yazdım ama değişken)görealtındaki bilgilerin Listbox2 ye getiremiyorum ve combobox'a yatay olan sayıları listeliyemiyorum.

Kolay gelsin


danersin : Ã?neriler bölümünden buraya taşınmıştır.

 

[metinozlu]

ben listbox göremedim :?

 

[erkan_hakan]

pardon yanlış dosya yenisini gönderiyorum

 

[erkan_hakan]

Arkadaşlar kolay gelsin
Ekteki dosyada görüleceği gibi sayfada bazı veriler var. Yapmak istediğim şu; userform açılırken daha aralıktaki verileri listbox1'e yüklüyor. Beceremediğim şu ComboBox da secili olan no ya ((Mesela 1 noyu sectim buna göre K3:L1000 aralığını listbox2'ye getirecek(buraya 1000 yazdım ama değişken)görealtındaki bilgilerin Listbox2 ye getiremiyorum ve combobox'a yatay olan sayıları listeliyemiyorum.

Kolay gelsin

 

[metinozlu]

Private Sub CommandButton1_Click()

If ComboBox1.Value = 1 Then
Sheets("kullanımlar").Select
ListBox2.RowSource = "k3:l" & [k65536].End(xlUp).Row
ListBox2.ColumnCount = 2
ListBox2.ColumnHeads = True
ListBox2.ColumnWidths = "90;90"

End If

End Sub