Start makro fra et vilkårligt ark

Flyt den til: ThisWorkbook

Der er den sådanset allerede, den fungerer bare kun delvist.
Den mangler at formatere  nogle farver i et ark - dette sker kun, hvis makroen køres fra dette ark.....

Det er jo noget helt andet ;-)

Så skal vi se noget kode, der er sikkert henvisninger til bestemt ark?
F.eks.  Worksheets("Ark1").Activate

Jo :-)

Et tillægs-spørgsmål: findes der en kode der formaterer en bestemt farve til en anden?

Fik du løst det første spørgsmål?

Hvilken farve?
Tekst eller celle farve?

Det er en cellefarve.

Fik du løst det første spørgsmål?

Du skal følge op på dine gamle spørgsmål?
http://www.eksperten.dk/list/deltaget/nono3

Med 2.360 point ude kan du ikke forvente megen hjælp.
Se: http://www.eksperten.dk/faq#faq-5-7

Og: http://www.eksperten.dk/faq#faq-3-1

Første del er løst, det fik jeg nok ikke skrevet helt klart.

Jeg må lige ha gang i en oprydning ;-)

Det var godt, første del løst. :-)

Nu er du nede på 1000 point ude, det går frem af ;-)

Et tillægs-spørgsmål: findes der en kode der formaterer en bestemt farve til en anden?
Celle A1 er Gul? Kør makro og celler A1 farves om til Rød.


'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød

Hvad, hvis det skal gælde hele projektmappen?

Vedr. de udestående point, så må de være nogle meget gamle, kan ikke se jeg mangler at lukke nogle tråde, udover denne her længere ;-)

http://www.eksperten.dk/spm/475918
http://www.eksperten.dk/spm/667275
http://www.eksperten.dk/spm/853204
http://www.eksperten.dk/spm/853298
http://www.eksperten.dk/spm/853588
http://www.eksperten.dk/spm/855930
http://www.eksperten.dk/spm/873131
http://www.eksperten.dk/spm/902747

Så er jeg nede på mit rette udestående af point.
Hvordan fik jeg funktionen til at virke for hele filen / projektmappen?
* alternativt pr. ark?

Sub LavFarveOm()
For Each c In Range("A1:I56")
If c.Interior.ColorIndex = 6 Then c.Interior.ColorIndex = 3
Next c
End Sub