Soru Kısayol veya Makro ile VBA'yı Açmak

[TURKOLOG]

Herkese merhaba
Excelde buton yapıp butona tıklayınca vbayı otomotik açmayı istiyorum.
Yardım edebilecek var mı acaba

 

[Haluk]

Excel'in menü çubuğunda "Developer-Geliştirici" sekmesini ekleseniz olmuyor mu?

Kısayol ise Alt+F11

.

 

[TURKOLOG]

Hayır. Şekillerle bir buton yapacam butona tıklayınca vba açılıyor. Elimde bol bol başka bir yere ait reklamı olan bir dosya var .linke butona tıklayınca vba otomotik açılıyor. Sanırsam köprü yöntemi ile yapmış ama farklı br yol uygulamış. Reklamını yapmamak adına yuklemek istemedim.

 

[TURKOLOG]

Örnek dosyayı ekledim vba koda gözat diyince vba açılıyor ama mantığını çözemedim. Yardım edebilecek var mı acaba

 

[Seyit Tiken]

Bu şekilde ilgili menüleri eklediğinizde kolaylıkla istediğiniz yeri açarsınız.

 

[YUSUF44]

Örnek dosyayı ekledim vba koda gözat diyince vba açılıyor ama mantığını çözemedim. Yardım edebilecek var mı acaba

Ben de merak ettim, nasıl yapılmış acaba?

 

[TURKOLOG]

Bu şekilde ilgili menüleri eklediğinizde kolaylıkla istediğiniz yeri açarsınız.
Ekli dosyayı görüntüle 213448

Malesef bu işlem işimi görmüyor. Seyit Bey

 

[TURKOLOG]

Örnek dosyayı ekledim vba koda gözat diyince vba açılıyor ama mantığını çözemedim. Yardım edebilecek var mı acaba

Örnek dosyadaki durumu çözebilecek olan var mi acaba

 

[Mahmut Bayram]

Böyle bir şey işiniz görmez mi?
Güven Merkezi-Makro Ayarları-VBA projesi nesne modeli erişimine güven
işaretli olmalı.

Sub ac()
Application.VBE.MainWindow.Visible = True
End Sub

 

[Haluk]

Söz konusu işlem manuel olarak yapılmış değil, örnek dosyadaki Module2 içinde yer alan bir kodla yapılmış ve daha sonra işi bitince modülden silinmiş.... Herhalde paylaşılmak istenmemiş veya konuyla ilgisi yok diye silinmiş....

Basit bir kod, çok zor değil ....

.

 

[Haluk]

Merak edenler için, ilgili kod ekli dosyada verilmiştir...

Diğer yandan; 4 No'lu mesajın ekindeki örnek dosyadaki hyperlinki manuel olarak görmek veya değiştirmek istersek, o zaman aşağıdaki resimde belirtilen ilgili XML dosyasından yararlanmak gerekir. Burada, sözkonusu hyperlink'e "Target" olarak "exceldestek" atanmış olduğunu görürürüz.



.

 

[TURKOLOG]

Sayın @Mahmut Bayram Bey ve Sayın @Haluk Bey ilgi ve alakanız için çok teşekkür ederim .
Mesajınızı yeni gördüm . Ailem Elazığ'da yaşandığından aklım onlarda . Ama çok şükür sağlıkları iyi. Bunun için yanıtlarınızı denedikten sonra size dönüş yapacağım .

 

[Haluk]

.....
... Ailem Elazığ'da yaşandığından aklım onlarda . Ama çok şükür sağlıkları iyi. Bunun için yanıtlarınızı denedikten sonra size dönüş yapacağım .

Çok geçmiş olsun...

.

 

[TURKOLOG]

Çok geçmiş olsun...

.

Çok teşekkür ederim @Haluk Bey.

 

[Suskun]

Vba Modul2 içinde Toplama adlı işlev yada yordam olsun.
Aşağıdaki makroyu bir tuşa atayıp çalıştırdığınızda VBE Toplama kodlarına gider

Sub VBEGoster()
    With Application
        '.Goto "Module2.Toplama"
         .Goto "Toplama"
    End With
End Sub

 

[TURKOLOG]

Sayın @Mahmut Bayram dediklerinizi yaptım . Sayın @Mahmut Bayram Sayın @Suskun verdiğiniz kodları malesef ofis 2016 64 bit sürüm ofisimde çalıştıramadım .
Sayın @Haluk Bey Test ve Test2 dosyanızın ikisi de çalıştı. Ama burdan detaylı anlatma imkanınız varsa eğer kendi projeme bu işlemi eklemek isterim