!!!modülde ki macrolarımı nasıl başlatabilirim??

[a_self_lion]

Arkadaşlar Selam benim küçük bir sorunum var bir türlü bulamıyorum modüle yazdığım bir kod dizimim var bu listbox_yenile bunu bir çok yerde kullanıyorum ve heryere yazmak aynı kodları dosyamın büyümesine neden oluyor modüle yazdım bu kodları ama nasıl (yani command button içine yazdığım kodların en sonunda da bu listbox_yenile macrosunu çağırmam lazım ki bunun nasıl yapılacağını bilmiyıorum) teşekkürler

 

[Levent Menteşoğlu]

kodun en sonuna prosedürün adını yani listbox_yenile yazmanız yeterlidir.

 

[a_self_lion]

Sub listbox_yenile()



' LİST BOX A VERİLERİ AKTARIR

Worksheets("RAPOR").Select
Cells.ClearContents
Worksheets("Veri").Select
[A7].Select
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter Field:=2, Criteria1:=">=" & CLng(DTPicker1.Value), Operator:=xlAnd, Criteria2:="<=" & CLng(DTPicker1.Value)
Selection.AutoFilter Field:=18, Criteria1:="<>ALN"
Selection.AutoFilter Field:=25, Criteria1:="<>YANLIŞ"
Range("A7:Y64000").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("RAPOR").Select
Range("a1").Select
ActiveSheet.Paste
Range("a1").Select
Worksheets("Veri").Select
Range("a7").Select
Selection.AutoFilter
Worksheets("RAPOR").Select
b = Worksheets("RAPOR").Range("A65536").End(xlUp).Row

ListBox1.RowSource = "RAPOR!a2:Y" & b

Worksheets("Veri").Select

cbDepartman.SetFocus

End Sub

Sayın Leventm command button sonunda iken bu kodlar hatasız çalışıyordu fakat madüle ekeldim ve koyu olan satıra geldiği zaman hata veriyor hatanın ne olduğunu anlayamadım