samenvoegen in exel

[geekepouw]

ik ga het ff proberen!

Geeke

Actuele kostprijs lukt wel maar met de datum gaat het niet goed

Als ik de notatie verander van de kolom dan komt er een datum uit 2003 ??

 

[trucker10]

Actuele kostprijs lukt wel maar met de datum gaat het niet goed

Als ik de notatie verander van de kolom dan komt er een datum uit 2003 ??

zonder de macro zichtbaar te zetten of een bestandje toe te voegen is het van hieruit moeilijk te zeggen , een datum in samengevoegde cellen en dan nog eens de datum opmaak kan al eens voor problemen zorgen .

 

[geekepouw]

Ok

zonder de macro zichtbaar te zetten of een bestandje toe te voegen is het van hieruit moeilijk te zeggen , een datum in samengevoegde cellen en dan nog eens de datum opmaak kan al eens voor problemen zorgen .

OK,

Hartstikke bedankt:thumb:

Dit is al meer dan ik had durven hopen!!

Vandaag een exel studieboek gehaald bij de bibliotheek kijken of ik er achter kan komen wat je precies heb gedaan

Ik ben in ieder geval geholpen dus ik zal de vraag sluiten

gr. Geeke

 

[Warme bakkertje]

de macro met een woordje uitleg

Sub Verzamelen()
Application.ScreenUpdating = False
'Maak een verzameling van alle bestanden in een map en wijs elk bestand toe aan de variabele c0
 c0 = Dir("D:\Mijn documenten\Test\*.xls")
    Do
    'open de bestanden één voor één
    Workbooks.Open "D:\Mijn documenten\Test\" & c0
        With Workbooks(c0) 'met elk bestand
            For i = 1 To 3 'aantal bladen in elk bestand
                Sheets(i).Activate 'activeer het eerste blad
                'Maak een verzameling van alle te kopieëren cellen
                Application.Union([C4:I4], [C37:I37], [C39:I39], [C57:I57]).Copy
                'Zoek de eerste lege cel in kolom A en plak hier de gegevens
                ThisWorkbook.Sheets(i).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True
                'beëindig de kopieërmodus
                Application.CutCopyMode = False
            Next 'activeer het volgende blad en herhaal alle bewerkingen
            .Close False
        End With
    c0 = Dir 'neem het volgende bestand
    Loop Until c0 = "" 'doe dit tot alle bestanden geopend zijn
Application.ScreenUpdating = True
End Sub