Çözüldü Değer atadığım bir değişkeni Nasıl programın her yerinde kullanabilirim.

[OğuzTürkyılmaz]

Merhaba herkese sağlıklı günler dilerim.
Aşağıda belirttiğim gibi 2 değişken tanımladım. Ve bu değişkenlere Excel çalışma kitabımın Ayarlar sayfasındaki L3 ve L4 hücrelerinde tuttuğum döviz kurlarının değerlerini atadım. Programda bir çok formun hesaplama alanlarında bu değişkenlerin tuttuğu değerleri kullanabilmek için nasıl bir yol izlemeliyim. Hemen her userformun üzerinde bu kur değişkenlerinin tuttuğu bilgiyi sayısal işlemlerde çıkan tl sonuçlarını USD yada EUro bazında göstermek için kullanacağım. Her seferinde her userformda bu değişkenleri tanımlayıp değerleri yeniden atamak istemiyorum. Yol göstermenizi rica ederim. Modüle yazıp çağırdım ama değerleri 0 geldiği için işlemlerden sonuç alamadım. Bir şeyi kaçırıyorum gözden ama neyi bilemedim.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[OğuzTürkyılmaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde modüle tanımlıyorum ama userformlardan çağırdığımda değişkenlerin değerleri 0 geliyor...

 

[Adnan]

sub mm()
usdKur = ThisWorkbook.Sheets("Ayarlar").Range("L3").Value
euroKur = ThisWorkbook.Sheets("Ayarlar").Range("L4").Value
end sub

form üzerinde öncelikle mm formunu çağırıp istediğin değeri kullanabilirsin
Private Sub UserForm_Initialize()
Module1.mm
MsgBox b

örneğindeki gibi

 

[OğuzTürkyılmaz]

sub mm()
usdKur = ThisWorkbook.Sheets("Ayarlar").Range("L3").Value
euroKur = ThisWorkbook.Sheets("Ayarlar").Range("L4").Value
end sub

form üzerinde öncelikle mm formunu çağırıp istediğin değeri kullanabilirsin
Private Sub UserForm_Initialize()
Module1.mm
MsgBox b

örneğindeki gibi

Çok teşekkür ederim Adnan hocam