ListBox hk.

[ozuberk]

Üstatlar merhaba,

* Aşağıdaki kodu çalıştırdığımda boş olan hücreyi de ListBox1 ekliyor. Boş olan hücrelerin eklenmesi için ne yapabilirim.
* Birde UserForm1 çalıştırdığım zaman "Run-time error '-2147352571 (80020005)': Type mismatch" hatası veriyor bilgisi olan varmı.
Teşekkürler



Private Sub UserForm_Initialize()
Dim i As Long, son As Long
With Worksheets(1)
son = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To son
If WorksheetFunction.CountIf(.Range("A2:A" & i), .Cells(i, "A").Value) = 1 Then
ListBox1.AddItem .Cells(i, "A")
End If
Next i
End With
End Sub

 

[hamitcan]

Kodu, bu şekilde genişletin.

If WorksheetFunction.CountIf(.Range("A2:A" & i), .Cells(i, "A").Value) = 1 Then
if .cells(i,"a") <> "" then
ListBox1.AddItem .Cells(i, "A")
end if
end if

 

[ozuberk]

Hamit bey teşekkür ederim elinize sağlık.