Listbox alle data tonen

[jan excel]

Hoi Allen,

In de toegevoegde bijlage laat de listbox niet alle data zien die in tablad "data" staan.
De VBA code hiervoor heb ik ook via dit forum gekregen echter in een later stadium ontdekte ik dat niet alle gegevens worden geselecteerd, het houd op bij regel 51.
Wat staat er niet goed in onderstaande code ??
(aantal regels worden er steeds meer, dus varieert)

Private Sub UserForm_Activate()
On Error GoTo einde
i = 1
Do
Data = Worksheets("data").Cells(0 + i, 1).value
i = i + 1
If i = 2 Then
X = 1
Else
X = 2
End If
Loop Until Data = ""
UserForm1.ListBox1.RowSource = "data!a5:B5" & i - X
einde:
End Sub

groet,
Jan E

 

[snb]

Gebruik nooit rowsource om een lijst te vullen maar List:

Private Userform_Initialize()
  Listbox1.list=sheets("sheet1").columns(1).specialcells(2).value
End Sub

 

[HSV]

Wel als je ColumnHeads wil toepassen.

 

[snb]

De niet funktionerende eigenschap 'Columheads' is een bekende bug in VBA.

 

[jan excel]

Hoi SNB en Harry,

Bedankt voor jullie reactie.
De code van SNB als volgt er in gezet:

Private Sub UserForm_Activate()
On Error GoTo einde
i = 1
Do
Data = Worksheets("data").Cells(0 + i, 1).value
i = i + 1
If i = 2 Then
X = 1
Else
X = 2
End If
Loop Until Data = ""
ListBox1.List = Sheets("data").Columns(1).SpecialCells(2).value
einde:
End Sub

Nu laat het wel de hele lijst zien van kolom A maar kolom B is niet meer zichtbaar in listbox1.

Voor testen zie bijlage.

 

[snb]

Verwijder alle code behalve die van mij.
En kijk ook eerst eens beter naar de code, vooral de eerste regel: Userform_initialize

 

[jan excel]

Hoi SNB,

Bedankt voor je reactie, jou code in de userform.
Krijg nu foutmelding zie bijlages, zal het wel niet snappen ?
Wat doe ik nu fout ?

 

[snb]

je zult 1 keer End Sub moeten verwijderen.

 

[jan excel]

Beste SNB,

Dit had ik over het hoofd gezien, echter na verwijderen nog steeds zelfde foutmelding.

groet,
Jan E

 

[snb]

Private [COLOR="#FF0000"]Sub[/COLOR] Userform_Initialize()
    ListBox1.List = Sheets("data").Columns(1).SpecialCells(2).value
End Sub

 

[jan excel]

Beste snb,

De code komt nu niet meer met een foutmelding en in de listbox is data column A volledig zichtbaar , echter tweede kolom B (product) niet.

Is dit mogelijk ?
bijlage excel weer toegevoegd met de aanpassing en afbeelding listbox hoe het zou moeten zijn.


Groet,
Jan E

 

[HSV]

Zet in de eigenschap van de 'ListBox' de 'ColumnCount' op 2,
plus aanpassing van de code.

ListBox1.List = Sheets("data").Range("A4").CurrentRegion.value

 

[jan excel]

Snb EN Harry,

Bedankt voor de hulp, code van Harry werkt zoals ik wens.
Nogmaals mijn dank is groot

groet,
jan E

 

[snb]

Als je wil werken met VBA is het toch wel verstandig een basiscursus te volgen en een basisboek VBA van voor naar achter door te nemen.