Conditional Formating issue

J

jurgenC!

hi all,

i am trying to add a Conditional Formatting to a serie of cells -

D3: =B3<>""
D4: =B4<>""
D5: =B5<>""
etc

the routine i have is this:

Workbooks(sTestcase). _
Sheets("TestScripts"). _
Range("A1"). _
Offset(iRowL + 1, 3).FormatConditions.Delete
sFormat = "=" & "B" & iRowL + 1 & "<>"""""
Workbooks(sTestcase). _
Sheets("TestScripts"). _
Range("A1"). _
Offset(iRowL + 1, 3). _
FormatConditions. _
Add Type:=xlExpression, Formula1:=sFormat

the issue is, if i check on the Conditional Formating on the worksheet,
the formula is as follow:

D3: =E3<>""
D4: =E4<>""
D5: =E5<>""
etc.

as you might expect this is not the desired result - if anybody could
clarify what i am missing or where i am going wrong, this would be
mostly appreciated.

cheers...

...jurgenC!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
 
B

Bob Phillips

Jurgen,

The problem is that the cell is being adjusted to wherever the active cell
is at the time.

Try this modified line

sFormat = "=" & "$B$" & iRowL + 1 & "<>"""""

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top