fx celeigenschappen

[lotrgollem]

Hoi,

Ik ben een exe-sheet aan't maken voor verlofplanning.
Nu zoek ik een formulle die uit een cel een getal leest en aan de hand van dit getal dit aantal cellen zwart kleurt.
vb: C6 = 0 ( B1:B6 moeten ingekleurt worden)
C6 = 1 ( B2:B6 moeten ingekleurt worden)
C6 = 2 ( B3:B6 moeten ingekleurt worden)
C6 = 3 ( B4:B6 moeten ingekleurt worden)
C6 = 4 ( B2:B6 moeten ingekleurt worden)
C6 = 5 ( B5 moet ingekleurt worden)
C6 = 6 ( nu moet er niets ingekleurt worden)

mvg
Lotrgollem

 

[Hoornvan]

lotrgollem,

Kijk hier eens ik denk dat je er wel wat mee kunt.

 

[Hoornvan]

lotrgollem,

Ik denk dat dit het moet zijn?

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$6" Then
         [B1:B6].Interior.ColorIndex = none
    Select Case Target.Value
        Case Is = 0
            [B1:B6].Interior.Color = vbBlack
        Case Is = 1
            [B2:B6].Interior.Color = vbBlack
        Case Is = 2
            [B3:B6].Interior.Color = vbBlack
        Case Is = 3
            [B4:B6].Interior.Color = vbBlack
        Case Is = 4
            [B5:B6].Interior.Color = vbBlack
        Case Is = 5
            [B5].Interior.Color = vbBlack
    End Select
    End If
End Sub

 

[snb]

Indachtig Rudi's ondertekening

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$6" Then
    [B1:B6].Interior.ColorIndex = xlnone
    target.offset(-1,-5+target.value).resize(,5-target.value).interior.colorindex=1
  End If
End Sub

NB. Hiermee worden de cellen ingekleurd.

 

[Wigi]

Snb, in je code haspel je rijen en kolommen door mekaar. Zet het er anders even bij als je ongeteste code op het forum plaatst (al is dit ook/vooral de verantwoordelijkheid van de vraagsteller uiteraard).

 

[snb]

In dit helpmij forum help ik door suggesties te doen voor een oplossing.
Met behulp van die suggestie kan de vragensteller zijn vraagstuk aanpakken/oplossen.
Als de suggestie meteen de oplossing is, is dat mooi meegenomen.
Ik vermeld nooit dat code getest is, ergo: beschouw alle code als ongeteste suggesties.
De praktijk leert dat de situatie waarover de vragensteller een vraag formuleert in meer dan 99% een andere is dan op het forum gepresenteerd. 'Testen' is dan wat overbodig en suggereert een zekerheid die niet gegeven kan worden.
Het staat natuurlijk eenieder vrij aan te geven of dier/diens code 'getest' is. Ik zelf beschouw iedere code als 'ongetest' en adviseer anderen dit ook te doen.
Zelfs met deze:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$6" And Target < 6 Then
    [B1:B6].Interior.ColorIndex = xlNone
    Target.Offset(-5 + Target, -1).Resize(6 - Target).Interior.ColorIndex = 1
  End If
End Sub

 

[Wigi]

In dit helpmij forum help ik door suggesties te doen voor een oplossing.
Met behulp van die suggestie kan de vragensteller zijn vraagstuk aanpakken/oplossen.
Als de suggestie meteen de oplossing is, is dat mooi meegenomen.
Ik vermeld nooit dat code getest is, ergo: beschouw alle code als ongeteste suggesties.
De praktijk leert dat de situatie waarover de vragensteller een vraag formuleert in meer dan 99% een andere is dan op het forum gepresenteerd. 'Testen' is dan wat overbodig en suggereert een zekerheid die niet gegeven kan worden.
Het staat natuurlijk eenieder vrij aan te geven of dier/diens code 'getest' is. Ik zelf beschouw iedere code als 'ongetest' en adviseer anderen dit ook te doen.

Ergens heb je enigszins gelijk, maar als je de richtlijnen uit de vraag van de vraagsteller opvolgt, krijg je gewoon foutmeldingen met jouw code. Gezien de VBA-kennis van de gemiddelde vraagsteller, is dit niet zo wenselijk.

Als vragen dan toch niet overeenkomen met de echte situatie van de vraagsteller, kan je misschien beter werkende en geteste code aanleveren; code die dan misschien niet doet wat de vraagsteller wenst, maar die de gemiddelde vraagsteller niet met fouten overlaadt.

Wigi

 

[lotrgollem]

Wow, ik ben net terug thuis en kijk mijn vraag even na.
schitterend gewoon hoe iedereen hier elkaar ter hulp schiet.
Ik ben allesinds meer dan geholpen

groetjes en nogmaals bedankt,

Lotrgollem:thumb: