Bir makroyu çalışma kitaplarında ortak kullanma

[bafralifatih55]

Merhabalar değerli arkadaşlar.
arkadaşlar ben bir excel dosyasında bir giriş kontrolü makrosu yazdım. Yani Excel kitabı başladığında şifre istiyor ve kayıtlı olan şifreler arasından kontrol sağlıyor.
Ben bu giriş makrosunu diğer hazırladığım 2 tane çalışma kitabında da kullanmak istiyorum. Ama bu makroyu diğerlerine içe aktararak kullandığımda makro üzerinde bir güncelleme olursa diğerlerine de tek tek yansıtmam gerekiyor. Acaba bu yazdığım makroyu bu şekilde ortak bir noktadan kullanma şansımız var mı?
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Makronuzu PERSONAL.xls/PERSONAL.xlsb/PERSONAL.xlsm dosyasına kayıt ederseniz tüm dosyalarınızda kullanabilirsiniz.

 

[bafralifatih55]

Merhaba hocam ne demek istediğinizi tam anlayamadım. Biraz daha açıklayabilir misiniz?

 

[Korhan Ayhan]

Konuyla ilgili forumda örnekler var. Lütfen arama yapınız.

 

[Korhan Ayhan]

Bu linkte konuyla ilgili açıklamalar var.

Tek bir çalışma kitabında tüm makrolarınızı oluşturma ve kaydetme

 

[bafralifatih55]

Merhaba
Hocam bu makaleyi görmüştüm Deneme fırsatı bulamamıştım. İnşallah buradan içe aktararak kullanmak zorunda kalmam.

 

[bafralifatih55]

Bu linkte konuyla ilgili açıklamalar var.

Tek bir çalışma kitabında tüm makrolarınızı oluşturma ve kaydetme

Merhaba
Hocam bu makroları naasıl çağırabiliriz? Yada bunları kopyalamamız mı gerekir? Bu konuda bir bilginiz var mı?

 

[muratgunay48]

Merhaba
Hocam bu makroları naasıl çağırabiliriz? Yada bunları kopyalamamız mı gerekir? Bu konuda bir bilginiz var mı?

@Korhan Ayhan hocamın söylediği, makrolarınızı. Deneme kısmına değil, Personal kısmına kaydedeceksiniz.
Dosya konumu C:\Users\muratgunay48\AppData\Roaming\Microsoft\Excel\XLSTART

 

[bafralifatih55]

Mehaba
Tamam hocam zaten oraya kayıt edeceğim. Bunu öğrendim. Ama deneme dosyasından bunlara Application.Run ile mi erişmek gerekir? yoksa bunları oraya kopyalamak mı gerekir.

 

[Korhan Ayhan]

XLSSTART klasörüne kayıt ettiğiniz dosya her açtığınız excel dosyası ile birlikte açılır. Bu sebeple Alt+F8 tuşuna bastığınızda PERSONAL.xlsb dosyasındaki makrolara erişebiliyor olmanız gerekir.

 

[bafralifatih55]

Merhaba
Korhan hocam makrolara erişebiliyorum. Ancak benim sormak istediğim şu: Buradaki makroları örneğin ben kitap1 içinde kullanmak istediğimde ortak noktadan kopyala yapıştır mı yapmam gerekiyor? Yoksa Application.Run ile çağırmak mı gerekiyor yada farklı bir yöntem.

 

[Korhan Ayhan]

Eriştiğniz makroyu çalıştır dediğinizde işlem görmüyor mu?

 

[bafralifatih55]

Merhaba
Hocam makrolar penceresinde görünüyorlar. Ancak ben bunları kodun içinde kullanacağım. Ortak noktada olan Makro1 isimli makroyu kullanmak için kitap1 içinden nasıl çağırmalıyım?

 

[Korhan Ayhan]

Denemedim ama normalde excel açılışında PERSONAL.xlsb dosyasıda açılacağı için Application.Run ile çağırabilirsiniz.

 

[kykbt]

Arkadaşlar Merhaba
personel.xla adında bir eklenti klasörü içinde
Public shtzoom as Integer olarak bir değişken tanımladım .
Bu değişkeni herhangi başka bir çalışma kitabında değer atadığımda ve tekrar çağırdığımda değer gelmiyor.
Yani bir çalışma kitabına tanımladığım değişkeni ,başka bir çalışma kitabında nasıl kullanabilirim.
Public fonsiyonu ile olmadı

 

[beifeng111]

Hocam bu makroları naasıl çağırabiliriz? Yada bunları kopyalamamız mı gerekir? Bu konuda bir bilginiz var mı?

 

[volki_112]

Hocam bu makroları naasıl çağırabiliriz? Yada bunları kopyalamamız mı gerekir? Bu konuda bir bilginiz var mı?

iki dosya da açık olacak

Sub cagir()
Application.Run "'DosyaAdı.xlsm'!MakroAdı"
End Sub

kendi dosyanıza bu kodu yazarsanuz makroyu çağırır. Dosyadı.xlsm kısmına kendi dosyanızın adını ve uzantısını ekleyin. Makrı adına da diğer dosyadaki makro adını yazın.

 

[kykbt]

Arkadaşlar Merhaba
personel.xla adında bir eklenti klasörü içinde
Public shtzoom as Integer olarak bir değişken tanımladım .
Bu değişkeni herhangi başka bir çalışma kitabında değer atadığımda ve tekrar çağırdığımda değer gelmiyor.
Yani bir çalışma kitabına tanımladığım değişkeni ,başka bir çalışma kitabında nasıl kullanabilirim.
Public fonsiyonu ile olmadı

Kontrollerde fark ettim ki .xla dosyasındaki modüller arasında da bilgi taşınmıyor

 

[Biolightant]

Merhaba @kykbt ,
Sorunuzu doğru anladıysam...
personel.xla dosyasında herhangi bir modüle aşağıdaki kodları ekleyin:

Option Explicit
Public shtzoom As Integer

Public Sub shtzoomYAP(Deger As Integer)
    shtzoom = Deger
End Sub

Public Function shtzoomKAC()
    If shtzoom = 0 Then shtzoom = 100 ' Varsayılan değer
    shtzoomKAC = shtzoom
End Function

Artık herhangi bir Excel dosyasında şu kodlarla bu değişkeni kontrol edebilirsiniz:

Sub zoomAyarla()
    Application.Run "shtzoomYAP", 60
End Sub
Sub zoomOku()
    MsgBox Application.Run("shtzoomKAC")
End Sub

 

[kykbt]

Hocam öncelik ile ilginiz için çok teşekkür ederim.
Zahmet ettiniz.
Ancak,
Public shtzoom As Integer sadece bir örnek idi.
Benzer şekilde yaklaşık otuz adet değişken var.
Bu değişkenler için her kitapta tanımlama yapmak istemediğimden ".xla" da bir modül,ü ortak kullanmak istiyorum.