Personel bilgilerini eklemek için label (etiket) ve textbox (metin kutusu) içeren bir form oluşturalım.
1. Adım: Form Oluşturma
Excel'de Geliştirici sekmesinden VBA penceresini açın ve yeni bir UserForm oluşturun. Formunuza şu kontrolleri ekleyin:
- Label1: "İsim"
- TextBox1: Kullanıcıdan isim almak için
- Label2: "Soyisim"
- TextBox2: Kullanıcıdan soyisim almak için
- Label3: "Departman"
- TextBox3: Kullanıcıdan departman almak için
- Label4: "Email"
- TextBox4: Kullanıcıdan email almak için
- CommandButton1: "Kaydet" butonu
2. Adım: Kod Ekleme Formunuza çift tıklayarak kod penceresini açın ve aşağıdaki kodları ekleyin:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("PersonelBilgileri") 'Verilerin kaydedileceği sayfa adı
' Yeni veri eklemeden önce mevcut verileri kontrol edin
If ws.Cells(1, 1).Value = "" Then
' Başlık satırı ekleyin
ws.Cells(1, 1).Value = "İsim"
ws.Cells(1, 2).Value = "Soyisim"
ws.Cells(1, 3).Value = "Görev"
ws.Cells(1, 4).Value = "Sicil No"
End If
Dim emptyRow As Long
emptyRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1 'Boş satırın bulunması
'Formdan verileri alıp tabloya ekleme
ws.Cells(emptyRow, 1).Value = TextBox1.Value 'İsim
ws.Cells(emptyRow, 2).Value = TextBox2.Value 'Soyisim
ws.Cells(emptyRow, 3).Value = TextBox3.Value 'Görev
ws.Cells(emptyRow, 4).Value = TextBox4.Value 'Sicil No
'Form alanlarını temizleme
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub
3. Adım: Tablo Oluşturma
Excel'de PersonelBilgileri adında bir sayfa oluşturun ve şu başlıkları ekleyin:
- A1: İsim
- B1: Soyisim
- C1: Görev
- D1: Sicil No