• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rij en kolom laten kleuren

  • Onderwerp starter Onderwerp starter auxi
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
A

auxi

Gebruiker
Lid geworden
3 jan 2011
Berichten
70
Hallo allemaal,

kan iemand mij helpen met het volgende.

Ik wil dat als ik bijvoorbeeld cel D25 selecteer de kolom D ( rijen 1:100) en rij 25 (kolommen A:SE) kleuren.
Hoe krijg ik dit voor elkaar?

Alvast dank voor jullie hulp.

Groet,
Auxi
 
Achter het betreffende werkblad de volgende code plaatsen:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If Target.Address = "$D$25" Then Kleur
End Sub


Sub Kleur()
    With Range("D1:D100").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Range("A25:SE25").Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
 
Kan je met Voorwaardelijke opmaak doen. Daarvoor heb je, als je twee kleuren wilt voor kolom en rij, twee formules nodig:
Code: 
=KOLOM()=CEL("col")
=CEL("row")=RIJ()
 
En als je één formule wilt, krijg je deze:
Code: 
=OF(KOLOM()=CEL("col");CEL("row")=RIJ())
 
AHulpje zei:
Achter het betreffende werkblad de volgende code plaatsen:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If Target.Address = "$D$25" Then Kleur
End Sub


Sub Kleur()
    With Range("D1:D100").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Range("A25:SE25").Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Klik om te vergroten...

Hallo AHulpje,

in de eerste regel krijg ik een (compileer) foutmelding!?
 
Het gebeurt wel vaker dat de code niet goed overkomt, de regel "If Target.Addres = ..." moet naar de volgende regel.
 
Hallo allemaal,

tot zover mijn dank!!
Met onderstaande ben ik er uit, echter als ik deze macro activeer verdwijnen alle andere voorwaardelijke opmaak instellingen! Dat is eigenlijk niet de bedoeling!
Wij weet hoe ik dit kan aanpassen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Rows(Target.Row).Interior.ColorIndex = 36
Columns(Target.Column).Interior.ColorIndex = 36
End Sub

Alvast dank voor alle hulp.

Groet,
Auxi
 
Gebruik code tags in dit forum (ook al sinds 2011 !)

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
  Range(Target.Address & "," & Target.EntireRow.Address & "," & Target.EntireColumn.Address).Select
  Application.EnableEvents = True
End Sub
 
Dankjewel voor de aanvulling.

Dit werkt helemaal niet zoals ik bedoel.
Zal mijn vraag duidelijker omschrijven en een voorbeeld mee sturen.

Groet,
Auxi
 
auxi zei:
Hallo AccessGuru,

als ik deze code gebruik via voorwaardelijke opmaak komt er geen reactie!
Klik om te vergroten...

Daar heb je deze code bij nodig achter het werkblad van toepassing.
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan