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

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
ibrahim
Mesajlar: 4
Kayıt: Sal Eki 29, 2024 2:57 pm
Lokasyon: İstanbul
Adınız: İbrahim
Soyadınız: Tercan

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

Mesaj gönderen 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
Mesajlar: 7
Kayıt: Pzr Şub 18, 2024 12:05 am
Adınız: Erol
Soyadınız: PEHLIVANOGLU

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

Mesaj gönderen 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
Mesajlar: 4
Kayıt: Sal Eki 29, 2024 2:57 pm
Lokasyon: İstanbul
Adınız: İbrahim
Soyadınız: Tercan

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

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 4
Kayıt: Sal Eki 29, 2024 2:57 pm
Lokasyon: İstanbul
Adınız: İbrahim
Soyadınız: Tercan

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

Mesaj gönderen 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
Mesajlar: 7
Kayıt: Pzr Şub 18, 2024 12:05 am
Adınız: Erol
Soyadınız: PEHLIVANOGLU

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

Mesaj gönderen GuardofDeath17 »

ibrahim yazdı: Sal Eki 29, 2024 8:46 pm 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 4
Kayıt: Sal Eki 29, 2024 2:57 pm
Lokasyon: İstanbul
Adınız: İbrahim
Soyadınız: Tercan

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

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen erseldemirel »

Kolay gelsin
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj