data uit excell automatisch laten overzetten naar nieuw excell bestand

[davygky542]

We hebben in ons bedrijf een Excell file die iemand heeft gemaakt waarin een overzicht komt van incidenten en problemen. Dit is via een invuldocumentje waarbij dan de gegevens in de juiste kolom worden weggeschreven.

Hierop moet per afdeling een pareto analyse gemaakt worden.

Nu is mijn vraag of het mogelijk is om de gegevens van deze file:

Te filteren om mijn afdeling
te kopieren of automatisch over te zetten naar een nieuwe file specifiek voor mijn afdeling waarin ik dan kan werken.

De originele file wordt dagelijks aangevuld met nieuwe zaken dus op regelmatige basis zouden deze gegevens dus opgehaald moeten worden.

Kan iemand me helpen hiermee, kan dit en indien zo hoe ?

 

[VenA]

zoiets?

Sub VenA()
c00 = "d:\Temp\"
With Sheets(1).Cells(1).CurrentRegion
    .AutoFilter 1, "afdeling a"
    .Copy
    Workbooks.Add
    With ActiveWorkbook
        .Sheets(1).Paste
        .SaveAs c00 & "afdeling a " & Format(Now, "yyyy-mm-dd hhmmss")
    End With
    .AutoFilter
End With
End Sub

Filteren en opslaan naar een nieuw bestand staan er iig in.

Wel allemaal een beetje aanpassen aan de niet gegeven informatie.

 

[davygky542]

ik ben al helemaal niet meer mee...

Waar moet ik deze code ingeven dan?

 

[VenA]

In een andere vraag heb je het over het gebruik van macro's dan ga ik er vanuit dat je ook weet waar je de code moet/kan plaatsen en eventueel kan aanpassen.