Makro ile Dosya Açma

Makro ile Dosya Açma isimli kod, herhangi bir dosyayı makroları kullanarak Excel üzerinden nasıl kolayca açabileceğinizi öğretmektedir.

Sub Dosya_Al()
Dim Dosya_Tipi, Baslik As String
Dim Varsayilan_Tip_No As Integer
Dim Dosya_Ad As Variant

Dosya_Tipi = "Excel Files (*.xlsx),*.xlsx," & "All Files (*.*),*.*"
Varsayilan_Tip_No = 2
Baslik = "Dosya Seçin"
Dosya_Ad = Application.GetOpenFilename(Dosya_Tipi, Varsayilan_Tip_No, Baslik)

If Dosya_Ad = False Then
    MsgBox "Dosya seçilmedi."
Else
    MsgBox Dosya_Ad & " dosyasını seçtiniz."
End If
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ı

Excel'de makrolar ile dosya açmak isterseniz, üstteki kodlarımızı referans olarak kullanabilirsiniz.

Kodu çalıştırdığınızda alacağını görüntü aşağıdaki gibi olacaktır:

Makro ile Dosya Ekleme

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
Aktif Çalışma Sayfası Korumasını Kaldırma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Makro ile Dosya Açma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel Seçenekleri Penceresini Açma
Hoş Geldiniz Mesajı Ekleme
Son Satır Numarasını Bulma
Adlandırılmış Aralıkları Vurgulama
Makrolar ile Sonraki Sayfaya Geçmek
Tüm Boş Çalışma Sayfalarını Silme
Hücrenin Rengini Değiştirme
Excel Hücresine Gitme Makrosu
Dizileri Döngüye Eklemek
Sayıları Rastgele Karıştırmak
Excel Açılırken Otomatik İşlem Yaptırma
Aç Penceresini Açan Makro
Sayfaların Seçilmesini Sağlama
Yanlış Yazılmış Hücreleri Vurgulama
Sütunu Kes Kopyala ve Yapıştır
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Yazı Efekti Verme Kodu
Roma Rakamlarını Normal Sayılara Dönüştürme
Makrolar ile Klasör Oluşturma
Aktif Hücrenin Temel Bilgilerini Bulma
Grafiği Görüntü Olarak Yapıştırma
Ekran Çözünürlüğünü Bulma
Excel Satır Silme Kodu
UserForm Üzerinde Dört İşlem
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Txt Dosyası Oluşturma
Kullanıcı Adınızı Bulma
Kare Kökünü Hesaplama
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Bir Çalışma Kitabında Kaç Sayfa Var
Çalışma Kitabının Yedeğini Oluşturma
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Satır Yüksekliklerini Otomatik Ayarlama
Makro ile Klasör Açma
Çalışma Sayfasının Ekran Görünümünü Büyütme
Bir Aralıktaki Maksimum Değeri Renklendirme
Sayfadaki Grafikleri Yeniden Boyutlandırma
Tekrarlayan Verileri Vurgulama
TextBox Nesnesine Harf Girilmesini Engelleme
Boş Hücreleri Vurgulama
Boş Hücreleri Sıfırlarla Değiştirme
Makro ile Hızlı Doldurma
Gizlenmiş Makro Örnekleri
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Sayfadaki Ad Tanımlamaları Silme

Daha önce yorum yapılmamış!

#SAYI/0! (#DIV /0!) Hatası

Kurmuş olduğunuz formül ya bir sayıyı sıfıra bölmeye çalışıyor ya da bölme işlemini yapmak için gösterdiğiniz hedef hücrenin içeriği boşttur.

Bu hatayla ilgili daha fazla bilgi için buraya tıklayabilirsiniz.