Listbox ilk satırın boş gelmesi

[zevki.sefali]

Arkadaşlar Merhaba
listbox açıldığında ilk satır boş gelmektedir.
formda araştırdım hemen hemen hepsi benim kullandığım kodların aynısı.
ilk satırın boş gelmemesi için kodları nasıl düzeltmem gerek. kodlarım aşağıdaki gibi
Dim i As Long
Dim sy
Set sy = Sheets("veri")
ThisWorkbook.Save
ListBox1.Clear
yukseklik = Application.Height - 50
For i = 2 To sy.Range("a65536").End(3).Row

With ListBox1
.Height = yukseklik
.Width = 445

.ColumnCount = 7
.ColumnWidths = 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 35 & ";" & 70
.AddItem Format(sy.Cells(i, 1), "dd.mm.yyyy")

.List(.ListCount - 1, 1) = sy.Cells(i, 2)
.List(.ListCount - 1, 2) = sy.Cells(i, 3)
.List(.ListCount - 1, 3) = sy.Cells(i, 4)
.List(.ListCount - 1, 4) = sy.Cells(i, 5)
.List(.ListCount - 1, 5) = sy.Cells(i, 6)
.List(.ListCount - 1, 6) = sy.Cells(i, 7)


End With

Next i
End Sub

 

[Muzaffer Ali]

Merhaba.

For i = 2 Satırındaki 2 yi 3 yapın.

 

[zevki.sefali]

Merhaba.

For i = 2 Satırındaki 2 yi 3 yapın.

Dalgalikur Merhaba
veri başlangıcım a2 den başlıyor. a1 satırı başlık olduğu için for i: 2 den başlatım. sizin dediğiniz gibi for i: 3 yapınca yine ilk satır boş geliyor ayrıca verilerimin ilk satırı listboxa eklenmiyor

 

[Muzaffer Ali]

O zaman bir yerde mutlaka boş bir satır ekleniyor olmalı.
Projennizde ".AddItem" aratın.

Arama yapmak için CTRL+F basın açılan pencerede "Selected Project" seçili yapın arama kısmına .AddItem yazın ve arayın.

ListBox1'e başka bir yerde satır eklemesi olup olmadığını bulmaya çalışın.

Bu yöntem de işe yaramazsa dosyanızı ekleyin ben bakayım.

 

[zevki.sefali]

O zaman bir yerde mutlaka boş bir satır ekleniyor olmalı.
Projennizde ".AddItem" aratın.

Arama yapmak için CTRL+F basın açılan pencerede "Selected Project" seçili yapın arama kısmına .AddItem yazın ve arayın.

ListBox1'e başka bir yerde satır eklemesi olup olmadığını bulmaya çalışın.

Bu yöntem de işe yaramazsa dosyanızı ekleyin ben bakayım.

SN: Dalgalıkur
sorunu çözdüm. sıkıntı lisxtboxun özelikler menüsünde columnheads = true olmasından kaynaklanıyormuş.
ilginiz için Teşekkürler