Listbox Sabit Başlık Ekleme

[bebar]

Merhaba,

Listbox1 için sabit kolon başlıklarım olsun istiyorum aşağıdaki gibi bir kod oluşturdum fakat hata veriyor yardımcı olursanız memnun olurum.

With ListBox1
.ColumnHeads = True
.ColumnWidths = "105;55"
.ColumnCount = 2
.List(.ListCount - 1, 1) = "Mağaza"
.List(.ListCount - 1, 2) = "Adet"
End With

 

[hamitcan]

Böyle deneyin.

Private Sub UserForm_Initialize()
    With ListBox1
'        .ColumnHeads = True
        .ColumnWidths = "105;55"
        .ColumnCount = 2
        .AddItem
        .List(0, 0) = "Mağaza"
        .List(0, 1) = "Adet"
    End With
End Sub

 

[bebar]

tamamdır hocam teşekkür ederim.
bir şeye daha takıldım konuı ile alakası yok ama

listboxdan hücereye veri göndermek istiyorum aşağıdaki gibi benzer deneme yanılma kodlarla yapmaya çalışıyorum ama olmadı.
nerde yanlış yaptığımı söylerseniz memnun olurum

sat = 2
        For I = 2 To ListBox1.ListCount + 2
            s5.Cells(sat, 1) = ListBox1.List(I, 0)
            s5.Cells(sat, 2) = ListBox1.List(I, 1)
            sat = sat + 1
        Next I

Tekrar Teşekkür ederim.

 

[hamitcan]

Bir adet UserForm nesnesi ekleyin.
Bir adet CommandButton nesnesi ekleyin.
Bir adet ListBox nesnesi ekleyin.
A2:B5 aralığına bir şeyler girin.
Aşağıdaki kodu Userform içine ekleyin.

Private Sub CommandButton1_Click()
    x = [a65536].End(3).Row + 1
    Cells(x, 1) = ListBox1.Column(0)
    Cells(x, 2) = ListBox1.Column(1)
End Sub

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.RowSource = "a2:b5"
End Sub