UserForm_Activate

Olay yordamı nereye yazılır​

• Adım 1: Alt+F11 ile Visual Basic Düzenleyicisi'ni (VBE) açın.
• Adım 2: Proje Gezgini'nde (Project Explorer) formunuza çift tıklayın, ardından F7 tuşuyla kod penceresini açın.
• Adım 3: Sol üstteki nesne listesinden UserForm, sağ üstteki yordam listesinden Activate seçin. VBE yordamın iskeletini kendisi oluşturur.

Private Sub UserForm_Activate()
    Me.Caption = "Sipariş Girişi"
    Me.txtMusteri.SetFocus
End Sub

Söz dizimi​

Private Sub UserForm_Activate()
    ' form etkin olduğunda çalışacak kod
End Sub

Private Sub UserForm_Deactivate()
    ' form etkin pencere olmaktan çıktığında çalışacak kod
End Sub

• Parametre: Activate ve Deactivate olaylarının parametresi yoktur.
• Activate: Form etkin pencere olduğunda tetiklenir.
• Deactivate: Form etkin pencere olmaktan çıktığında tetiklenir; örneğin odak başka bir forma ya da Excel penceresine geçtiğinde.

Activate ile Initialize farkı​

• Initialize: Form belleğe yüklendiğinde yalnızca bir kez çalışır. Bir kez yapılacak hazırlıklar için uygundur: ComboBox listesini doldurmak, başlangıç değerlerini atamak.
• Activate: Form Show ile görüntülendiğinde Initialize'dan sonra çalışır. Form Hide ile gizlenip yeniden Show edilirse Initialize çalışmaz, Activate yeniden çalışır.
• Yalnızca Load: Formu Load deyimiyle yüklemek Activate'i tetiklemez; olay form gerçekten görüntülendiğinde oluşur.

Aynı mantıktaki diğer Activate olayları​

1. Sayfa Activate ve Deactivate olayları​

Option Explicit

' Sayfa etkin olduğunda çalışır
Private Sub Worksheet_Activate()
    Me.Range("B2").Value = "Sayfa etkinleştirildi"
End Sub

' Başka bir sayfaya geçildiğinde çalışır
Private Sub Worksheet_Deactivate()
    Me.Range("B3").Value = "Sayfadan ayrılındı"
End Sub

2. Çalışma kitabı düzeyinde sayfa geçişini izleme​

Option Explicit

' Kitapta herhangi bir sayfa etkin olduğunda çalışır
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Geçiş Kaydı" Then
        Me.Worksheets("Geçiş Kaydı").Range("B2").Value = Sh.Name
    End If
End Sub

3. Etkinleşince verileri yenileme deseni​

Option Explicit

' Sayfa her etkin olduğunda toplamı yeniden hesaplar
Private Sub Worksheet_Activate()
    Dim toplam As Double
    toplam = Application.WorksheetFunction.Sum(Me.Range("B2:B6"))
    Me.Range("C2").Value = toplam
    Me.Range("C2").NumberFormat = "#,##0.00"
End Sub

Kullanırken dikkat edin​

• Yordam adı ve modül: Yordam adı tam olarak UserForm_Activate olmalı ve formun kendi kod modülünde bulunmalıdır. Adı elle yazarken harf hatası yaparsanız Excel hata vermez, yordam sadece hiç çalışmaz. Olay iskeletini üstteki listelerden seçmek en güvenli yoldur.
• Her gösterimde çalışır: Activate, form her görüntülendiğinde ve etkin pencere her yeniden formun üzerine geçtiğinde çalışır. Ağır işlemleri (büyük aralık okuma, döngüler) buraya koyarsanız form her açılışta yavaşlar. Yalnızca bir kez yapılacak işleri UserForm_Initialize olayına taşıyın.
• Modless formlarda tekrar tetiklenme: vbModeless olarak gösterilen formlarda kullanıcı Excel penceresiyle form arasında geçiş yaptıkça Activate ve Deactivate tekrar tekrar çalışır. Bu olaylarda MsgBox göstermek ya da formu yeniden Show etmek döngüye benzer istenmeyen sonuçlar doğurabilir.
• Activate içinde Show çağırmayın: Activate yordamı içinde aynı formun Show yöntemini çağırmak özyinelemeye ve hataya yol açar. Formu kapatma ya da gizleme kararlarını düğme olaylarında (Click) ve QueryClose olayında verin.
• Deactivate ve kapatma: Deactivate formu kapatma olayı değildir; formun Hide ya da Unload ile kapanışında çalışacağına güvenmeyin. Kapanışta yapılacak temizlik ve kayıt işlemleri için QueryClose ve Terminate olaylarını kullanın.
• İmleci yerleştirme: Odağı belirli bir denetime vermek için SetFocus yöntemini Initialize yerine Activate içinde kullanmak daha güvenilirdir; çünkü Initialize sırasında form henüz ekranda değildir ve odak atanamayabilir.
• Sayfa ve kitap olayları: Worksheet_Activate ve Workbook_SheetActivate gibi olaylar Application.EnableEvents özelliği False iken çalışmaz. Bir makro bu özelliği kapatıp geri açmayı unutursa olaylar sessizce devre dışı kalır.
• İlgili konular: UserForm_Initialize, UserForm_QueryClose, UserForm_Terminate, UserForm.Show ve Hide yöntemleri, Unload deyimi, SetFocus yöntemi, Worksheet_Activate, Worksheet_Deactivate, Workbook_SheetActivate, Workbook_Open, Application.EnableEvents, TextBox, ComboBox ve ListBox denetimleri.