Dosyanın Olduğu Dizin İsmini Bulma

29 Temmuz 2021 1336

Dosyanın Olduğu Dizin İsmini Bulma isimli içerik, dosyanızın hangi klasörde kayıtlı olduğunu bulmaya yarayan kodları içermektedir.

Sub Tam_Dizin_Ismi()
    Dim ED, E
    Set ED = CreateObject("Scripting.FileSystemObject")
    E = ED.GetAbsolutePathName("")
    MsgBox E
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Üstteki kodları çalıştırdıktan sonra, dosyanın olduğu klasörün tam yolu verilecektir.
Eğer dosya kayıtlı değilse, Excel'de en son hangi klasöre işlem yapıldıysa, o klasörün ismi ve yolu çıkacaktır.

Dosyanın Olduğu Dizin İsmini Bulma

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Kullanıcı Adınızı Bulma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Aktif Hücrenin Sütun Numarasını Bulma
Satır Yüksekliğini Ayarla
Metin Sarmayı Kaldırma
Tüm Boş Çalışma Sayfalarını Silme
Excel Crackleme İşlemi Makrosu
Hoş Geldiniz Mesajı Ekleme
Excel Kapanırken Otomatik İşlem Yaptırma
Bir Aralıktaki Maksimum Değeri Renklendirme
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Birleştirilmiş Tüm Hücreleri Ayırma
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Birden Çok Çalışma Sayfası Ekleme
Negatif Sayıları Poztif Sayıya Çevirme
Tüm Formülleri Değerlere Dönüştürme
2. Derece Denklemin Grafiğini Çizmek
Negatif Sayıları Vurgulama
Excel Hücresini Seçme Makrosu
UserForm Açılırken Efekt Ekleme
Seri Numaralarını Ekleme
Satır Yüksekliklerini Otomatik Ayarlama
Metni Tersten Yazdırma
Sütunu Kes Kopyala ve Yapıştır
56 Koşula Kadar Biçimlendirme Yapma
Top 10 Değeri Renklendirme
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Excel Sayfalarındaki Resimleri Silmek
Toplu Sütun Silme
Sütunlardaki Farkı Renklendirme
Disk Sürücü Kapasitesini Gösterme
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Sayfaların Seçilmesini Sağlama
Excel Makroları ile İşlemci Bilgilerini Bulma
Sütun Genişliğini Ayarla
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Açıklama İçeren Tüm Hücreleri Vurgulama
Sayılara Yeni Bir Sayı Ekleme
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Satırı Kes Kopyala ve Yapıştır
Label Nesnesine Kayan Yazı Ekleme
Tarih ve Saatten Saati Kaldırma
Makrolar ile Dosyaları Kopyalama
Makro ile Biçimleri Temizleme
Tüm Satırda İşlem Yapan Döngü
Excel Makroları ile Hücreye Saat Ekleme
Hücrenin Arka Plan Rengini Değiştirme
Sütunları Otomatik Sığdırma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...