Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Cel kleuren door aanklikken

  1. #1
    Vraag is opgelost

    Cel kleuren door aanklikken

    Hallo,

    Ik gebruik onderstaande code om automatisch een kruisje in een cel te plaatsen bij het aanklikken van de cel.

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f3:h54")) Is Nothing Then
    If ActiveCell Then ActiveCell = "" Else ActiveCell = "X"
    End If
    Nu wil ik op dezelfde manier een cel rood laten kleuren bij aanklikken.
    Ik heb al wat zitten pielen maar ik kom er niet uit.

    Iemand een ideetje?

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat kan met:
    Code:
    Activecell.Interior.Color=255
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Ja hoor, ik heb 'm aan de praat met

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Intersect(Target, Range("f3:h54")) Is Nothing Then
    If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
    End If
    
    If Not Intersect(Target, Range("o3:q54")) Is Nothing Then
    If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
    End If
    
    End Sub
    Dank!

  4. #4
    Junior Member
    Geregistreerd
    8 november 2017
    Kan iets korter en met dubbel klik eventueel

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then
    If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
    End If
    
    End Sub
    Laatst aangepast door TheBri : 12 juli 2019 om 12:54

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Target staat er niet voor niets als variabele.

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then Target.Interior.Color = IIf(Target.Interior.Color = 255, xlNone, 255)
    End Sub
    Bij een dubbelklik werkt het prettiger zo.
    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then
        Target.Interior.Color = IIf(Target.Interior.Color = 255, xlNone, 255)
        Cancel = True
      End If
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren