Bir değişkenin Thisworkbook taki tüm modüllerde bir kerede tanımlanması

Katılım
31 Mayıs 2006
Mesajlar
3
Excel Vers. ve Dili
Excel 2010 TR
Değişkeni Public Dz_Klck_sf ile bütün modüllerden çağrılabilecek şekilde tanımlıyorsunuz.

Ancak Auto_Open yordamı içinde diziyi atadığınız değişken tanımladığınız değişkenden farklı olduğu için (ve muhtemelen başka yerde tanımlanmamış) Local bir değişken olarak algılanıyor.

Auto_Open ve VeriKontrol yordamlarındaki değişkenleri Public kısmındakilerle aynı olacak şekilde değişiklik yaptığınızda çalışacaktır.


Kod:
 [LEFT]Public [COLOR=red][B]Dz_Klck_sf[/B][/COLOR] 
[LEFT]Public [COLOR=red][B]Dz_Klck_vs[/B][/COLOR] As Integer
'====================
Sub auto_open()
.........
[COLOR=red][B]Dz_Klck_sf[/B][/COLOR] = Array(Bu_s1.Name, Bu_s2.Name, _
               Bu_s3.Name, Bu_s4.Name, Bu_s5.Name) 'daima bu kitapta kalacak sayfa adları
[COLOR=red][B]Dz_Klck_vs[/B][/COLOR] = UBound(Dz_Klc_sf) + 1                   'daima bu kitapta kalacak sayfa sayısı
...............
End Sub[/LEFT]
 
[LEFT]Sub Verikontrol()
Msgbox [COLOR=red][B]Dz_Klck_sf[/B][/COLOR](2)  'hata veriyor 
Msgbox [COLOR=red][B]Dz_Klck_vs[/B][/COLOR]     'boş dönüyor 
End sub[/LEFT]
[/LEFT]
 
Son düzenleme:
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
klc nin nesini beğenmemiş pekide klck istiyor ?
teşekkürler
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Sorun çözülmüş ama bilgi açısından eklemek istiyorum.

CreateObject = Nesne yarat durumunda atanacak değişken tipinin "Object" olmasında fayda vardır. Çünkü hafızada daha az yer kaplayacaktır.
teşekkürler ...
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
hocam teşekkür ederim galiba hatanın büyüğü yine bende
Public ederken dz_klc_sf diye edip aşağıda
dz_klck_sf diye çağırmayaa kalkarsam kabul etmez tabi..
set işlemini AutoOpne ın en üstünde yapmıştım
Saygılarımla
Forumu meşgul ettiğim için özür dilerim
 
Üst