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 | |
|---|---|
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |
| Hızlı Doldurma Kısayolu | Ctrl E |
| Kaydet / Alternatif | Shift F12 |
| Bir Hücre Yukarı Git | ↑ |
| Soldaki Veriyi Kopyalama | Ctrl R |