Eklenti (.xla) Kullanımı

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,

Forumda aradım ama bulamadım.

Çalışma kitabının Thisworkbook bölümünde kullandığım bir makroyu eklenti (.xla) olarak tüm excel kitaplarında nasıl kullanabilirim?

Teşekkürler.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Thisworkbook modülü bir private modüldür yani yazıldığı kitaba aittir. Eklenti (xla) ise application nesnesine yani excel uygulamasına aittir. Bu durumda thisworkbook modülüne yazılı bir kodu eklenti olarak çalıştıramazsınız. Fakat kullandığınız kodu verirseniz belki normal modüldede aynı uygulama gerçekleştirilerek xla haline getirilebilir.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sorunuzun çözümünü, kodları application nesnesine class module ile tanımlayarak gerçekleştirdim. Ekte verdiğim dosyayı xla olara kaydederseniz eklenti olarak her dosyanızda kullanabilirsiniz.
 
Son düzenleme:
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Sayın leventm hocam,

Ne diyebilirimki!!!.Ayakta :bravo: :bravo: :bravo:

Bilginize sağlık...

Çok çok teşekkürler.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,
Bununla ilgili olarak aşağıdaki kodlarla Eklenti'den aktif kullandığım dosyanın modül kısmına deg değişkenine True ve False değerlerini atayabiliyorum.

Benim yapmak istediğim atadığım bu değeri tekrar Eklenti'de kullanmak

Örneğin kullandığım dosyanın modül kısmına eklenti ile deneme adında bir modül yaratıp buraya deg=True değerini atıyorum.

Eklentide ise hazırladığım kodlar bu deg=True değeri kullanması gerekiyor.

Kod:
Sub Durum()
On Error Resume Next
Dim s
Set s = ThisWorkbook.VBProject.VBComponents("deneme").CodeModule
If s = "deneme" Then
Set kod = ThisWorkbook.VBProject.VBComponents("deneme").CodeModule
kod.deleteLines 1
kod.InsertLines 1, "Public Const deg As Boolean=" & True
Else
Set kod = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
kod.Name = "deneme"
kod.InsertLines 1, "Public Const deg As Boolean=" & True
End If
End Sub
Kısaca Eklenti dosyasına kullandığım dosyadaki deg=True değerini almak istiyorum.

Teşekkürler.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Takrar merhaba,

Sorunun içersinden bir türlü çıkamadığım için sorum biraz net olmamış olabilir.

Sorum bir modül içersinden değişken değerini almak.

Kod:
a=ThisWorkbook.VBProject.VBComponents("deneme").CodeModule.........[B]deg[/B]
Burada deneme modülü içersinde bulunan deg=True değerini bulmak istiyorum.

Teşekkürler.
 
Üst