ListBox Çalışmıyor

[neo]

:hey: Herkese Merhaba

Dostlar, Rehber sayfasındaki bazı veriler UserForm üzerindeki ListBox a aktarıp ComBox taki ölçülere göre sıralamasını istiyorum ama ListBox a verileri alamıyorum . Siteden Yararlandım ama olayı bir türlü çözemedim dosya ektedir yardımlarınızı bekliyorum saygı ve sevgilerimle

 

[Levent Menteşoğlu]

Userform5 e aşağıdaki kodu yazarak deneyin.

[vb:1:059521b2cc]Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Sheets("Rehber").Range("B: D,K:L").Copy
Sheets("sayfa3").[a1].PasteSpecial Paste:=xlValues
Sheets("sayfa3").Rows(1).Delete
Application.CutCopyMode = False
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "80;80;80;80;80;80"
ListBox1.RowSource = "sayfa3!a1:e" & Sheets("sayfa3").Cells(65536, 1).End(xlup).Row
End Sub[/vb:1:059521b2cc]

 

[neo]

Sn:leventm
Þöyle bi hata verdi ; Run- time error 1004
Application defined or object defined error


sanırım Sheets("Rehber").Range("B, K:L").Copy kodla ilgili
yardımlarınız içi teşekkur ederim

 

[Levent Menteşoğlu]

Range("B: D,K:L).copy olacaktı.

 

[neo]

sn leventm

yardımınız için teşekkurederim