Rem Koden anbringes "under" relevante ark: Regneark / højreklik / vis programkode Rem Indsæt koden i VBA-vinduet under arket / Gem /Luk Rem Koden udføres: Regneark / Alt+F8 /Afspil markerOkRæker Dim antalRækker As Long, ræk As Long Public Sub markerOkRækker() antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
Application.ScreenUpdating = False
For ræk = 1 To antalRækker Range(ræk & ":" & ræk).Select If Range("A" & ræk) <> "" And Range("I" & ræk) > 0 Then Selection.Interior.ColorIndex = 4 Else Selection.Interior.ColorIndex = xlColorIndexNone End If Next ræk End Sub
betinget formatering, Ny regel, Vælg sidste: "Brug formel til at bestemme, hvilke celler der skal formateres", indtast formel: =OG($A1<>"";$A1>0), klik på knappen "Formater" og vælg udfyldningsfarve, klik "Ok". Nu skal du klikke på betinget formatering igen, administrer regler og i feltet "Gælder for" markerer du det område den betinget formatering skal gælde for og BOM så spiller det.
Hej duxz .. Tak for mailen - den lader til at være ok, dog er den lavet omvendt .. den markere det med grønt der er større en 0 .. hvor i mod den skulle markere det med grønt der var mindre, eller blankt ..
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.