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
Betinget formatering Af Ninna i Excel	1	I går 13:03	I går 19:56
Opdater et ark Af lurup i Excel	2	22/07/202422:23	I går 16:41
Dato skema Af Ninna i Excel	7	22/07/202414:58	I går 19:55
Betinget formatering Af boro23 i Excel	2	22/07/202410:58	I går 07:14
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel	6	16/07/202416:31	17/07/202408:36

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