Change colours in different tables based on dropdown selections

kevinbradley57 · #1 08-03-2017, 09:20 AM

Split from: https://www.msofficeforums.com/word-...wn-choice.html

PLeo -- I'm trying to do something very similar but it's not working for me. Can you provide the updated file with the working macro? Thanks!

PLeo · #2 08-03-2017, 01:26 PM

kevinbradley57,

Here's the working file. Hope it helps.

kevinbradley57 · #3 08-03-2017, 01:43 PM

It works -- thank you, Macropod and PLeo!

kevinbradley57 · #4 08-03-2017, 03:05 PM

Quote:

Originally Posted by macropod

See: https://www.msofficeforums.com/word-...html#post47254

I got part of it to work, but now I'm trying to apply the same programming to a different place in the same document with different text but the same colors. Help?

My file is attached.

macropod · #5 08-03-2017, 03:35 PM

Try:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  Select Case .Title
    Case "Rating"
      Select Case .Range.Text
        Case "Unsatisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Satisfactory With Improvements Needed": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Satisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case "Risk"
      Select Case .Range.Text
        Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Moderate": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Low": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case Else
  End Select
End With
End Sub

PS: Splitting your posts to a separate thread.

kevinbradley57 · #6 08-03-2017, 04:05 PM

Quote:

Originally Posted by macropod

Try:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  Select Case .Title
    Case "Rating"
      Select Case .Range.Text
        Case "Unsatisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Satisfactory With Improvements Needed": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Satisfactory": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case "Risk"
      Select Case .Range.Text
        Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
        Case "Moderate": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
        Case "Low": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
        Case Else: .Range.Cells(1).Shading.BackgroundPatternColorIndex = wdNoHighlight
      End Select
    Case Else
  End Select
End With
End Sub

PS: Splitting your posts to a separate thread.

Paul - Thanks for the prompt reply. The first section (Satisfactory, etc.) works great, but the colors don't change on the other part (High, etc.). Does it matter that I'm using Word 2013?

macropod · #7 08-03-2017, 06:19 PM

It works for me. Did you exit the content control?

kevinbradley57 · #8 08-04-2017, 06:25 AM

Paul - It works. I must have copied/pasted an extra something the first time. Thanks so much! You have saved me many hours and much frustration.

kevinbradley57 · #9 08-09-2017, 12:51 PM

Paul -- Can you show me how to change the font color to white when the text = "High"?

Case "Risk"
Select Case .Range.Text
Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
Case "Moderate": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
Case "Low": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
Case Else: .Range.Cells(1).Shading.BackgroundPatternColorInde x = wdNoHighlight
End Select

macropod · #10 08-09-2017, 02:55 PM

You could use:

Code:

Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264: .Range.Cells(1).Range.Font.ColorIndex = wdWhite

Of course, then you'll probably need to change it back again for all of the others; otherwise you could end up with any other choice having white text if the user changes their mind.

kevinbradley57 · #11 08-09-2017, 03:54 PM

Perfect. Thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Hide/Display of sections of document based on Drop Down selections	turnquistcm	Word	2	05-03-2017 07:05 PM
Best way to load data into a template based on user selections	Timbo	Word	1	11-07-2013 05:14 AM
Contact details entered based on multiple drop down selections	ntropey87	Word VBA	4	04-20-2013 11:19 AM
add values to dropdown selections and calculate	guyhs	Word	7	10-24-2012 05:11 PM
Template: group dropdown selections	mfoe33	Word	0	10-15-2012 02:58 AM