Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA Mange nye ark
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Mje Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 25.Jan.2014
Land: DK
Status: Offline
Point: 1 		Direkte link til dette indlæg Emne: VBA Mange nye ark
    Sendt: 25.Jan.2014 kl. 12:02
Som så mange andre er jeg også nybegynder inden for VBA, men jeg har formået at lave denne kode som generere x antal nye ark udfra liste. Smile
mit problem er at det taget meget lang tid at generer de 365 ark som jeg skal bruge
 
kan man gøre nedestående kode mere simpel så den køre hurtigere?
 
 
Sub Nye_Ark_Fra_Skabelon()

'Autogenerer x antal nye ark og navngiver dem efter liste i "Ark1"
'angiv navn på ark i kollonne A1 og nedefter
 
Dim newsheet As Worksheets
Dim r As Integer
r = 1
 
    Do While Sheets("ark1").Cells(r, 1).Value <> ""
        Sheets("skabelon").Select
        Sheets("skabelon").Copy After:=Sheets("ark1")
        Sheets("skabelon (2)").Select
        Sheets("skabelon (2)").Name = Sheets("ark1").Cells(r, 1).Value
       
        r = r + 1
    Loop
      
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470 		Direkte link til dette indlæg Sendt: 25.Jan.2014 kl. 14:43
Som de første linjer i din makro kode laver du disse linjer: 
With Application
    .EnableEvents = False
    .DisplayAlerts = False
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
ActiveSheet.DisplayPageBreaks = False
...og, som de sidste linjer i din makro kode laver du disse: 
With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
End With
Se evt. mere her:
www.excelgaard.dk/Lib/Macros/SpeedUp/ www.excelgaard.dk/Lib/Macros/SpeedUp/

Oh, og lad være med at .Select dine regneark - slet de linjer,  hvor du laver .Select - det er den stor tidsrøver her...
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk