Macro i Excel

Prøve dette...

Public Sub Farve()

Dim taeller As Integer

For taeller = 1 To Worksheets.Count

Worksheets(taeller).Activate

    Range("C4:J4").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With

Next taeller

End Sub

Kanon takker det virker perfekt:-)

Ups lige en lille ting:-)
Ved du også hvordan man gør hvis man fx. vil undlade det på de første 5 ark?
Du får selvfølgelig flere point, er 15 okay?

Du skal bare ændre startværdien for taeller.

For taeller = 6 To Worksheets.Count

Ja selvfølgelig, men jeg tror at det jeg mener er at springe nogle over, Fx. Ark2 og Ark4

Ok, er der noget system i hvilke ark du vil springe over ?
f.eks. Alle lige, eller ulige ark. eller hver 4. ark.

Systemet er ikke de 5 første og derefter hver 2. ark

Ok, prøv denne her så...

Public Sub farve()

Dim taeller As Integer

For taeller = 6 To Worksheets.Count Step 2

Worksheets(taeller).Activate

    Range("C4:J4").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With

Next taeller

End Sub

Perfekt!! Men kan det overhovedet lade sig gøre hvis der ikke er et system i det? Evt udlade bestemte arknavne?

Ja, alt kan jo lade sig gøre...

Det ville nok kræve at brugeren forinden havde mulighed for at vælge hvilke ark makroen skulle køres på, evt. vha. en userform.

Et lille eksempel på fravælgelse af bestemte ark:

Public Sub Farve()

Dim taeller As Integer

For taeller = 1 To Worksheets.Count

Worksheets(taeller).Activate

if Worksheets(taeller).Name <> "Ark1" or Worksheets(taeller).Name <> "Ark4" then
    Range("C4:J4").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
End if
Next taeller

End Sub

Hvis der ikke er system, hvorfor så bruge en makro overhovedet? Lad brugeren markere de relevante ark. Ctrl-klik i arkfanerne. Marker derefter de relevante celler i de første ark og vælg farven. Nu gælder den i alle markerede ark.
Ophæv arkmarkeringen ved at klikke i et umarkeret ark.