General Declarations

[bluefalcon]

Sayın üstadlar merhabalar,

Mantığını az çok bilmekle beraber yinede belki yapılabilir düşüncesi ile bir konu hakkında görüşlerinizi almak istiyorum. Excel VBA alanında General Declarations kısmına Public ve Global sabitler tanımlayarak tüm modullerde kullanabiliyorum. Burada sıkıntı yok. Yalnız hem işyerinde hem evde aynı dosya ile çalışırken Public olarak tanımladığım path sabitini bilgisayar ismine göre değişmesini sağlayabilir miyim merak ediyorum. Yani evdeki bilgisayarda aynı dosyayı açtığımda vba bilgisayarın ismine bakacak ve path değerini buna göre, işyerinde açtığımda ise işyeri bilgisayarının ismine göre değiştirecek. Bu mümkün müdür?

 

[Muzaffer Ali]

Bilgisayar adı derken aslında kullanıcı adını kast ediyorsunuz her halde.

Aşağıdaki kod işinizi görüyor mu?

Örneğin her iki bilgisayarda da masaüstünde bulunan "RAPOR" adlı dosyanın yolunu bulmak için

    Dim KullaniciAdi As String
    Dim DosyaAdi As String
    KullaniciAdi = Application.UserName
    DosyaAdi = "C:\Users\" & KullaniciAdi & "\Desktop\RAPOR.xlsx"

 

[bluefalcon]

Bilgisayar adı derken aslında kullanıcı adını kast ediyorsunuz her halde.

Aşağıdaki kod işinizi görüyor mu?

Örneğin her iki bilgisayarda da masaüstünde bulunan "RAPOR" adlı dosyanın yolunu bulmak için

    Dim KullaniciAdi As String
    Dim DosyaAdi As String
    KullaniciAdi = Application.UserName
    DosyaAdi = "C:\Users\" & KullaniciAdi & "\Desktop\RAPOR.xlsx"

Yanıtınız için teşekkür ederim. Evet aslında dediğiniz gibi de olabilir. Ancak bu kodu General Declarations alanına yazdığınızda hata veriyor. Benim yapmak istediğim tüm proje için tanımlanmış bur public sabitin bilgisayar yada kullanıcı değiştikçe herhangi bir müdahaleye gerek kalmadan otomatik değişebilmesi. Umarım anlatabilmişimdir.

 

[Muzaffer Ali]

Aşağıdaki kodlar ile dosyanız ilk açıldığında çalışır ve dosyada istediğiniz yerde kullanabilirsiniz.

    public KullaniciAdi As String
    public DosyaAdi As String
sub auto_open()

    KullaniciAdi = Application.UserName
    DosyaAdi = "C:\Users\" & KullaniciAdi & "\Desktop\RAPOR.xlsx"
end sub

 

[bluefalcon]

Aşağıdaki kodlar ile dosyanız ilk açıldığında çalışır ve dosyada istediğiniz yerde kullanabilirsiniz.

    public KullaniciAdi As String
    public DosyaAdi As String
sub auto_open()

    KullaniciAdi = Application.UserName
    DosyaAdi = "C:\Users\" & KullaniciAdi & "\Desktop\RAPOR.xlsx"
end sub

Çok teşekkür ederim. Emeğinize sağlık.