LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: 2
Default 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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Possibly a loaded question, but I think mileslit Excel Discussion (Misc queries) 1 September 10th 05 01:18 AM
How do I find and replace a question mark in Excel? Ranpalandil Excel Discussion (Misc queries) 1 September 7th 05 10:20 PM
Newbie With A Question Michael Excel Worksheet Functions 0 July 28th 05 11:50 PM
Anybody Help with previous question Anthony Excel Discussion (Misc queries) 1 July 26th 05 01:26 PM
Hints And Tips For New Posters In The Excel Newsgroups Gary Brown Excel Worksheet Functions 0 April 15th 05 05:47 PM


All times are GMT +1. The time now is 11:47 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"