CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

millep84 Novice

23. oktober 2013 - 13:42 Der er 5 kommentarer og
1 løsning

Makro - kopier ark og indsæt kopi

Jeg har lavet følgende makro til at kopier et ark og indsætte kopien efter sidste ark i filen.

Sheets("Summary").Select
Sheets("Suitability analysis").Visible = True
Sheets("Suitability analysis").Select
Sheets("Suitability analysis").Copy After:=Workbooks("Test").Sheets(Workbooks("Test").Sheets.Count)
Sheets("Suitability analysis").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Summary").Select

Dog synes jeg det er irriterende at min skærm blinker når jeg aktiver makroen (tænker det er fordi jeg kort ser mit ark blive synlig og så usynligt igen).

Er der ikke en anden måde at kopiere et "hidden" ark på?

Og så vil jeg gerne have at jeg ser det kopiere ark efter kopieringen og ikke de ark hvor min "Kopier" makro er.

Er der nogen som kan hjælpe?

Synes godt om

Tryphon Nybegynder

23. oktober 2013 - 14:41 #1

Prøv med denne kode:

Function CopyHiddenSheet()
' Fjern blinkeri
Application.ScreenUpdating = False

' Kopier hidden sheet
With Sheets("Suitability analysis")
.Visible = True
.Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
.Visible = False
End With
End Function

Synes godt om

millep84 Novice

23. oktober 2013 - 14:52 #2

Den kommer med en fejl når jeg kører den, som highlighter første linje med gult - sub Hiddencopy()

Hvad gør jeg galt?

Sub Hiddencopy()
'
Function CopyHiddenSheet()
' Fjern blinkeri
Application.ScreenUpdating = False

' Kopier hidden sheet
With Sheets("Suitability analysis")
.Visible = True
.Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
.Visible = False
End With

End Function

Synes godt om

millep84 Novice

23. oktober 2013 - 14:57 #3

Har fundet ud af den store fejl 40 jeg lige fik lavet. Det virker perfekt. Mange tak.

Synes godt om

millep84 Novice

23. oktober 2013 - 14:58 #4

Hvordan er det nu jeg giver dig point.

Synes godt om

Tryphon Nybegynder

23. oktober 2013 - 15:24 #5

Jeg kan ikke helt huske det, men det er noget med, at du kan acceptere mit svar. Så skulle resten gå af sig selv.

Synes godt om

millep84 Novice

24. oktober 2013 - 08:41 #6

Det har jeg gjort nu.. kan du se det?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS