Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
VBA Question
I am using a VBA Code snippet which I am using to get around the conditional
format restriction. Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer <== Start Code snippet == ' Define conditional formats If Not Intersect(Target, Range("E4:IV1003")) Is Nothing Then Select Case Target Case "" icolor = 0 ' Define Code e.g. "Code" or "Description" Case "A" ' Define color as stated in the color index. icolor = "3" Case "Test" icolor = 4 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub <== END Code snippet == Currently I have this in Worksheet1. In worksheet2 I have a table where I want to define "A" and "1". Can you please let me know how I can reference Worksheet2!C2 where the value for "A" in and Worksheet2!D2 where the value for "1" would be defined? Thanks in advance for your support. Vince |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
VBA Question
In the Range E4:IV1003 in ws1 I will have to insert different codes.
The color codes and the codes will be specified in ws2. e.g. : A1: Description | B1: Code | C1: Color Index A2: Concept Test | B2: CT | C2: 3 Case needs to be read from WS2-B2 icolor needs to be read from WS2-C2 Thanks in advance "Don Guillett" wrote: Are you trying to change ws2 from a worksheet change event in ws1? If so case "A" then sheets("sheet2").range("a1").interior.colorindex=3 If not, pls explain -- Don Guillett SalesAid Software "SiliconAlleyDude" wrote in message ... I am using a VBA Code snippet which I am using to get around the conditional format restriction. Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer <== Start Code snippet == ' Define conditional formats If Not Intersect(Target, Range("E4:IV1003")) Is Nothing Then Select Case Target Case "" icolor = 0 ' Define Code e.g. "Code" or "Description" Case "A" ' Define color as stated in the color index. icolor = "3" Case "Test" icolor = 4 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub <== END Code snippet == Currently I have this in Worksheet1. In worksheet2 I have a table where I want to define "A" and "1". Can you please let me know how I can reference Worksheet2!C2 where the value for "A" in and Worksheet2!D2 where the value for "1" would be defined? Thanks in advance for your support. Vince |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Possibly a loaded question, but I think | Excel Discussion (Misc queries) | |||
How do I find and replace a question mark in Excel? | Excel Discussion (Misc queries) | |||
Newbie With A Question | Excel Worksheet Functions | |||
Anybody Help with previous question | Excel Discussion (Misc queries) | |||
Hints And Tips For New Posters In The Excel Newsgroups | Excel Worksheet Functions |