AccessTr.neT

Merhaba Herkese sağlıklı günler dilerim

Öğrenmek istediğim bir konu var. Excel Uygulamasında Ayarlar sayfasında A2 ve B2 de kayıtlı kur bilgilerini bir form üzerinde işlem yapmak için alıp kullanıyorum. Burada sorunum yok. Fakat modül kullanımı ile bu kurları Modül içerisinde tanımlayıp Uygulamada olabilecek tüm formların üzerinde değerlere ulaşabilmek için izlemem gereken yöntem nedir modül içerisinda nasıl tanımlamalıyım şu an tanımlıyorum modül içersinde değerlere ulaşıyorum fakat bu değerleri form üzerinde kullanmaya çalıştığımda değerler 0 olarak geliyor. Ben programdaki bütün formlarda olabilecek hesaplamalarda bu kur değerlerine ulaşabilmek için tanımlamaları tam olarak nasıl yapmalıyım. Kısaca anlatabilirseniz çok memnun olurum.

Kod:
Sub DovizCinsi()

Dim euroKur As Double

Dim UsdKur As Double

UsdKur = ThisWorkbook.Sheets("Ayarlar").Range("A2").Value

euroKur = ThisWorkbook.Sheets("Ayarlar").Range("B2").Value

End Sub

Tanımları fonksiyon içine almışsınız oysa tanımlar modülün başında fonksiyonun dışında olmalıydı
Fonksiyon gerekli gördüğünüz bir yerde çalıştırılmalı dim yerine public yada global kullanmak gerekebilir

Kod:
Dim euroKur As Double

Dim UsdKur As Double

Sub DovizCinsi()

UsdKur = ThisWorkbook.Sheets("Ayarlar").Range("A2").Value

euroKur = ThisWorkbook.Sheets("Ayarlar").Range("B2").Value

End Sub

Halil hocam aşağıdaki şekilde modül içeriğini değiştirdim şuan farklı formlardan kur değişkenlerine erişebiliyorum. Teşekkür ederim.

Kod:
Public euroKur As Double

Public UsdKur As Double

Public Sub DovizCinsi()

UsdKur = ThisWorkbook.Sheets("Ayarlar").Range("A2").Value

euroKur = ThisWorkbook.Sheets("Ayarlar").Range("B2").Value

End Sub

Rica ederim
İyi çalışmalar)

Oğuz Türkyılmaz

berduş

Oğuz Türkyılmaz

berduş