VO en VBA voor workbook

[Senso]

Highlight actieve rij.
Ik heb nu in een sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub

en in VO
dit werkblad
=E2<>K2 rood van toepassing op =$K$2:$K$57

Nu heb ik 7/8 sheets en meer. Moet ik dat voor iedere sheet instellen? Of kan dit gemakkelijker.

Ik maak een fout en heb twee opdrachten door elkaar gehaald.
Het moest zijn=RIJ()=Cel("RIJ")

 

[AHulpje]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Target.Calculate
End Sub

Hoe kopieer ik voorwaardelijke opmaakregels naar een ander werkblad/werkboek?

Kopieer voorwaardelijke opmaakregels naar andere cellen of bereiken in Excel terwijl dezelfde criteria en opmaak behouden blijven.

nl.extendoffice.com

 

[Senso]

Ik heb de code van post 2 onder ThisWorkbook geplaatst. De uitleg op de link van post 2 is niet te volgen en onbegrijpelijk.

Op internet staat > selecteer alle sheets en dan de VO maar dan is de VO niet actief en is grayed out.

Ik heb nu onder VO de code gezet onder elk blad met kopiëren en plakken en het werkt.
De laatste vraag is of het nadelen heeft dat je een bereik kiest van $1:$1048576 voor het highlighten van een rij in een blad. Zo ja , wat moet je dan in stellen?

 

[cow18]

kan het bijna niet laten,
in de versie 365 heb je de focuscel, dus de laatste versie kopen

 

[Senso]

Ik heb alles werkend gekregen en een kolom highlight hoef ik niet.

 

[snb]

Ook akelig simpul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Goto Target, 1
End Sub

 

[Senso]

Zonder enige uitleg "te" simpel.