Beste Excel specialsten,
Een tijdje geleden werd een soortgelijke vraag ivm voorwaardelijke opmaak reeds gesteld en beantwoord op dit forum maar ik had ze graag nog een beetje uitgebreid gezien.
Hierbij gevoegd een VBA code bij wijze van voorbeeld.
Bij ingave van één van de getallen zal de cel opgevuld worden met een kleur.
Mijn vraag is of deze code ook uitgebreid kan worden zodat bvb 5 cellen rechts naast het ingevulde getal ook diezelfde opvulkleur krijgen. (...Of zelfs de ganse rij)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
Select Case .Value
Case "1": .Interior.ColorIndex = 1
Case "2": .Interior.ColorIndex = 3
Case "3": .Interior.ColorIndex = 4
Case "4": .Interior.ColorIndex = 5
Case "5": .Interior.ColorIndex = 6
Case "6": .Interior.ColorIndex = 7
Case "7": .Interior.ColorIndex = 8
Case "8": .Interior.ColorIndex = 9
Case "9": .Interior.ColorIndex = 10
Case "10": .Interior.ColorIndex = 12
Case "11": .Interior.ColorIndex = 2
Case "12": .Interior.ColorIndex = 11
Case "13": .Interior.ColorIndex = 13
Case "14": .Interior.ColorIndex = 14
Case "15": .Interior.ColorIndex = 15
Case "16": .Interior.ColorIndex = 16
Case "17": .Interior.ColorIndex = 17
Case "18": .Interior.ColorIndex = 18
Case "19": .Interior.ColorIndex = 19
Case "20": .Interior.ColorIndex = 20
Case "21": .Interior.ColorIndex = 21
Case "22": .Interior.ColorIndex = 22
Case "23": .Interior.ColorIndex = 23
Case "24": .Interior.ColorIndex = 24
Case "25": .Interior.ColorIndex = 25
Case "26": .Interior.ColorIndex = 26
Case "27": .Interior.ColorIndex = 27
Case "28": .Interior.ColorIndex = 28
Case "29": .Interior.ColorIndex = 29
Case "30": .Interior.ColorIndex = 30
Case "31": .Interior.ColorIndex = 31
Case "32": .Interior.ColorIndex = 32
Case "33": .Interior.ColorIndex = 33
Case "34": .Interior.ColorIndex = 34
Case "35": .Interior.ColorIndex = 35
Case "36": .Interior.ColorIndex = 36
Case "37": .Interior.ColorIndex = 37
Case "38": .Interior.ColorIndex = 38
Case "39": .Interior.ColorIndex = 39
Case "40": .Interior.ColorIndex = 40
Case "41": .Interior.ColorIndex = 41
Case "42": .Interior.ColorIndex = 42
Case "43": .Interior.ColorIndex = 43
Case "44": .Interior.ColorIndex = 44
Case "45": .Interior.ColorIndex = 45
Case "46": .Interior.ColorIndex = 46
Case "47": .Interior.ColorIndex = 47
Case "48": .Interior.ColorIndex = 48
Case "49": .Interior.ColorIndex = 49
Case "50": .Interior.ColorIndex = 50
Case "51": .Interior.ColorIndex = 51
Case "52": .Interior.ColorIndex = 52
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
End Sub
Dank voor jullie bereidwilligheid.
Dimy
Een tijdje geleden werd een soortgelijke vraag ivm voorwaardelijke opmaak reeds gesteld en beantwoord op dit forum maar ik had ze graag nog een beetje uitgebreid gezien.
Hierbij gevoegd een VBA code bij wijze van voorbeeld.
Bij ingave van één van de getallen zal de cel opgevuld worden met een kleur.
Mijn vraag is of deze code ook uitgebreid kan worden zodat bvb 5 cellen rechts naast het ingevulde getal ook diezelfde opvulkleur krijgen. (...Of zelfs de ganse rij)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
Select Case .Value
Case "1": .Interior.ColorIndex = 1
Case "2": .Interior.ColorIndex = 3
Case "3": .Interior.ColorIndex = 4
Case "4": .Interior.ColorIndex = 5
Case "5": .Interior.ColorIndex = 6
Case "6": .Interior.ColorIndex = 7
Case "7": .Interior.ColorIndex = 8
Case "8": .Interior.ColorIndex = 9
Case "9": .Interior.ColorIndex = 10
Case "10": .Interior.ColorIndex = 12
Case "11": .Interior.ColorIndex = 2
Case "12": .Interior.ColorIndex = 11
Case "13": .Interior.ColorIndex = 13
Case "14": .Interior.ColorIndex = 14
Case "15": .Interior.ColorIndex = 15
Case "16": .Interior.ColorIndex = 16
Case "17": .Interior.ColorIndex = 17
Case "18": .Interior.ColorIndex = 18
Case "19": .Interior.ColorIndex = 19
Case "20": .Interior.ColorIndex = 20
Case "21": .Interior.ColorIndex = 21
Case "22": .Interior.ColorIndex = 22
Case "23": .Interior.ColorIndex = 23
Case "24": .Interior.ColorIndex = 24
Case "25": .Interior.ColorIndex = 25
Case "26": .Interior.ColorIndex = 26
Case "27": .Interior.ColorIndex = 27
Case "28": .Interior.ColorIndex = 28
Case "29": .Interior.ColorIndex = 29
Case "30": .Interior.ColorIndex = 30
Case "31": .Interior.ColorIndex = 31
Case "32": .Interior.ColorIndex = 32
Case "33": .Interior.ColorIndex = 33
Case "34": .Interior.ColorIndex = 34
Case "35": .Interior.ColorIndex = 35
Case "36": .Interior.ColorIndex = 36
Case "37": .Interior.ColorIndex = 37
Case "38": .Interior.ColorIndex = 38
Case "39": .Interior.ColorIndex = 39
Case "40": .Interior.ColorIndex = 40
Case "41": .Interior.ColorIndex = 41
Case "42": .Interior.ColorIndex = 42
Case "43": .Interior.ColorIndex = 43
Case "44": .Interior.ColorIndex = 44
Case "45": .Interior.ColorIndex = 45
Case "46": .Interior.ColorIndex = 46
Case "47": .Interior.ColorIndex = 47
Case "48": .Interior.ColorIndex = 48
Case "49": .Interior.ColorIndex = 49
Case "50": .Interior.ColorIndex = 50
Case "51": .Interior.ColorIndex = 51
Case "52": .Interior.ColorIndex = 52
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
End Sub
Dank voor jullie bereidwilligheid.
Dimy