Excel conditional formatting eller andra lösningar villkor highlight

Känns som att conditional formatting är skräp? Man måste hänvisa direkt på dom celler och i det blad som ska ha villkoren, kommer det sedan nya rader så skapas nya villkor och ibland fungerar det inte.

Går det att göra på något smidigt sätt som inte involverar conditional formatting? Eller har jag helt enkelt inte riktigt använt det på rätt sätt?

1. Alla poster som har en negativ INT globalt ska visas rött , alltså flera kolumner och rader kommer att skapas/kopieras pastas in.

2. Vill higlighta current week I kol A har jag rader som heter Week , i kol B har jag veckonumret. Samma deal här som ovan nya rader

*Bladet kommer också att kopieras varje månad och sedan tömmas / ny månad.

1. Det fanns visst fördefinierad talformatering för negativa nummer. Tack för tipset, fungerar mycket batter än conditional formatting.

enbart fått det att fungera med Copy Insert hittils, pastespecial fungerade inget bra. Får labba lite vid senare tillfälle, talformatteringen verkar fungera bra med denna lösning

2. Efter körning av nyvecka hamnar A15: Week B15: intCurrentWeek (nyVecka) . Dessa flyttar på sig när nya veckor (eller rader infogas) så steg 1 är ju egentligen att reda ut vilken cell I kolumn B som är vecko nummer. Borde räcka med att kolla om det är en INT på två siffror I kolumn B = vecka sen något i stil med
if "INT I någon cell i kolumn B" = DatePart("ww", Date, vbMonday, vbFirstFourDays) , highlighta

Sub NyVecka()
    Set tplRows = Range("3:9")
    tplRows.EntireRow.Copy
   
    Set dstRows = Range("10:17")
    With dstRows
    .EntireRow.Insert
    End With
    
    Range("10:17").EntireRow.Hidden = False
    
    intCurrentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    strMonth = DateAdd("ww", intCurrentWeek, DateSerial(Year(Date), 1, 1))
    Range("B15").Value = intCurrentWeek
    Range("B16").Value = strMonth
    
     Application.CutCopyMode = False
End Sub

Sub NyVecka()
    Range("3:9").EntireRow.Copy
    With Range("10:17").EntireRow
        .Insert
        .Hidden = False
    End With

    Range("B15").Value = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    Range("B16").Value = DateAdd("ww", intCurrentWeek, DateSerial(Year(Date), 1, 1))
    Application.CutCopyMode = False
End Sub

1. Kör på din kod, dock fungerar ju inte hidden = false så den kör jag utanför.
2a. När det gäller conditionalformatting på veckan, börjar jag istället fundera på istället för att pasta in en cell.value = veckonummer till att pasta in If formel för att kolla datumets vecka = (intweeknr (som ska med som tidigare). Om den är true kanske den kan visas som negativ om den är false som vanligt. Påsåvis borde jag kunna använda ditt tips tidigare om formattering på negative nummer globalt och highlighting.
* Eller ännu bättre en VBA som gör motsvarande sak om det är möjligt typ I cellen =If JämförVecka(35) = True Then (-35; 35) och I JämförVecka evaluera 35 mot dagens veckonummer. Kommer ju säkert tyvärr att behöva en separat cell där veckonumret redan är pastat och hänvisa till den.
2b påsåvis borde jag även kunna göra något liknande highlighta vilken dag det är (namn) förutom att negatev sträng på talformateringen inte riktigt kommer att fungera , får leta lite

* Får kolla på eventuella problem med att skapa nya blad senare länkarna (har ju dina tips I mina citat/gå tillbaka), vill undvika så mycket kod och conditions som möjligt (återanvända) för eventuella uppdateringar I framtiden, så ditt tips på minskad kod är super.

Tackar