Kirsten1712
Gebruiker
- Lid geworden
- 11 jan 2017
- Berichten
- 28
Goedemiddag
Ben al twee dagen het net aan het afschuimen naar dé oplossing en er is heel veel over terug te vinden, maar het lijkt me niet te lukken. Graag jullie hulp hiermee.
Bedoeling is dat er in een sheet dagelijks data wordt toegevoegd aan de bestaande data (niet overschreven, daarvoor zijn de databestanden te zwaar). In kolom 'u' wordt er dan de huidige datum ingevuld of de dag waarop de data uit het systeem wordt gehaald. Dit laat ik bepalen adhv een inputbox. Daarna zou de macro deze data moeten doortrekken tot aan de laatste regel waar er in kolom 'a' data staat.
Alles werkt goed, behalve die laatste stap. Excel trekt deze datum wel door maar tot helemaal onderaan de sheet.
Bij deze een gedeelte van de code, met de laatste poging die ik ondernam, deze geeft een fout aan.
Ben al twee dagen het net aan het afschuimen naar dé oplossing en er is heel veel over terug te vinden, maar het lijkt me niet te lukken. Graag jullie hulp hiermee.
Bedoeling is dat er in een sheet dagelijks data wordt toegevoegd aan de bestaande data (niet overschreven, daarvoor zijn de databestanden te zwaar). In kolom 'u' wordt er dan de huidige datum ingevuld of de dag waarop de data uit het systeem wordt gehaald. Dit laat ik bepalen adhv een inputbox. Daarna zou de macro deze data moeten doortrekken tot aan de laatste regel waar er in kolom 'a' data staat.
Alles werkt goed, behalve die laatste stap. Excel trekt deze datum wel door maar tot helemaal onderaan de sheet.
Bij deze een gedeelte van de code, met de laatste poging die ik ondernam, deze geeft een fout aan.
Code:
sub test
lastRow = Range("u1048576").End(xlUp).Row + 1
Cells(lastRow, 21).Select
datum = InputBox("Geef de datum in volgend format in xx/xx/xxxx.")
ActiveCell = datum
lastrow2 = Range("a1048576").End(xlUp).Offset(, 20)
'Fout in deze regel Selection.AutoFill Destination:=Range(ActiveCell.Range(lastRow, lastrow2)), Type:=xlFillCopy
end sub
Laatst bewerkt: