Modül icerigini listelemek..

[xrolexx]

Merhaba arkadaslar,

Bir dosyamda herbir modülün icerisinde de bir kac tane fonksiyon var.

Makroda bunlari ;

"Call xxxx" diye cagiriyorum.

Bazen calisirken "Call xxxx" diye cagirdigim bir fonksiyonu editlemek istiyorum ancak hangi modülde oldugunu bulmak zaman kaybettiriyor.

Kisacasi bir modülde hangi fonksiyonlar var bunlari listeleme sansimiz olabilir mi?

Ya da hangi fonksiyon hangi modülün icerisinde bunlari nasil cabuk bir sekilde görebilirim?

Simdiden tesekkürler..

 

[uzmanamele]

merhaba
vba içersinde find (ctrl+f) (dürbün) ile bulabilirsiniz

 

[xrolexx]

Tesekkürler fakat istedigim bu degildi ;-) Mesela, bir userformun kod sayfasindayken "Call xxxx" diye cagirdigim bir fonksiyon hangi modülde bunu bilmek istiyorum..

Bir userformun icinde veya baska bir yerde Ctrl+f yapmak cözüm olmadi..Direkt o modülün icinde Ctrl+f yapmakdiktan sonra ;-)

 

[uzmanamele]

merhaba
find penceresinde "currend project" işaretleyin, sonra aramak istediğiniz şeyi yazarak find next tıklayın

 

[Haluk]

Merhaba;

Ekli dosya bu konuda bir fikir verebilir....


.

 

[xrolexx]

Haluk bey aslinda teorik olarak istedigim seyin ekteki dosyada oldugunu söyleyebilirim fakat pratikte dosyanizdaki makroyu calistiramiyorum

Sub ListProcedures()
Sheets("Sheet1").ComboBox1.Clear
For Each CodeMod In ThisWorkbook.VBProject.VBComponents
Set MyMod = ThisWorkbook.VBProject.VBComponents(CodeMod.Name).CodeModule
With MyMod
Start = .CountOfDeclarationLines + 1
Do Until Start >= .CountOfLines
MyProc = .ProcOfLine(Start, 0)
Start = Start + .ProcCountLines(.ProcOfLine(Start, 0), 0)
Sheets("Sheet1").ComboBox1.AddItem MyProc & " - " & MyMod.Name
Loop
End With
Next
End Sub

Bu satirda hata veriyor nedenini anlayamadim?

 

[Haluk]

Kullandığınız Ofis versiyonundan kaynaklanıyor.

Güvenlik ayarlarında bir yerlerde "....VB projelerinde erişime izin ver" ..... gibisinden bir seçenek olması lazım. Bu kısmı onaylayın, dosyayı kapatıp tekrar açın.

.

 

[xrolexx]

Yapmis oldugum baska bir calismadan dolayi cevremdeki tüm bilgisayarlarda bunu sahsen yapmis olmama ragmen kendi PC'mde bunu atlamisim )

Tesekkürler..