lege cellen uit rij gegeven halen zonder filter.

[StanWolfs]

Hallo,

In bijgevoegd Excel bestand wil ik de gegevens op een nieuw tabblad laten terugkomen zonder de lege cellen ertussen. het nummer en de datum moeten wel naast elkaar blijven staan.

Alvast bedankt!

Bekijk bijlage test.xlsx

 

[Haije]

zoiets als in de bijlage?

 

[StanWolfs]

niet helemaal ik zou het liefst alleen de ordernummers en startdatum willen zien zonder tekst?

 

[Haije]

Bedoel je de tekst in regel 3?

 

[StanWolfs]

ja de tekst in regel 3 en onderaan de draaitabel Eindtotaal en (leeg)
en als er geen datum bij het ordernummer staat mag deze niet in de lijst voorkomen

 

[Haije]

Is dit beter?

 

[StanWolfs]

dit is zeker al beter maar heb nog 2 puntjes voor verbetering
de tekst ordernr in regel 3 kan ik zo verwijderen maar de tekst begindatum niet, is hier nog een oplossing voor?
en de begindatum 0-1-1900 mag niet in de lijst voorkomen.

 

[Haije]

Stan,

even een paar vraagjes:
- wijzigt het aantal regels op Blad1?
- dient na elke wijziging automatisch Blad2 bijgewerkt te worden of mag dat ook met een druk op een knop?
- wat moet er wel gebeuren met regels met order nr, maar zonder datum?

 

[StanWolfs]

- wijzigt het aantal regels op Blad1? Ja deze wijzigen dagelijks
- dient na elke wijziging automatisch Blad2 bijgewerkt te worden of mag dat ook met een druk op een knop? Mag met druk op knop
- wat moet er wel gebeuren met regels met order nr, maar zonder datum? Deze hoeven niet in de lijst voor te komen dus mogen verwijdert worden

 

[Haije]

Stan,

in deze bijlage worden elke keer als je kiest voor Blad3, de gegevens van Blad1 opnieuw opgehaald.

LET OP: macro's toestaan!!!

 

[StanWolfs]

dit is een top oplosing!!
maar hoe kan ik dit toepassen in het originele document? (ik heb geen ervaring met het opnemen van een macro!)

 

[Haije]

hoe heet het tabblad waar de "ruwe" gegevens in staan?
en in welke kolommen staan de gegevens
en hoe het tabblad waar het naartoe moet?

 

[StanWolfs]

het tabblad waar de ruwe gegevens in staan heet "Orderplanning" in de kolommen "N" en "X"
het tabblad waar het naartoe moet heet "Startdatum"

 

[Haije]

Stan,

maak een kopie van je originele bestand (voor het geval het fout gaat).
open je bestand en rechtsklik op de tab Startdatum
je ziet nu o.a. "Programmacode weergeven" klik er op
je ziet nu de VB Editor, met rechts een geheel leeg veld
plak hier de onderstaande code in.

Sla het bestand op als xlsm bestand, met macro's dus.

Private Sub Worksheet_Activate()
ActiveSheet.UsedRange.ClearContents
Application.ScreenUpdating = False
Range("A1").Select
a = Sheets("Orderplanning").UsedRange.Address
nrs = Split(a, "$")
nr = nrs(UBound(nrs)) * 1
For r = 1 To nr + 1
If Sheets("Orderplanning").Cells(r, 14) <> "" Then
If Sheets("Orderplanning").Cells(r, 24) = "" Then GoTo verder:
If Sheets("Orderplanning").Cells(r, 14) = "Order" Then GoTo verder:
    ActiveCell.Offset(x) = Sheets("Orderplanning").Cells(r, 14).Value
    ActiveCell.Offset(x, 1) = Sheets("Orderplanning").Cells(r, 24).Value
    x = x + 1
End If
verder:
Next r
End Sub

Succes!

 

[StanWolfs]

Super!!
Bedankt!