ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Conditional Formatting based on active Named Range; IF Function to VBA (https://www.excelbanter.com/excel-worksheet-functions/270960-conditional-formatting-based-active-named-range%3B-if-function-vba.html)

Todd[_4_]

Conditional Formatting based on active Named Range; IF Function to VBA
 
Hey,
I have more than 3 conditional formatting and I have more than 3 IF
statements in the function - I have 4. The function for four IF
statements in my case is listed below. How would I write this as a
VBA function?

I have numbers in column A, I have to identify, based off 4 active
named ranges, who the numbers belong to. For example, if the number
in A3 is 9004, the function/code would lookup up and find 9004 under
the active named range called SEA_ID and then would put in the B3
column SEA.

Any ideas are welcomed, thank you. Bull

=IF(COUNTIF(SEA_ID,A3),"SEA",IF(COUNTIF(SPO_ID,A3) ,"SPO",IF(COUNTIF(BUT_ID,A3),"BUT",IF(COUNTIF(ANC_ ID,A3,"ANC",""))))


Don Guillett[_2_]

Conditional Formatting based on active Named Range; IF Functionto VBA
 
On Dec 1, 1:28*pm, Todd wrote:
Hey,
I have more than 3 conditional formatting and I have more than 3 IF
statements in the function - I have 4. *The function for four IF
statements in my case is listed below. *How would I write this as a
VBA function?

I have numbers in column A, I have to identify, based off 4 active
named ranges, who the numbers belong to. *For example, if the number
in A3 is 9004, the function/code would lookup up and find 9004 under
the active named range called SEA_ID and then would put in the B3
column SEA.

Any ideas are welcomed, thank you. Bull

=IF(COUNTIF(SEA_ID,A3),"SEA",IF(COUNTIF(SPO_ID,A3) ,"SPO",IF(COUNTIF(BUT_ID, A3),"BUT",IF(COUNTIF(ANC_ID,A3,"ANC",""))))


suggest using select case. Look in vba help


All times are GMT +1. The time now is 02:46 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com