Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 237
Default Colorvalue of cell Z1

here is the code:
If Application.CountIf(.Range("z1:z26"), "Name") 0 Then
Range("area1").Interior.colorindex = 3
Else
Range("area1").Interior.colorindex = 2
End If

I would like for the code to say...
If Application.CountIf(.Range("z1:z26"), "Name") 0 Then
Range("area1").Interior.colorindex = "the color
value of cell Z1"

I want it to make the color of the cells specified in
range "name" the color of whatever color the cell of Z1 is.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 237
Default Colorvalue of cell Z1

Nevermind I fixed it.

thanx
-----Original Message-----
here is the code:
If Application.CountIf(.Range("z1:z26"), "Name") 0 Then
Range("area1").Interior.colorindex = 3
Else
Range("area1").Interior.colorindex = 2
End If

I would like for the code to say...
If Application.CountIf(.Range("z1:z26"), "Name") 0 Then
Range("area1").Interior.colorindex = "the color
value of cell Z1"

I want it to make the color of the cells specified in
range "name" the color of whatever color the cell of Z1

is.
.

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Colorvalue of cell Z1


Range("area1").Interior.colorindex = Range("z1").Interior.colorinde

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Reply
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
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options Yuvraj Excel Discussion (Misc queries) 0 June 29th 09 11:20 AM
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Yuvraj Excel Discussion (Misc queries) 0 June 26th 09 06:01 PM
Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 [email protected] Excel Worksheet Functions 1 August 22nd 08 02:04 AM
How to create/run "cell A equals Cell B put Cell C info in Cell D abmb161 Excel Discussion (Misc queries) 5 January 26th 06 06:36 PM
Question: Cell formula or macro to write result of one cell to another cell Frederik Romanov Excel Programming 1 July 8th 03 03:03 PM


All times are GMT +1. The time now is 01:04 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"