copy formula paste special

[mieoli]

Bij het kopieren van een cell met datumformule =(rounddown(now(),0) en je paste die ahv de methode paste special -> values, geeft dit in macrovorm een ander datumformaat aan.
Voor vandaag is het resultaat 2 mei 2009 ipv 5 feb 2009. Hoe stuur ik deze formattering mee? Hieronder een stukje van de macro.

Application.Goto Reference:="RangeVerkocht"
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1).Range("a1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

 

[Wigi]

Je maakt het jezelf veel te moeilijk.

With Sheets("Data").Range("A1").Offset(1).End(xlDown)
     .Value = Sheets("VULNAAMVANBLADIN").Range("RangeVerkocht")
     .NumberFormat = "dd/mm"
End With

Wigi

 

[mieoli]

Hierbij een totaalvoorbeeld.
Een complete leek ben ik op het gebied van vba.
Het is de bedoeling dat iemand een aankoopkeuze doet, en deze gegevens automatisch op de datasheet overgezet worden. Dit werkte in het verleden prima tot de gebruikers vroegen om een datumformule toe te voegen. Bij het copieeren zet de macro de datum van bv februari om in de dag, dus 06/02/09 is dus 2 juni 2009.
De oplossing werkt dus niet. Misschien vind iemand tijd om er eens naar te kijken...

 

[Hoornvan]

mieoli,

Als ik wat invoer en op de knop klikt dan stop de macro op deze regel.

Sheets("PivotByDay").Select

Dit blad waar hij naar zoekt is niet aanwezig.

Onder staande regel in de code zetten.
Je heb samengevoede cellen en die kan je niet leeg maken door alleen de eerste cel op te geven.

Range("L6:O6,L7:O7,K8:K9,C5:D5,C6:D6,C7:D7,K11:K24,L11:L31").ClearContents

 

[Hoornvan]

mieoli,

Ik heb van de file, de macro door gelopen met F8 en zag waar hij de maand datum veranderde van Februari naar Juni.
Dit heb ik opgelost door er een ' voor te plaatsen.
Het blad PivotByDay heb ik tevens aan gemaakt.
Je ziet in de macro waar ik de ' heb geplaatst en nu loopt de macro door en de datum blijft nu wel goed.

 

[Hoornvan]

mieoli,

ik heb nog wat aan je bestandje toegevoegd.
Als je nu op de knop klikt en er is niets ingevoerd krijg je een melding.

Hiervoor heb ik wel de hulp van helpmij moeten inroepen.

 

[mieoli]

Is prima in orde nu, hartelijk bedankt.