modul adını userforma yazdırmak

[du643]

Selam Üsdatlarım
çalışan modulun adını user form'a yazdırmak istiyorum

adınne = Application.VBE.ActiveCodePane.CodeModule.Name
UserForm6.Label167 = adınne
olarak kodu yazdım fakat çalıştırdığımda hata veriyor.Ama adım adım gidersem sorun olmuyor.
yani ilk çalıştırmada hata veriyor.
yardım rica
yardımlarınıza şimdiden teşekkür eder.Emeklerinize sağlık

 

[halit3]

Çalışan modülle ilgili kod userformun adını verir kodu ilgili userformun kod bölümüne yapıştırın.

Private Sub UserForm_Initialize()
MsgBox Application.VBE.ActiveCodePane.CodeModule.Name
End Sub

 

[du643]

üsdatım birçok modul arasında geçiş yapıyorum.o an hangi modul çalışıyorsa onun adına göre diğer modullere doğru yönlenmek istiyorum.

 

[halit3]

Bütün userformların içine bu kodu yapıştırın

 

[du643]

yazdım fakat ilk başlangıç ta hata veriyor (Run time error '-2147217376 (80041020) sistem belirtilen nesneyi konumlandıramıyor.) debug tan adım adım ilerlediğim zaman değişkeni tanıyor ve sonra çalışıyor. ikinci kez çalıştırdığımda da sorun olmuyor. dosyyı ilk açtığmda tekrar hata veriyor

 

[halit3]

Userformlar için Bu kodu denermisiniz.

Private Sub UserForm_Activate()
MsgBox Me.Name
End Sub

 

[du643]

user formun adını yazıyor bana modul adları lazım
modul 1 de tanımlama
adınne = Application.VBE.ActiveCodePane.CodeModule.Name
UserForm6.Label167 = adınne
modul 2 ye göderiyorum
modul 2 ye hangi modulden geliyorsa
adınne = UserForm6.Label167
If adınne = "modul 1" Then tarih = UserForm6.fiil_ith_tar_1
....
...
...
olayım budur üsdatım

 

[du643]

eğer böyle çözemez isem application run ile çözücem sanırım.ama onada bayağı tanımlama yapmam gerekiyor her modul için ayrı ayrı

 

[halit3]

Tam olarak ne yapmak istiyorsunuz?
Modüller arasında gezinti yaptığınızda zaten makro kodları çalışmaz.