Itemlabels herhalen

[moniek108]

Om berekeningen te doen op basis van data moet ik de datum in lege cellen laten herhalen.
In Excel 2010 gaat dat perfect:
Veldinstellingen --> Indeling en afdrukken --> Itemlabels herhalen aanvinken.
Hoe doe ik dat in Excel 2007?
Daar is die optie "Itemlabels herhalen" niet beschikbaar.

 

[oeldere]

Waarschijnlijk wordt je beter geholpen met een voorbeeldbestandje, ontdaan van gevoelige info.

 

[moniek108]

In bijlage een afgeslankt voorbeeldbestand.
In kolom C "datum in" moeten de lege cellen opgevuld worden met de datum die in de cel erboven staat.

In Excel 2010 gaat dat dus moeiteloos:
Veldinstellingen --> Indeling & Afdrukken --> Itemlabels herhalen.

Die functie bestaat blijkbaar niet in Excel 2007. Ik kan ze in elk geval niet vinden.

Hoe kan ik dat oplossen zonder al te veel manuele, tijdrovende ingrepen in een groot bestand?
Moet ik aanpassingen doen aan de gegevenstabel zelf?

 

[oeldere]

Bedankt voor het toevoegen van het bestandje.

Wat dient nu opgevuld te worden => de draaitabel?

En welke data dient hier te komen => altijd de datum van het vorige item?

Ik zie hier de logica niet van.

 

[moniek108]

Nieuwe pogingmet nieuwe bijlage - vorig bestand is té fel afgeslankt blijkbaar.
In kolom C moeten de lege cellen opgevuld worden met de datum in de cel erboven.

 

[oeldere]

Kan je toch onvoldoende met deze vraag helpen.

Ik laat het graag aan een ander over.

Veel succes met het vinden van een oplossing.

 

[Cobbe]

De 'vullen'-functie zit nog niet in versie 2007 wel in de ASAP Utilities.
Maar volgende macro doet dat ook:

Sub uitvullen()
For Each cl In Range("D6:D100")
If cl.Offset(1, 0) = "" Then cl.Offset(1, 0) = Format(cl, "dd/mm/yyyy")
Next
End Sub

Wel nog de bereiken aanpassen.

 

[roeljongman]

Ok, de optie item labels herhalen is niet beschikbaar in excel 2007. De vraag is of je dit probleem dan moet tackelen door alsnog zelf die labels erin te prakken met een macro, wat volgens mij alleen kan als je de draaitabel weer omzet naar platte tekst..

ik heb de indruk dat het dan effectiever is om via een andere formule op jou gewenste uitkomst te komen, maar dan moet je toch even beschrijven wat je volgende bewerking is die je met die draaitabel met alle item labels had willen doen.
Want jou getoonde draaitabel komt nagenoeg overeen met je datagebied, alleen het dossiernummer is weggelaten. dus ik denk dat jou data tab prima voldoet om met sommen.als() en/of somproduct() formules tot hetzelfde eindresultaat te komen zonder al te veel extra stappen.

 

[HSV]

Voor platte gegevens i.p.v. een draaitabel dit trucje.
Helaas is dit in een draaitabel niet mogelijk.

Selecteer de cellen van belang in kolom C.
Druk sneltoets F5.
Druk 'Speciaal'
Vink 'Lege waarden' aan.
Klik 'Ok'.
Type een "=" teken en druk op pijltje naar boven (pijltje naar boven van toetsenbord).
Druk Ctrl+Enter.

 

[Warme bakkertje]

Of deze.

Sub tst1()
  For Each ar In Sheets("Blad1").UsedRange.Columns(3).SpecialCells(4).Areas
    If ar.Cells(1).Row > 1 Then ar.Value = Format(ar.Cells(1).Offset(-1), "mm/dd/yyyy")
  Next
End Sub

en deze

Sub tst()
    With Sheets("Blad1").Range("C6:C" & _
                Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row)
        .SpecialCells(4).Formula = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[HSV]

Of deze.

Sub hsv()
  Range("C6:C" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
End Sub

 

[fst]

Even wat meer info nodig

Bekijk bijlage Voorbeeld item labels draaitabel.xlsx

De 'vullen'-functie zit nog niet in versie 2007 wel in de ASAP Utilities.
Maar volgende macro doet dat ook:

Sub uitvullen()
For Each cl In Range("D6:D100")
If cl.Offset(1, 0) = "" Then cl.Offset(1, 0) = Format(cl, "dd/mm/yyyy")
Next
End Sub

Wel nog de bereiken aanpassen.

Ik heb een draaitabel gemaakt en ASAP Utilities gedownload, maar hiermee krijg ik het niet voor elkaar.
Als ik mijn draaitabel in de overzichtsweergave zet en alle itemlabels in kolom A naar beneden wil uitvullen
dan lukt dit niet. Ook niet met de ASAP -> "kopieer waarden naar beneden in lege cellen". Zie ik iets over het hoofd?

Of bestaat er een relatieve macro, die ik kan gebruiken?

Alvast hartelijk dank!