Avatar billede gladhund Nybegynder
11. december 2008 - 18:48 Der er 10 kommentarer og
1 løsning

Hjælp til http://www.eksperten.dk/spm/855695 (jkrons?)

Desværre kan jeg ikke få kørt 6 makroer i en og samme makro, hvilket er nødvendigt (tryk på en knap). Det er 6 ark, der hver skal køre en næsten ens kode i, men det skal gerne køres i en omgang, fra et ark.
Avatar billede jkrons Professor
11. december 2008 - 22:09 #1
Labv en makro som nedenstående:

Sub KoerAlle()
    Sheets("Beregninger").Activate
    Call FindxOgSletBeregninger
    Sheets("AfsatteCosts").Activate
    Call FindxOgSletAfsatteCosts
    Sheets("AfsatteCBs").Activate
    Call FindxOgSletAfsatteCBs
    Sheets("CostProdukt").Activate
    Call FindxOgSletCostProdukt
    Sheets("Costs").Activate
    Call FindxOgSletCosts
    Sheets("Simulering").Activate
    Call FindxOgSletSimulering
End Sub

Knyt denne til din knap i arket Simulering.
Avatar billede gladhund Nybegynder
11. december 2008 - 22:56 #2
Det er fantastisk... :). TAK! Nu spørger jeg ikke om mere, og smid endelig et svar...
Avatar billede jkrons Professor
12. december 2008 - 00:21 #3
Sørg du bare :-)
Avatar billede jkrons Professor
12. december 2008 - 00:21 #4
sørg = Spørg :-)
Avatar billede gladhund Nybegynder
12. december 2008 - 11:08 #5
Ok, så kommer der et sidste spørgsmål :-D. Hvorfor virker min application.screenupdating = false ikke? Skærmen flimrer løs mens der skiftes ark og slettes... Koden ser sådan ud:

Sub SletMarkerede()

Application.ScreenUpdating = False

    Sheets("Beregninger").Activate
    Call FindxOgSletBeregninger
   
    Sheets("AfsatteCosts").Activate
    Call FindxOgSletAfsatteCosts
   
    Sheets("AfsatteCBs").Activate
    Call FindxOgSletAfsatteCBs
   
    Sheets("CostProdukt").Activate
    Call FindxOgSletCostProdukt
   
    Sheets("Costs").Activate
    Call FindxOgSletCosts
   
    Sheets("Simulering").Activate
    Call FindxOgSletSimulering
   
Application.ScreenUpdating = True

End Sub
Avatar billede jkrons Professor
12. december 2008 - 12:46 #6
Det er faktisk et ret godt spørgsmål. Den gør det også hos mig, mens andre makroer ikek gør det - selv om de aktiverer forskellige ark undervejs.
Avatar billede gladhund Nybegynder
13. december 2008 - 22:33 #7
ok... sjovt. Er der nogle alternativer til application.screenupdating eller til .activate? Jeg læste et sted noget om, at det er .activate kommandoen, der "nulstiller" application.screenupdating...
Avatar billede jkrons Professor
14. december 2008 - 11:26 #8
Det var også mit første gæt, men jeg har andre makroer med activate, hvor screenupdating ikke "ignoreres".
Avatar billede jkrons Professor
14. december 2008 - 14:06 #9
Fjern Application.Screenupdating FALSE og TRUE fra de enkelte makroer, så det kun står i "kaldemakroen". Problemet er, at den nuværende strukturn sætter TRUE inden den skifter ark, og først derfter False igen.
Avatar billede gladhund Nybegynder
14. december 2008 - 19:31 #10
... det er godt spottet.. :). Det virker hos mig igen nu. Tak :)
Avatar billede jkrons Professor
14. december 2008 - 22:03 #11
Velbekomme.-
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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