Auto_Open Auto_Close Prosedürleri


EXCEL DOSYASI AÇILIRKEN VE YA KAPANIRKEN OTOMATİK OLARAK YAPTIRMAK İSTEDİĞİMİZ İŞLEMLER İÇİN ÇEŞİTLİ KODLAR

Auto_Open ve Auto_Close excel çalışma kitabını açarken  ya da kapatırken yaptırmak istediğimiz işlemleri yazacağımız prosedürlerdir.

Bu işlemler neler olabilir? :

  1. Çalışma kitabı açıldığında kullanıcıya mesaj gösterelim.
  2. Çalışma kitabı hangi sayfadan kapanırsa kapansın belirlediğimiz sayfadan açılsın.
  3. UserForm ekranda açılsın.
  4. Active X denetimlerini çalıştıralım, Combo Box ı dolduralım.
  5. Yazdığımız özel bir kod çalışsın, örneğin çalışma kitabı kaç defa açıldı saydıralım.
  6. Çalışma kitabı kapanırken kullanıcıya mesaj gösterelim.

Tüm prosedürler için izleyeceğimiz temel yol ise aşağıdaki gibi:

1.Yeni bir excel çalışma kitabı açalım

2. Alt + F11 ya da geliştiricisi sekmesi, Visual Basic komutu ile kod sayfasına geçelim

3. Insert modül ile kodları yazacağımız yeni bir modül ekleyelim

Auto Open:


Sub auto_open()

'** tum kodlarimizi bu kod blogu arasina yazacagiz*

End Sub

Auto Close:


Sub auto_close()

'** tum kodlarimizi bu kod blogu arasina yazacagiz*

End Sub

4. Çalışma kitabımızı Macro Enabled Workbook olarak kaydedip kapatalım.

1. Çalışma kitabı açıldığında kullanıcıya mesaj gösterelim:

Sub auto_open()

MsgBox ("Hosgeldiniz, https://excelyardim.wordpress.com")

End Sub

auto_open

2. Çalışma kitabı hangi sayfadan kapanırsa kapansın belli bir sayfadan açılsın:

Excel dosyaları ile çalışırken bazen birden fazla sayfa kullanabiliyoruz. Ancak dosya açıldığında ilk görülen sayfa bazen son değişlik yaptığımız sayfa olabiliyor. Bunu engellemek ve dosyayı ilk açtığımızda görünecek sayfayı belirlemek için kullanacağımız kod:


Sub auto_open()

Sheets("home").Activate

Range("A1").Select

End Sub

‘Dosya ilk açıldığında “home” isimli sayfa görülecek şekilde ayarlamamızı yaptık artık dosyayı hangi sayfadan kapatırsanız kapatın açılış sayfanız “home” isimli sayfa olacak.

3. UserForm ekranda açılsın:

VBA penceresi içerisindeyken modüle eklediğimiz gibi simdi de bir User Form ekleyelim.

Bir label atayalım ve hoşgeldiniz mesajını buraya yazalım.

Sub auto_open()

UserForm1.Show

End Sub

userform

userform.show

4. Active X denetimlerını çalıştıralım, Combobox’ı dolduralım:

Geliştirici sekmesinden bir tane Combo Box ekleyelim.

combobox

Aynı şekilde auto_open kod bloğu arasına çalışma kitabı açıldığında Combo Box a 4 adet eleman ekleyelim.

Sub auto_open()

Sheets("home").ComboBox1.AddItem "excel"

Sheets("home").ComboBox1.AddItem "auto_open"

Sheets("home").ComboBox1.AddItem "auto_close"

Sheets("home").ComboBox1.AddItem "prosedurleri"

End Sub

combobox_add_item

5. Yazdığımız özel bir kod çalışsın, örneğin çalışma kitabı kaç defa açıldı saydıralım:

Simdi sabit bir sayaç değişkeni ekleyelim, çalışma kitabi her açıldığında sayaç 1 artsın.

Çalışma kitabım açık iken Sheet3 Range(“A1”) e 1 yazdim, her açıldığında sayac 1 artacak, ve Range(“A1”) değeri sayaca eşitlenecek.

<span id="mce_SELREST_start" style="overflow:hidden;line-height:0;">&#65279;</span>
Sub auto_open()

Dim sayac As Integer

sayac = Sheets("Sheet3").Range("A1").Value + 1

MsgBox "Bu calisma kitabi " &amp; sayac &amp; " defa acildi"

Sheets("Sheet3").Range("A1").Value = sayac

Sheets("Sheet3").Visible = False

End Sub

sayac

 6. Şimdi de dosya kapanırken bir komut çalıştıralım, kullanıcıya istediğimiz bir mesajı gösterelim:


Sub auto_close()

MsgBox "Raporumuzu incelediginiz için tesekkür ederiz"

End Sub

Capture

Reklamlar

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s