Modül Kullanımı Hakkında - Baskı Önizleme

Modül Kullanımı Hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Modül Kullanımı Hakkında (/konu-modul-kullanimi-hakkinda.html)

Modül Kullanımı Hakkında - Oğuz Türkyılmaz - 23/11/2022

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

RE: Modül Kullanımı Hakkında - berduş - 23/11/2022

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

RE: Modül Kullanımı Hakkında - Oğuz Türkyılmaz - 23/11/2022

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

RE: Modül Kullanımı Hakkında - berduş - 23/11/2022

Rica ederim
İyi çalışmalar)