Hallo,

Nadat ik de laatste keer zo lekker geholpen werd met mijn probleempje, durf ik nu wel ook mijn andere probleempje hier voor te leggen.

Zoals gezegd de vorige keer ben ik taxi chauffeur en dat vereist een sluitende rit administratie. Deze rit administratie komt uit mijn BCT (Boord Computer Taxi) als een XML bestand en word middels een site geconverteerd naar een 2 tal excel sheets in een bestand die heet "result-1" Nu kopieer ik deze gegevens nog telkens handmatig naar mijn doelbestand in de daarvoor bestemde 2 sheets maar zou dat graag automatisch willen laten doen.

In Result-1 heten de sheets "Rittenstaat" en "Dienststaat"
In doelbestand heten ze "Rit" en "BCT"

Het is de bedoeling dat Rittenstaat naar Rit word gekopieerd en wel helemaal onderop met 1 blanco regel er tussen. Dienststaat moet aansluitend in BCT terecht komen en hoeft geen lege regel er tussen te hebben.

Result-1 wordt na afloop weggegooid en derhalve dus ook niet bewaard omdat de bewaarplicht alleen geld voor de XML bestanden die uit de BCT komen.

De hoeveelheid regels die gekopieerd moeten worden is variabel.

Ik heb 2 gestripte bestanden toegevoegd, gestript om geen persoonsgegevens te onthullen, die goed weergeven wat de bedoeling is (denk ik )

Alvast bedankt voor het meedenken

Hallo SoftAid

Wederom een aangename vlotte reactie, waarvoor mijn dank

Even voor de goede orde, het doelbestand is door mij gemaakt uit een veel groter bestand dat "weekbetaling 2017.xlsm" heet. Dit bestand zal altijd geopend zijn wanneer ik de gegevens uit "Result-1" over wil brengen. Helaas kan ik onmogelijk het volledige "weekbetaling 2017" bestand hier geven want die overschrijd de maximale upload limiet meerdere malen

Ik heb het doelbestand dus wel even aangepast voor je en ook de naam aangepast. Het pad waar het doelbestand is te vinden is: C:\Users\Gebruiker\OneDrive\Documenten\Taxi Schurink\Registratie

Ik voeg ook opnieuw het doelbestand bij.

Result-1 wordt nergens opgeslagen, die wordt gecreëerd en na overbrenging van de gegevens naar de prullenbak gegooid.

Hallo SoftAid,

Het bestand Result-1.xlsx wordt gecreëerd door een webpagina waar ik mijn XML bestanden moet invoeren met als uitkomst Result-1.xlsx. deze wordt direct in Excel geopend en naar mijn beste weten nergens opgeslagen. Ik gooi dit bestand ook altijd direct na het overbrengen van de data weg omdat de bronbestanden (de XML bestanden) degene zijn die ik MOET bewaren.

Weekbetaling 2017.xlsm is mijn bestand waarin ik meerdere tabbladen heb zitten waaronder ritregistratie, rijtijden, maar ook mijn inkomsten die gerelateerd zijn aan die ritregistratie, week en maandoverzichten.

Het is dus ook zo dat wanneer er een mooie oplossing is gevonden dat ik dit kan overbrengen naar het oorspronkelijke bestand, die dezelfde naam heeft als zojuist geupload met ook de 2 eerder genoemde tabbladen.

Wanneer ik dus de XML bestanden laat converteren naar "Result-1.xlsx" is "Weekbetaling 2017.xlsm" altijd open

Hoi SoftAid,

Ik voel mij een beetje stom

Natuurlijk wordt het bestand Result-1 ergens opgeslagen, al is het dus maar tijdelijk... het pad hiervoor is deze:

C:\Users\Gebruiker\AppData\Local\Temp

Excuses voor mijn slaperigheid

Geen probleem. Ik heb de locatie zelfs niet nodig, zie ik nu. Als beide bestanden open zijn, dan kan je volgende macro in je werkboek weekbetaling 2017.xlsm toevoegen, en deze klaart de klus van het overbrengen. Voor de controle of er niet per ongeluk 2 x dezelfde kopie wordt gemaakt zal ik later proberen bij te voegen.

Sub Overzet()

Workbooks("Result-1.xlsx").Sheets("Rittenstaat").Activate
A = Sheets("Rittenstaat").Cells(Cells.Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A2:V" & A).Select
Selection.Copy

Workbooks("weekbetaling 2017.xlsm").Sheets("Rit").Activate
B = Sheets("Rit").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Sheets("Rit").Range("A" & B + 1).Select 'Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False


Workbooks("Result-1.xlsx").Sheets("Dienststaat").Activate
C = Sheets("Dienststaat").Cells(Cells.Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A2:L" & C).Select
Selection.Copy

Workbooks("weekbetaling 2017.xlsm").Sheets("BCT").Activate
D = Sheets("BCT").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Sheets("BCT").Range("A" & D + 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False

Selection.Hyperlinks.Delete
Selection.HorizontalAlignment = xlRight
   
End Sub
kopieer en plak deze code onder je laatste macro. Hoe wil je hem laten uitvoeren? Knop?

SoftAid              

HalloJosc1965,

zijn beide werkmappen geopend, en hebben de werkbladen nog steeds de juiste namen?
Mogelijk kan je Result-1.xlsx beter opslaan (bvb op het bureaublad) en het vandaaruit openen.
In de Temp-map geeft dat misschien geen goed resultaat.. 

Vergelijk de namen van werkboeken en werkbladen in de macro met de werkelijke namen van jou bestanden en werkbladen.
Deze moeten open zijn. Dan zou de macro moeten werken.

SoftAid              

Hallo Josc1965,

Ik denk dat je die macro best in een module zet.

In de VBA editor, rechtsklik op : VBAProject (weekbetaling 2017.xlsm) en kies voor "Invoegen" , "Module".
Er komt een module1 te staan boven "ThisWorkbook".

Dubelklik op ThisWorkbook en kopieer (of knip) de hele macro.
Dubbelklik op Module 1 en plak de hele macro.

Mogelijk werkt je knop nu niet meer, die moet je dan opnieuw maken.

SoftAid              

Hallo Josc1965,

Voeg volgende vette code eens toe:

Selection.HorizontalAlignment = xlRightSelection.NumberFormat = "0"
End Sub
SoftAid              

Beste SoftAid,

Ik heb jouw laatste toevoeging even getest en het werkt geheel naar behoren zelfs de overige kolommen hebben geen last van het feit dat ze naar getal zijn gezet.

Mijn dank is groot