Hvorfor ikke "Select"

with  Sheets("Farver")
    .Range("L9:L11").Copy
end with

with    Sheets("Extra_kort")
    .Range("L9").Paste
end with

Select bedre Excel og vælge en celle og så udføre sin handling - for dette lille job betyder det ingen ting, men hvis der skal arbejdes mere flere "select's" så kommer det til at betyde en del...

Sammenlign brugen af Select som at løbe en 100 meter. Hver gang du anvender en Select skal du løbe 100 meter.
Omsat til dit eksempel, så løber den lille excelpointer fra VBA koden over i excelarker for at finde dit faneblad (Sheets("Farver")) herefter løber den tilbage i VBA koden og læser den næste linje for at finde ud af hvad den skal gøre, så løber den tilbage igen til fanebladet og finder celler og markere dem og kopiere for derefter at vende tilbage igen osv. Med andre ord der kan spares meget tid som #2 angiver, hvis det er en mere kompleks VBA kode.
Da jeg lærte om VBA fik vi en lille opgave med at lade excel tælle fra nul til en million, koden skulle stoppe når den fandt tallet 999999. Vores første kodning gav en tid på ca 27 sekunder og da vi sluttede af med at fjerne selecter var vi under 0,01 sekund

Tak for alle indlæg.

I mange af de små programmer jeg har lavet, har jeg udelukket anvendt "select".

I mange programmer 30 - 50 gange., så end en gang mange tak

#1 og #2 kode giver fejl hos mig?

Så mit forslag er:

Har du mange "select" kan der spares tid ved at slå skærm opdatering fra ;-)

Hej Store-Morten
Jeg var lidt hurtig til at takke for indlæggene.
Da jeg teste gav de også fejl ved mig

Linjerne med "Paste" giv fejl i begge forslag.

Jeg vil senere prøve dit forslag

Ja, linierne skal hedde


Jeg bruger nærmest aldrig paste, da jeg ikke bryder mig om brug af udklipsholderen, men skal man have rammer og alt med, så er det selvfølgelig nemt... skal man f.eks. kun have værdierne med og/eller formler med, så kunne det se således ud (kun værdier, så skift Formula ud med Value)

Eller bare hente værdierne

Hej alle forslagsstillere.

Jeg takker endnu en gang for de mange forslag, jeg har fået; men desværre kan jeg ikke få nogle af forslagene til at fungere.

Jeg er ikke nogen "HAJ" til VBA, så jeg laver mine makroer ved hjælp af makrooptageren, og tilretter derefter når der skal indsættes simpe betingelse.

I vedlagte test ønsker jeg at overføre farvede celler fra ark "Farver" til ark "Extra_kort" og til ark M:kort.
Mine optage makroer fungerer som de skal, men det er ikke lykkes for mig, at få mine makroer til at virke, når jeg erstatter mine optagelser med jeres forslag.

Er der nogle af jer, der vil have ulejlighed med at få det til at virke. og eventuelt forklare hvad der er galt.

På forhånd tak.

https://www.dropbox.com/s/blcgreveiy2iqm1/Medlemskort_test_farver.xlsm?dl=0

Har kigget lidt:
https://www.dropbox.com/s/k0g7duvrjzls8p1/Medlemskort_test_farver%20test.xlsm?dl=0

Hej Store Morten

Tak for dit indlæg.

Jeg har prøvet at kopiere dine formler over i en anden fil, til nogle makroer der er optaget. Men makroerne kan ikke køre.

Jeg roder lidt videre. men igen tak
Jeg markerer som løsning, så andre ikke bruger tid på problemet