• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Değişkenler ve tanımlamar hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Kull

Kull

Yeni Üye
Katılım
13 Tem 2023
Mesajlar
50
Aldığı beğeni
8
Excel V
Office 2010 TR
Konu Sahibi
Arkadaşlar bir değişkeni ve o değişkene yapılan tanımı tüm tüm kodlarda kullanmak için ne yapmamız gerekiyor.

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

Mesela ben bunu her modülde tekrar tekrar yazmak zorunda mıyım? Başka bir modülde MsgBox Syf.Range("A1").Value şeklinde kullanamaz mıyım ?
 
Çözüm
Ümit Bakacak
Sayın Kull ;

1- Herhngi bir modülde ilk satıra değişken tanımınızı yapın.
Public syf As Worksheet
Dim yerine Public kullanın. Böylece tanımladığnız değişken hem sayfa modüllerinde hem de sizin eklediğiniz standart modüllerde geçerli olur.

2- BuÇalışmaKitabı modülüne bu kodları ekleyin.
Private Sub Workbook_Open()
Set syf = ThisWorkbook.Worksheets("Sayfa1")
End Sub
Böylece dosya açıldığında bu makro çalışacak ve syf değişkeninin hangi sayfa olduğunu değişkene yükleyecektir.

3- Burdan sonra
MsgBox Syf.Range("A1").Value
kodu her yerde çalışacaktr.
Tarihe göre sırala Oylara göre sırala
Sayın Kull ;

1- Herhngi bir modülde ilk satıra değişken tanımınızı yapın.
Public syf As Worksheet
Dim yerine Public kullanın. Böylece tanımladığnız değişken hem sayfa modüllerinde hem de sizin eklediğiniz standart modüllerde geçerli olur.

2- BuÇalışmaKitabı modülüne bu kodları ekleyin.
Private Sub Workbook_Open()
Set syf = ThisWorkbook.Worksheets("Sayfa1")
End Sub
Böylece dosya açıldığında bu makro çalışacak ve syf değişkeninin hangi sayfa olduğunu değişkene yükleyecektir.

3- Burdan sonra
MsgBox Syf.Range("A1").Value
kodu her yerde çalışacaktr.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst