Makro - hente data i skjulte arkfaner

bruger du ikke bare:

sheets("Ark1").range("A1") = sheets("Ark2").range("A1")

Det virker fint her!

Sub Maxibreve_Makro()

    ActiveSheet.Unprotect  ' Fjern beskyttelse

'  Kopi rabatsatser
    Sheets("Ark2").Select
    Range("C3:C9").Select
    Selection.Copy
    Sheets("PrisKalkulation").Select
    Range("F5:F11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Dele af koden ser således ud, og fungerer upåklageligt så længe Ark2 er synlig, men hvis jeg benytter mig af menulinien Formater>Ark>Skjul, og gør Ark2 helt utilgængeligt for slutbruger, fejler makroen !!!!

Den nemme løsning er at få macroen til at vise arket --> hente data--> skjule arket igen. Hvis du stopper "screen.updating" kan slutbrugeren ikke se at arket bliver vist og skjult igen.

Det skulle virke med denne:

Sub Maxibreve_Makro()

    ActiveSheet.Unprotect  ' Fjern beskyttelse

'  Kopi rabatsatser
Application.ScreenUpdating = False

    Sheets("Ark2").Visible = True
    Sheets("Ark2").Select
    Range("C3:C9").Select
    Selection.Copy
    Sheets("PrisKalkulation").Select
    Range("F5:F11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Sheets("Ark2").Visible = False
       
        Application.ScreenUpdating = True

Application.ScreenUpdating = False
Sheets("Ark2").Visible = True

'  Kopi rabatsatser
    Sheets("Ark2").Select
    Sheets("Ark2").Range("C3:C9").Select
    Selection.Copy
    Sheets("Ark1").Select
    Range("F5:F11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Sheets("Ark2").Visible = False
Application.ScreenUpdating = False

kjaer > du var først med den smarteste løsning :o)

darth-domino: Pas lige på din Application.ScreenUpdating!

skal naturligvis afsluttes med Application.ScreenUpdating = True

Så har jeg også prøvet det... Du kan jo bare flytte "Screen.updating = True" hen i slutningen af din kode, alt efter hvor det passer bedst.

Takker for hjælpen :o)

Problemet er at du vil selecte et skjult ark og det kan man ikke.
Det er også unødvendig. dette burde være nok

Worksheets("Ark2").Range("C3:C9").Copy
Worksheets("PrisKalkulation").Range("F5").PasteSpecial Paste:=xlPasteValues

Takker for point

Bak --> Jeg vidste at der måtte være en smartere måde, men det gik ud over mine evner..... Du burde have fået point for nu har du lært mig noget nyt igen....

nej jeg har nok :-)
her er den lidt kortere version uden at bruge copy
Worksheets("PrisKalkulation").Range("F5:F11").Value = Worksheets("Ark2").Range("C3:C9").Value

Hatten af for Bak´s løsning

Må indrømme at det heller ikke er point der for mig til at være på exp - det er mest for at lære noget. Hvordan har du lært smarte/korte vba og hvordan lærer man det bedst? Undskyld jeg spammer spm., men det er lidt skræmmende at det jeg bruger 10 linier på kan skrives med en enkelt linie.

Jeg har læst et par bøger (j. walkenbach's excel 2002 powerprogramming VBA) og set hvordan proffi'erne gør :-)
Samtidig har jeg altid haft gamle langsomme computere, der har gjort at jeg altid har skullet bruge de mest optimale koder.