Rijen met gegevens plakken in ander bestand

[gGerretje]

Beste Helpers,

Ik zit met een probleempje.
Ik heb 2 bestanden.
Overdag worden gegevens uit een database opgeslagen in het bestand Measures.xlsm.
Aan het einde van de dag bevat dit bestand een aantal rijen met gegevens.
Dan wordt (ik heb gekozen voor tijdstip 23.45) het bestand Historie.xlsm met de Taakplanner in Windows geopend.
Met VBA wordt van daaruit het bestand Measures.xlsm geopend en worden de gevulde gegevensrijen uit Measures geselecteerd en gekopieerd naar de eerste lege rij in het bestand Historie.

Om de zaak gemakkelijker te kunnen testen heb ik de code onder een opdrachtknop gezet.

Probleem: het plakken van de gegevens in het bestand Historie gaat fout.

Ik heb de code op verschillende manieren uitgeprobeerd en zoals deze er nu staat heeft hij tijdens het testen een hele poos perfect gewerkt.
Nadat ik de code weer terug heb gezet om de opdrachtknop overbodig te maken werkt het plotseling niet meer.
Ik heb nogmaals via een macro geprobeerd de juiste code te vinden en dan krijg ik de code die er nu staat.

Kan iemand mij aangeven waar ik in de fout ga.
Het is de bedoeling dat de Waarden met Opmaak worden gekopieerd.

Alvast dank voor jullie hulp.

Groeten
Ger

 

[gGerretje]

Hallo allemaal,

Ik ben er vanavond nog maar eens aan begonnen.
Had het gisteravond laat ook helemaal gehad met al dat bestuderen, uitproberen aanpassen en weer uitproberen.

Probleem zat hem in de code om de waarden en opmaak te plakken:

    Range("A1048576").End(xlUp).Offset(1, 0).Select
    ActiveCell.EntireRow.Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ik probeerde de selectie te plakken terwijl ik het bronbestand (Measures.xlsm) al gesloten had.
En dat blijkt niet te kunnen. Wist ik veel ...

Nu begrijp ik die code nog steeds niet echt, maar het werkt wel.
Intussen (na nog --tig keer gelezen te hebben dat je Select moet vermijden nog een kleine aanpassing gedaan:

    With Range("A1048576").End(xlUp).Offset(1, 0).EntireRow
        .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With

Alleen nog even kijken of die xlUp wel zo optimaal is.

Ik hoop de volgende keer weer van jullie hulp gebruik te mogen maken.

Groeten,
Ger