Sorteren zonder lege cellen

[Batigoal80]

Ik maak een rapport wat een grafiek laat zien.
hiervoor wil ik de gegevens van het blad "kpi1"
door een macro laten sorteren. De kolommen A t/m BC worden gesorteerd op kolom bc. Vervolgens wil ik alle niet lege cellen van kolom A, BC en een even groot bereik van BD kopieëren naar het blad "gegevens" (zoals nu ook op dit blad weergegeven staat)

Op het blad Grafiek Kpi1 verschijnt dan de grafiek. Op dit blad kunnen ook de weken van de grafiek bepaald worden. (zie dan in de cellen van kolom bc op het blad (kpi1) door middel van de functie verschuiving rekening met de geselecteerde weken gehouden wordt.

Ik heb al een klein stukje VBA geschreven. Wat ik aan het proberen ben is of ik het bereik van de gevulde cellen kan selecteren in het voorbeeld (A1:BC12) maar een volgende keer kan dit ook A1:BC28 zijn.

Sub opvragenpareto()

Dim lngrow As Long
Dim lngcolumn As Long
Dim rngdata As Range
Dim wsdata As String
Dim wsinvoer As String
Dim wsgegevens As String

Application.ScreenUpdating = False

wsinvoer = "grafiek KPI1"
wsdata = "KPI1"
wsgegevens = "gegevens"

Sheets(wsdata).Select
Set rngdata = Sheets(wsdata).Range("A3", Sheets(wsdata).Range("A3").End(xlDown))
lngrow = rngdata.SpecialCells(xlCellTypeVisible).End(xlDown).Row
rngdata.Select
ActiveCell.Offset(, 54).Select

Kan iemand mij helpen het juiste bereik te sorteren en deze te kopieëren naar het blad "gegevens" zodat de grafiek veranderd.

Groet Wouter

 

[Batigoal80]

even het voorbeeld toevoegen

 

[huijb]

even het voorbeeld toevoegen

en dit even lezen http://www.helpmij.nl/forum/showthread.php?t=278887

 

[Batigoal80]

Is er iets dat ik niet goed doe huijb. Ik heb dit al eens gelezen. Of was dit berichtje zomaar. Ik wil mij graag houden aan de regels hier.

Groet Wouter

 

[huijb]

Is er iets dat ik niet goed doe huijb. Ik heb dit al eens gelezen. Of was dit berichtje zomaar. Ik wil mij graag houden aan de regels hier.

Groet Wouter

Als je het leest weet je toch wel wat je verkeerd heb gedaan. Zo niet, je code stond niet tussen de code tags. Is nu aangepast.

 

[Batigoal80]

Ach ja je hebt gelijk. bedankt, zal er op letten in het vervolg

 

[huijb]

Ach ja je hebt gelijk. bedankt, zal er op letten in het vervolg

Goed zo, helpers tevreden, ik tevreden, iedereen tevreden :thumb: