Avatar billede missilen Nybegynder
06. februar 2012 - 16:20

Makro excel der erstatter liste af sheets med "range" så alle ark opdateres ?

Hej

Jeg bruger nedenstående makro til at opdatere de realiserede tal for den tidligere periode inden jeg indlæser data til fordeling.

Mit problem består i at jeg løbende indsætter nye sheets, som jeg så skal ind og opdatere i listen.

Er det muligt at erstatte listen med et "Range" hvor fanenavnene bare skal ligge indenfor ?

På forhånd tak
Jørgen

MAKRO:
' Update_Real Macro
' Update the actuals for the previus month Must be done before  updating the period in field [B3]
'

'
    Sheets("FK7110").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets(Array("FK7110", "FK7170", "FK5140 (67%)", "FK7180 (33%)", "FK2930", "FK5950", _
        "FK2840", "FK2850", "FK2860", "FK2880", "FK2900")).Select
   
    Sheets("FK7110").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("H9:H163").Select
    Selection.Copy
    Range("I9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Renewables actual").Select
    Range("B3").Select
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester