Regel 2 altijd gekleurd

[vrouw]

Hoe kan ik zorgen dat regel 2 altijd een kleurtje heeft in de cellen die data hebben?
Dus ook als de regel wordt verwijderd en de onderliggende regel dan regel 2 wordt.

Ik heb wel dit

Option Explicit
Rows(2).Interior.Color = 16711680

Maar krijg het niet voor elkaar dat die regel altijd de kleur heeft als die gevuld is.

 

[OctaFish]

Voorwaardelijke opmaak gebruiken.

 

[emields]

Misschien zo

https://www.helpmij.nl/forum/forumdisplay.php/5-Excel

of zo
https://www.helpmij.nl/forum/forumdisplay.php/5-Excel

 

[vrouw]

@emileds

Hoe bedoel je dit?

 

[vrouw]

@Octafish

Dat gaat niet omdat de regel steeds verwijderd wordt na verschillende macro`s.

Ik had gehoopt dat er iets mogelijk was door een code in de sheet dat regel 2 altijd een kleurtje moet hebben als die gevuld is.

 

[HSV]

on error resume next
rows(2).specialcells(2).interior.color =vbyellow

 

[vrouw]

Ik heb onderstaande in de sheet gezet (dus niet in een module)
maar dan werkt het alleen als je tussen de tabbladen schakelt.

Niet als je regel 2 verwijdert en dus regel 3 daarna regel 2 wordt.

Private Sub Worksheet_Activate()
  On Error Resume Next
Rows(2).SpecialCells(2).Interior.Color = vbYellow
End Sub

 

[HSV]

Dan hoort die niet tussen de activate procedure.

 

[vrouw]

Hmm, is er dan nog een andere oplossing waar naar ik kan kijken?:shocked:

 

[HSV]

Bovenaan in de VB-editor staat toch een combobox met meer?

 

[vrouw]

Nou ik heb de meeste uit die combobox geprobeerd maar niets werkt zoals het zou moeten.
Ik had het gewoon even in een nieuw leeg bestand geprobeerd met wat tekst op regel 2.

Sterker nog het liep ook steeds vast

 

[Gerard2348]

Denk dat je hier verder mee komt door

Private Sub Worksheet_Activate()

te vervangen door

Private Sub Worksheet_Change(ByVal Target As Range)

 

[vrouw]

Jaaa, dat gaat beter:thumb:

 

[HSV]

De meeste is dus niet allemaal.

 

[rebmog]

Kan eventueel ook wel met voorwaardelijke opmaak. Selecteer cel A1 en gebruik als formule =EN(RIJ(A1)=2;A1<>"") en stel als bereik in =$1:$1048576. Dit gaat ook goed als rijen verwijderd worden.

 

[cow18]

oei, voorwaardelijke opmaak over zo'n bereik, daar wordt het bestand straks trager van ...