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 | |
|---|---|
| VB Penceresini Açmak | Alt F11 |
| Sayfa Sonları Ekleme | Alt P O E |
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |
| Ad Yöneticisi Penceresini Açma | Ctrl F3 |
| Yazdırma Alanı Belirlemek | Alt P M B |