ListBox Nesnesine Seçeneğe Göre Veri Alma
11 Aralık 2020
Üstte basit bir tablo var. Buradaki verileri başlıklı ya da başlıksız seçeneğe göre ListBox'a almak için aşağıdaki kodları kullanabilirsiniz.
Private Sub UserForm_Initialize()
With Me.ListBox1
If Me.CheckBox1.Value = True Then
.RowSource = "Sayfa1!A1:A10"
ElseIf Me.CheckBox2.Value = True Then
.RowSource = "Sayfa1!A2:A10"
Else
MsgBox "Verileri alabilmek için lütfen başlık seçeneklerinden birini seçiniz!", vbCritical, "HATA"
End If
.ColumnHeads = False
.ColumnCount = 1
.ColumnWidths = 150
End With
End Sub
With Me.ListBox1
If Me.CheckBox1.Value = True Then
.RowSource = "Sayfa1!A1:A10"
ElseIf Me.CheckBox2.Value = True Then
.RowSource = "Sayfa1!A2:A10"
Else
MsgBox "Verileri alabilmek için lütfen başlık seçeneklerinden birini seçiniz!", vbCritical, "HATA"
End If
.ColumnHeads = False
.ColumnCount = 1
.ColumnWidths = 150
End With
End Sub
Kodların tümünü incelemek için dosyayı indirmeniz yeterli olacaktır.
| YARARLI KISAYOLLAR | |
|---|---|
| Tablonun Sütununu Seçme | Ctrl Space |
| Kaydet / Alternatif | Shift F12 |
| Hızlı Doldurma Kısayolu | Ctrl E |
| Hücreyi Sağa Yaslı Hale Getirmek | Alt Ş AI |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |