Cellen uit Excel weergeven in VBA Form

[Stokkie1979]

Hallo forum leden,

Ik ben een Excel programma aan het maken voor een bar.

Ik heb het voor elkaar dat wanneer in een drankje aanklik in mijn VBA Form deze in een Excel blad wordt opgeteld met 1.
Maar in dit scherm wil ik een totaal overzicht hebben van de bestelde drankje als een soort van kassa bon, dit moet realtime weergeven worden op het Form.

Als je op de foto kijkt zie je rechts onder een vak genaamd kassa bon, hier moet de data uit de sheet "Rekening" realtime worden weergegeven.
Het liefst alleen de regels die gevuld zijn maar als het niet anders kan alle regels.

Iemand een idee hoe ik dit maken moet?




Alvast bedankt voor jullie hulp.

 

[Timshel]

Probeer het eens met een listbox.

 

[Roncancio]

Kan je het Excelbestand bijvoegen.
Dat werkt wat makkelijker.

Met vriendelijke groet,


Roncancio

 

[Stokkie1979]

Ja, goed idee.

Ik zit dan nog met een hele grote maar. Hoe laat ik de tekst uit "Rekening" deels of geheel weergeven in de listbox? Die dus dan ook realtime kan veranderen, zodat wanneer de waardes in de sheet veranderen deze gelijk mee gaan in de listbox.

 

[Stokkie1979]

Hierbij het bestand.

https://www.dropbox.com/s/rwq74rwsl2lor6l/Test%20Bar%20Systeem.xlsm?dl=0

 

[Timshel]

Stel de eigenschap RowSource van de listbox in op "Totaal!A1: D13" (zonder de aanhalingstekens en de spatie)
Stel de eigenschap ColumnCount in op 4.
Je zal het formulier iets anders moeten indelen om het allemaal passend te krijgen.

 

[Roncancio]

Sheet2.UsedRange.AutoFilter 2, "<>"
ListBox1.List = Sheet2.Cells.SpecialCells(xlCellTypeVisible).Value
Sheet2.UsedRange.AutoFilter

Voeg bovenstaande code toe aan een knop.
De code filtert het werkblad Rekening en voeg de ingevulde rijen toe aan de listbox in de userform.

Zorg dat je het aantal kolommen in de listbox aanpast.

Met vriendelijke groet,


Roncancio

 

[Stokkie1979]

TimShel,

Topper. Dat is wat ik wilde. Helemaal super. Ik ga nog even verder puzzelen maar tot zover heb je me heel erg geholpen.

THANX!!!!!!