Soru Değişkenlerin tüm çalışma kitabında aktif olmaması

[kykbt]

Public WrkName As String
Public ilksayfa As String
Private isay As Integer
Public güncellendimi As String
Private dönüş, n
Public durum As String
Public değiştimi As String
Public admin As String
Public username As String
Private userhdd As String
Public useryetki As String
Private döngüsay As Integer
Public macrosay As Integer
Public msg As Integer
Arkadaşlar merhaba
Yukarıdaki değişkenleri "ThisWorkbook" a yazdım,
bu değişkenlerin "Module1 " e bilgi taşımasını istiyorum. Ancak değişkenler "ThisWorkbook" içinde bilgi taşıyor.
"Module1" deki makrolar çalışınca bu bilgiler gelmiyor.
Ne yapmalıyım?

 

[Haluk]

ThisWorkbook modülünden silip, Module1 veya başka yeni bir Module içine, en üste yazın ...

.

 

[kykbt]

ThisWorkbook modülünden silip, Module1 veya başka yeni bir Module içine, en üste yazın ...

.

Hocam kolay gelsin..
Bilince ne de kolay oluyor. Teşekkür ederim. İlginize

Farklı bir sorum daha olacak, Macro hata verince değişkenler boşalıyor. Bunu önlemenin bir yolu varmı dır.?
Mesela ' tırnak işareti ile başlayan şekilde modul'e macro ile yazsak kalıcı olmaz'mı ve yazılabilir'mi.?
Bu iş için ' 10 adet tırnak ile başlayan satır sürekli tutsak, sadece satır içeriği değişse gibi saçma mı olur..

 

[Haluk]

Hocam kolay gelsin..
Bilince ne de kolay oluyor. Teşekkür ederim. İlginize

Farklı bir sorum daha olacak, Macro hata verince değişkenler boşalıyor. Bunu önlemenin bir yolu varmı dır.?
Mesela ' tırnak işareti ile başlayan şekilde modul'e macro ile yazsak kalıcı olmaz'mı ve yazılabilir'mi.?
Bu iş için ' 10 adet tırnak ile başlayan satır sürekli tutsak, sadece satır içeriği değişse gibi saçma mı olur..

Koda hata denetimi ilave edip, bir şeyler yapmayı deneyebilirsiniz.

Modülün kendisine de VBA ile yazılabilir ama, dediğiniz gibi biraz "saçma" olur.

.

 

[kykbt]

Arkadaşlar merhaba
(Önce Haluk hocam yardımların için teşekkür ediyorum.)

UserForm modulunde

Private username As String

Private Sub CommandButton1_Click()
.......
.......
username = TextBox1.Text
......
End Sub

Şeklinde UserForm içindeki bir makro da bir değişkene atama yaptım.
Ancak normal Module içindeki macro da bu değere ihtiyacım var, fakat username ="" olarak geliyor.
Aynı değişken ThisWorbook module'de Normal Module'de tanımladım olmadı
Yani bilgi formdan module taşınmıyor. Ne yapömalıyım.

 

[Ömer BARAN]

Biraz ezbere olacak ama şöyle olabilir;
uygun bir modüle Auto _ Open kodu ekleyip, içerisine username=Environ("USERNAME") satırını yazınca
açılışta bu tanımlama yapılmış olur ve başka bir kod ile username değişkenine yeni değer atanmadığı veya silinmediği sürece
kullanılabilir gibi görünüyor.

 

[Korhan Ayhan]

Tüm kitap içinde geçerli olmasını istediğiniz değişkenleri boş bir modülün en üst satırına yazınız.

Örnek;

Public Kullanici_Adi As String