Kayıt formumuza, kullanıcının serbest metin yazmak yerine hazır bir listeden seçim yapabileceği bir ComboBox (açılır liste) ekleyeceğiz — ör. şehir seçimi için.
1. Adım: Referans Veri Sayfası Hazırlamak
Ayrı bir sayfada (ör. "Data") seçilebilecek değerlerin listesini hazırlayın — bir sütuna şehir isimlerini, başka bir sütuna meslek isimlerini yazın.
2. Adım: ComboBox Eklemek
Toolbox'tan ComboBox'ı forma sürükleyin (Label'ının yanına, TextBox yerine).
3. Adım: Listeyi Bir Veri Aralığından Beslemek: RowSource
ComboBox'ı seçip Properties panelinden RowSource alanına, listenin bulunduğu sayfa ve hücre aralığını yazın:
Data!A2:A10
Bu, kod yazmadan doğrudan Properties panelinden ayarlanan bir özelliktir — form çalıştırıldığında ComboBox otomatik olarak o aralıktaki değerleri açılır liste haline getirir.
4. Adım: Seçilen Değeri Tabloya Kaydetmek
Diğer TextBox'larda olduğu gibi, ComboBox'ın seçilen değeri de .Value ile okunur:
Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("C2").Value = ComboBox1.Value
End Sub
Birden Fazla ComboBox
Aynı yöntemi meslek seçimi için ikinci bir ComboBox ile tekrarlayabilirsiniz — her biri kendi RowSource'una bağlanır, farklı sayfalardaki farklı referans listelerini kullanabilirler.
Sırada Ne Var?
Sırada, formumuza CheckBox ekleyip son dolu satırı otomatik bularak yeni kayıtları alt alta eklemeyi göstereceğiz.