DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kullanıcı adından kastınız nedir?, Yukarıdaki yazım şeklinden ben sanki bu klasör altındaki dosya isimlerini soruyorsunuz gibi anladım doğrumu?"C:\Documents and Settings\???????"; soru işareti olan yerdeki kullanıcı adını makro ile nasıl tespit ederiz.
Bahsettiğiniz kodla bulunan dosya yolu, Excel'in varsayılan dosya yolu My Documents - Belgelerim olarak tanımlandığı için size o an için doğru sonuçmuş gibi gelebilir. Ancak, kullanıcılar bu dosya yolunu her zaman için elle değiştirilebilir. (Aşağıdaki resimde belirtilen yer)Nadir' Alıntı:Bir de Raider den öğrenmek istediğim; Belgelerim klasörüne ait dosya yolunu bulmak için bu kadar uzun kodu yazmanızın sebebi nedir.
Sayın Nadir;Nadir' Alıntı:Sorum, Raider'in 2 no.lu "KullaniciAdi" adlı kodu ile cevabını buldu.
Tabi bu işin esprisi.Sayın Raider'ın bu konulara olan hakimiyetini çok uzun süredir takip ve takdir ediyorum.Tabi ki insan olmanın vermiş olduğu duygu ile de kıskanıyorum ama bu kıskanmam,gıpta sınırları içinde. :bravo:bedersu' Alıntı:Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
Sub Alt_Klasör_İsimleri()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
Dim a As String
GetUserName Buffer, BuffLen
a = Left(Buffer, BuffLen - 1)
End Sub
Kodlarda MsgBox yerine [A1] yazın...... excel sayfasında bir hücreye yazdırmak istiyorum. Yardım edebilirmisiniz.
Beğendiğinize sevindim.bedersu' Alıntı:Hemen denedim kodları.Gerçekten kısa ama işe yarar bir kod.Teşekkürler.
bedersu' Alıntı:Yoksa size ilham veren bir meleğiniz mi var
Haklısınız, ..... ilk defa CD'i o zamanlar bazı taksi ve minibüslerde şöför mahallinde pırıltı zincirlerle arka dikiz aynasına asılmış nesneler olarak gördükten sonra, ilk defa edindiğim kendi bilgisayarıma ters olarak takıp da çalıştıramadığımdan beri..... itiraf ediyorum, birazcık da olsa yol kat ettim .... en azından, şimdi daha dikkatli davranıp, CD' nin hangi yüzü yukarı bakacak diye kontrol ettikten sonra, yerine yerleştiriyorum.bedersu' Alıntı:Daha önceden bir yazınızda,ilk bilgisayar deneyiminizde CDRom'la ilgili bir anınızı anlatmıştınız.Nereden nereye