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 | |
|---|---|
| Satır ve Sütun Başlıklarını Gizleme Gösterme | Alt P Ü |
| Koyu Yazdırma | Ctrl K |
| Seçilen kontrolü etkinleştirme veya açma | Space |
| Sayfalar Arası Geçiş Sonraki Sayfa | Ctrl Page Down |
| İşlemi Geri Alma | Ctrl Z |