[Excel] Macro -> kopiëren kolommen

[Vertor]

Ik ben momenteel Excel files die eerst met de hand dienden upgedate te worden, momenteel aan het automatiseren.

Voor een onderdeel dient er informatie uit een excelfile gekopieerd, die ook op dat moment gegenereerd word.
Uit deze file haal ik dan dien ik dan info te halen uit kolom B & D.
Aangezien ik deze data plaats in een tabel die pas begint op regel 35, is de volledige kolom kopiëren geen optie.
Voorlopig heb ik (dumbed down):

Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B1:B178,D1").Select
Range("D1").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("B1:B8754,D1:D8754").Select
Selection.Copy

Aangezien ik geen VB ken, gebruik ik voornamelijk 'record macro'

Deze plaatst echter erbij "selecteer cel zoveel tot zoveel" ( blauwe tekst )
De excelfile waarvan de data wordt uitgehaald, wordt iedere dag groter en groter en dus zou ik iets moeten hebben wat de data uit die kolommen kopieert (headers hoeven niet mee gekopieerd te worden), en dus kan omgaan met kolommen die iedere keer langer worden


EDIT: Typo's


EDIT II:

Heb ondertussen dit: nu nog zorgen dat dit ook gaat voor meerdere kolommen

Dim DynamicRange As Range
Range("B1").Select
Set DynamicRange = Range(Selection, Selection.End(xlDown))
DynamicRange.Select

[ Voor 10% gewijzigd door Vertor op 03-07-2013 20:51 ]

[Paultje3181]

Dit staat in mijn code in topic van gisteren. Je kunt de kolommen gewoon uitbreiden