Başka Bilgisayarda Kullanıcı adı değiştiğinden excel problem yaratıyor

[ibrahim]

Merhaba Sevgili Form yöneticileri ve üye arkadaşlar.
Yeni üye olarak herkese merhaba dedikten sonra , Soruma geçelim

Masaüstündeki Klasörümün içerisinde Çalıştığım Excel dosyasının haricinde Bilgileri çektiğim diğer excel dosyalarının bulunduğu klasör ve fotoğrafları çektiğim klasör de mevcut.
Kendi bilgisayarımda çalışırken her hangi bir sıkıntı yaşamıyor olsamda bir başka bilgisayarda açtığımda ,

"C:\Users\Iceberg\Desktop\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm" şeklindeki dosya yolundaki kullanıcı adı yeni bilgisayarda değiştiği için manuel olarak tek tek bütün dosyaları revize etmem gerekiyor.
Kullanıcı adı olmadan "C:\Desktop\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm" Şeklinde her bilgisayarda çalışabileceğim bir yolu varmı ?
Yada ne gibi bir yol izlemem gerekiyor ki bu sorunu aşayım.
Zaman ayırıp cevap verebilecek tüm arkadaşlara şimdiden teşekkür ederim.

[GuardofDeath17]

1.

Kod: Tümünü seç

Function GetUserName() As String
GetUserName = Environ("Username")
End Function

Yukarıdaki fonksiyon ile kullancı adını alıp kırmızı işaretlediğin "Iceberg" yerine aşağıdaki şekilde koyabilirsin:

path="C:\Users\" & GetUserName & "\Desktop\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm"

2. Desktop klasörü kullanıcıların özelinde olduğu için Users altında olmayan C sürücüsü içersinde başka bir yere kaydetmeyi deneyebilirsin. Bu şekilde bütün kullanıcılar dosyaya ulaşabilir.

[ibrahim]

Cevabınız için teşekkür ederim Erol Bey .
Dosyayı revize ettim ama sonucunu ancak iş yerindeki bilgisayarlarda deneyince görebileceğim
olmazsa verdiğiniz 2. yöntemi deneyeceğim .
Tekrar teşekkürler.

[erseldemirel]

Hangi windows kullanıcısı olursa olsun aşağıdaki kod ile desktop yolunu alırsın. Hangi bilgisayarı kullanırsan kullan desktop da ise dosyaların bu kod işe yarar

Kod: Tümünü seç

Sub GetDesktopPath()
dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox dPath & "\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm"
End Sub

Msgbox sonucu böyle birşey olur : C:\Users\Kullanıcı adın buraya otomatik gelir\Desktop\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm

[ibrahim]

Erol Beyin kodlarını kullanmıştım Kardeşimin bilgisayarında denedim ama sanırım bir yerde hata yaptım
ersel bey size de teşekkür ederim cevabınız için
daha sonra sıkıntı yaşamamak adına bu kodun kullanım şeklini de anlatırsanız sevinirim.
Ben altta verdiğim şekilde olduğunu tahmin ettim ama ??

Kod: Tümünü seç

Private Sub Workbook_Open()
GetDesktopPath
End Sub

Sub GetDesktopPath()
dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox dPath & "\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm"
End Sub

[GuardofDeath17]

Erol Beyin kodlarını kullanmıştım Kardeşimin bilgisayarında denedim ama sanırım bir yerde hata yaptım
ersel bey size de teşekkür ederim cevabınız için
daha sonra sıkıntı yaşamamak adına bu kodun kullanım şeklini de anlatırsanız sevinirim.
Ben altta verdiğim şekilde olduğunu tahmin ettim ama ??

Kod: Tümünü seç

Private Sub Workbook_Open()
GetDesktopPath
End Sub

Sub GetDesktopPath()
dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox dPath & "\BAKKAL PRG\Bakkal Veresiye Defteri.xlsm"
End Sub

Desktop klasörünün yolunu teyit etmenizi öneririm. Çünkü evinizdeki kişisel bilgisayarınızda masaüstünün OneDrive klasörü altında olma ihtimali var. Dosya yolunu kontrol ediniz.

[erseldemirel]

Bu satırı herhangi bir kod içinde dosya yolunu getirmek için uygun yerde kullanabilirsiniz.

dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Buradaki dpath hangi kullanıcı adında calısırsa o bilgiyle size sonuc getirir

[ibrahim]

Teşekkür ederim Ersel bey tamamen açıklayıcı oldu benim için, uygulamada da başarılı olduğuma göre artık konuyu kilitleyebilirsiniz.

[erseldemirel]

Kolay gelsin