Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #5  
Old 08-23-2012, 11:24 PM
Catalin.B Catalin.B is offline Change cell color when selection is made from a drop down list Windows Vista Change cell color when selection is made from a drop down list Office 2010 32bit
Expert
 
Join Date: May 2011
Location: Iaşi, Romānia
Posts: 386
Catalin.B is on a distinguished road
Default

Here is the code, same that can be found in the workbook attached, which works with the event Workbook_BeforeClose.
The code will execute and change fonts and interior color on column D when you hit the close button on the workbook.
You have to complete the arrays, i noticed that you have in the workbook more values than in your first message. Remember that the arrays must have the same number of elements.
The code works on active sheet, so , if you want to run the code on another sheet, you just have to activate that sheet before closing the workbook.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim SearchArr, FontColorArr, InteriorColorArr As Variant, i, Cell As Integer
    SearchArr = Array("BLACK", "BLUE", "CADIAC ALERT", "GREEN", "GRAY", "ICE ALERT", "ORANGE" _
       , "PEDS CODE BLUE", "PINK", "PURPLE", "RAPID RESPONSE", "RED", "STEMI ALERT", "STROKE ALERT" _
       , "WHITE", "YELLOW")
    FontColorArr = Array("2", "2", "2", "1", "1", "1", "1", "1" _
       , "2", "2", "1", "2", "2", "1", "1", "1")
    InteriorColorArr = Array("1", "5", "30", "4", "16", "37", "46", "8" _
       , "7", "13", "20", "3", "53", "22", "2", "6")
     Application.ScreenUpdating=False
For Cell = 3 To 350
           For i = LBound(SearchArr) To UBound(SearchArr)
              If InStr(1, ActiveSheet.Cells(Cell, "D").Text, SearchArr(i), vbTextCompare) > 0 Then
                ActiveSheet.Cells(Cell, "D").Interior.ColorIndex = InteriorColorArr(i)
                ActiveSheet.Cells(Cell, "D").Font.ColorIndex = FontColorArr(i)
              End If
           Next i
   Next Cell
    Application.ScreenUpdating=True
End Sub
Attached Files
File Type: xlsm Copy of CODE BOOK Sept 2012.xlsm (125.9 KB, 32 views)

Last edited by Catalin.B; 08-24-2012 at 01:10 AM.
Reply With Quote
 

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Change cell color when selection is made from a drop down list Macro ? - Checkbox in Word + drop down selection help dice1976 Word 4 07-24-2012 11:18 AM
Change cell color everytime a value is selected in dropdown list angelica_gloria Excel 4 01-27-2012 06:47 PM
Made a mistake with a macro change lance_kidd Word 0 02-09-2011 06:36 PM
Ho to perform multi selection in drop down lists? nashville Word 0 09-29-2010 07:10 AM
How can I fill cell color starting from Cell D5 using Conditional formatting instead Learner7 Excel 0 07-08-2010 05:50 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:28 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft