Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Modül Kullanımı Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
3
285

Modül Kullanımı Hakkında

Çözüldü #1
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
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
.rar Sayfadan Sabit Kur Çağırma.rar (Dosya Boyutu: 19,8 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,14:17
Yorumları: 8.399
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
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
Cevapla
#3
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
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
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,14:17
Yorumları: 8.399
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
Rica ederim
İyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task