Wat doe ik fout??

[Masjimo]

Ik heb het volgend deel in een macro verwerkt;

  .Select
    Selection.Copy
    Sheets("Historie").Select
    Range("A4").Select
    Selection.End(xlDown).Select
    SendKeys "{Down}"                                        [FONT=Tahoma]Hier zit het probleem;
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ik wil in de sheet Historie de oude waarden opslaan;
Kopieren in het hoofdblad
Vervolgens naar het blad "Historie"
Met {End}{Down} naar het eind van de reeds gekopieerde waarden, om vervolgens met {Down} naar de eerst volgende lege cel te stappen

Dat laatste stapje {down} lukt dus niet!! Wat moet hier anders??

Henk

 

[Cobbe]

Deze zal wel het nodige doen:

Range("Rapportagedatum").Copy Sheets("Historie").Range("A" & Range("A" & Rows.Count).End(xlUp).Row)

 

[Masjimo]

Ik heb de regel overgekopieerd........

Maar het werkt nog niet...??

 

[Cobbe]

Je kunt niet in de loop van het spel de spelregels wijzigen.

Met de informatie die je eerst verschafte klopt mijn oplossing wel.

Maar met behulp van een bestandje zou je gemakkelijker een oplossing aangereikt krijgen.

 

[Masjimo]

Hierbij heb ik het bestand toegevoegd.

Doel: Het projectresultaat zoals bepaald in een periode vastleggen in het tabblad "Historie".

Probleem: De macro kopieert wel, maar stapt niet telkens naar de volgende regel!
Ben op zoek naar het juiste commando om dit voor elkaar te krijgen!


Alvast bedankt
HenkBekijk bijlage Projectresultaat Voorbeeld.xlsmBekijk bijlage Projectresultaat Voorbeeld.xlsm

 

[Cobbe]

Deze code doet dat vlekkeloos:

Evrij = Sheets("Historie").Range("A" & Rows.Count).End(xlUp).Row + 1
  With Sheets("Werkingsresultaat")
        .Range("Rapportagedatum").Copy
            Sheets("Historie").Range("A" & Evrij).PasteSpecial Paste:=xlPasteValues

        .Range("Projectresultaat").Copy
            Sheets("Historie").Range("C" & Evrij).PasteSpecial Paste:=xlPasteValues
        
        .Range("MaxResultaat").Copy
            Sheets("Historie").Range("B" & Evrij).PasteSpecial Paste:=xlPasteValues
  End With

 

[Haije]

Masjimo,

uit je eerste post:

  .Select
    Selection.Copy
    Sheets("Historie").Select
    Range("A4").Select
    Selection.End(xlDown).[COLOR="#FF0000"]offset(1).[/COLOR]Select
'    SendKeys "{Down}"

 

[Masjimo]

Bedankt voor de oplossing, weer iemand gelukkig gemaakt!!!!

Mvgr
Henk