Avatar billede perbjo Juniormester
03. maj 2022 - 09:19 Der er 1 kommentar og
1 løsning

Enkel Makro fryser Excel

Hej Eksperter!
Jeg vil oprette en formular, som ved knap-klik kopierer, opretter nyt ark, indsætter, autokorrigerer kolonnebredde i B+C og fjerner 'myre-stien' på ark1.
Formateringen er B4:B13 Fed og Orange; C4:C13 kolonnebredde 60.
Når jeg kører makroen, fungerer den fint første gang (og nogle gange anden og tredje gang), men så fryser Excel, og jeg kan ikke gennemskue hvorfor. Jeg har forsøgt at deaktivere autokolonnebredden, men det havde ingen effekt. Jeg håber nogle herinde kan hjælpe.
Her er makroen:

Sub KopiTilNy()

    Range("B4:C13").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("B4").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("A1").Select
    Sheets("Ark1").Select
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
Avatar billede store-morten Ekspert
03. maj 2022 - 10:15 #1
Ser ud til at køre fint:

Sub KopiTilNy()

    Range("B4:C13").Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Range("B4").Select
    ActiveSheet.Paste
    ActiveSheet.Columns("B:C").EntireColumn.AutoFit
    ActiveSheet.Range("A1").Select
    Sheets("Ark1").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("A1").Select
End Sub
Avatar billede perbjo Juniormester
03. maj 2022 - 10:27 #2
Tak for forsøget Store-Morten.
Det fryser desværre også i mit ark.
I mellemtiden har jeg fundet denne løsning med PasteSpecial som umiddelbart funker efter hensigten.

Sub KopiTilNy()

Range("B4:C13").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("B4").Select
    ActiveSheet.PasteSpecial Paste = xlpasteforms
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("A1").Select
    Sheets("Ark1").Select
    Application.CutCopyMode = False
    Range("A1").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
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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