UserForm_Initialize

Olay yordami nereye yazilir​

• Alt+F11: Visual Basic Düzenleyicisi'ni (VBE) acin.
• Proje Gezgini: Proje Gezgini'nde (Project Explorer) formu cift tiklayin ve formu sag tiklayip Kodu Görüntüle (View Code) secin.
• Hazir iskelet: Kod penceresinin ustundeki sol listeden UserForm, sag listeden Initialize secin; Excel yordam iskeletini kendisi yazar.

Söz dizimi​

Private Sub UserForm_Initialize()
    ' Formun ilk ayarlari burada yapilir
End Sub

• Parametre: Olayin parametresi yoktur; yordam bos parantezle yazilir.
• Private: Yordam yalnizca form modulunde gecerlidir; Excel iskeleti bu sekilde olusturur.
• Me: Form kendi kodundan Me anahtar sozcugu ile anilir; ornegin Me.Caption formun baslik metnidir.

Ne zaman calisir: Initialize, Activate ve Show farki​

• UserForm_Initialize: Bellege yuklenirken bir kez calisir; liste doldurma ve varsayilan degerler icin uygundur.
• UserForm_Activate: Form her etkin oldugunda calisir; Hide sonrasi yeniden gosterildiginde de tetiklenir. Odak verme ve her gosterimde yenilenmesi gereken islemler icin uygundur.
• UserForm_Terminate: Form bellekten kaldirilirken calisir.

1. ComboBox listesini sayfadan doldurma​

Option Explicit

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim son As Long, i As Long

    Set ws = ThisWorkbook.Worksheets("Şehir Listesi")
    ' A sutunundaki son dolu satiri bul
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    cmbSehir.Clear
    For i = 2 To son
        cmbSehir.AddItem ws.Cells(i, 1).Value
    Next i

    ' Liste bos degilse ilk ogeyi sec
    If cmbSehir.ListCount > 0 Then cmbSehir.ListIndex = 0
    lblBilgi.Caption = "Listede " & cmbSehir.ListCount & " sehir var."
End Sub

2. Varsayilan deger ve secenekleri hazirlama​

Option Explicit

Private Sub UserForm_Initialize()
    ' Form basligi
    Me.Caption = "Yeni Sipariş"

    ' Bugunun tarihini ve varsayilan adedi yaz
    txtTarih.Value = Format(Date, "dd.mm.yyyy")
    txtAdet.Value = "1"

    ' Odeme turu listesini hazirla
    cmbOdeme.List = Array("Nakit", "Kredi Kartı", "Havale")
    cmbOdeme.ListIndex = 0

    ' Varsayilan secenek
    optPesin.Value = True

    ' Tarih kutusu degistirilemesin
    txtTarih.Locked = True
End Sub

3. Initialize mantigini standart modulde sinama​

Option Explicit

' Initialize icinde de kullanilabilecek ortak suzme islevi
Function ListeyeGirerMi(dep As String) As Boolean
    ListeyeGirerMi = (dep = "Satış")
End Function

Sub ListeDurumuYaz()
    Dim ws As Worksheet
    Dim son As Long, i As Long

    Set ws = ThisWorkbook.Worksheets("Personel Listesi")
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        If ListeyeGirerMi(CStr(ws.Cells(i, 2).Value)) Then
            ws.Cells(i, 4).Value = "Forma eklenir"
        Else
            ws.Cells(i, 4).Value = "Atlanır"
        End If
    Next i
End Sub

Kullanırken dikkat edin​

• Yalnizca form modulunde calisir: UserForm_Initialize adli bir Sub'i standart module yazarsaniz Excel onu olay olarak tanimaz; hicbir zaman otomatik calismaz. Yordamin, ilgili UserForm'un kendi kod modulunde olmasi gerekir.
• Hide Initialize'i tekrar calistirmaz: Form Hide ile gizlenip yeniden Show ile gosterildiginde Initialize yeniden calismaz; form bellekte kalmistir. Her gosterimde yenilenmesi gereken islemleri UserForm_Activate olayina, formu tamamen sifirlamak istiyorsaniz Unload Me ile kapatip yeniden yuklemeyi tercih edin.
• SetFocus ve gorunurluk gerektiren islemler: Initialize sirasinda form henuz ekranda degildir. Bir denetime odak vermek icin SetFocus kullanmaya calisirsaniz hata alabilirsiniz. Ilk odak icin denetimlerin TabIndex sirasini ayarlayin ya da SetFocus cagrisini UserForm_Activate icine koyun.
• Formun beklenmedik yuklenmesi: Kodda formun adiyla bir ozelligine veya denetimine basvurmak (ornegin frmSiparis.Caption), formu sessizce bellege yukler ve Initialize'i tetikler. Formu gostermeden baska bir yerden degerini okurken bu durumu goz onunde bulundurun; gereksiz yuklemeler beklenmedik yan etkilere yol acabilir.
• Hatalar ve bos listeler: Initialize icindeki hatalar formun acilmasini engelleyebilir. Kaynak sayfanin adini dogru yazdiginizdan ve veri aralaginin bos olmadigindan emin olun; listeyi doldurmadan once ListCount ya da son satir kontrolu yapmak guvenlidir.
• Büyük listelerde hiz: Binlerce satiri tek tek AddItem ile eklemek yavas olabilir. Bu durumda bir diziye okuyup ComboBox ya da ListBox icin List ozelligine atamak veya RowSource kullanmak daha hizlidir.
• İlgili konular:
  • UserForm_Activate: Form her etkin oldugunda calisan olay.
  • UserForm_QueryClose: Form kapanmadan once calisan olay.
  • UserForm_Terminate: Form bellekten kaldirilirken calisan olay.
  • Show, Hide, Load ve Unload: Formun yasam dongusunu yoneten yontem ve deyimler.
  • AddItem, List, ListIndex ve RowSource: ComboBox ve ListBox denetimlerini doldurma ozellikleri.
  • Workbook_Open: Formu dosya acilirken gostermek icin kullanilan olay.