 |
|
|
|
|
|
Current Special! Complete Excel
Excel
Training Course
for Excel 97 - Excel 2003, only $145.00.
$59.95 Instant
Buy/Download,
30 Day Money Back Guarantee & Free
Excel Help for LIFE!
Got any Excel Questions? Free Excel Help
gonza wrote:
I need a macro to check cells looking for letter. Depending on the letter, I
want to assign a colour to the cell. I know how it work for one cell but how I
can move the cursor to the next cells, like a loop?
XL-Dennis provided some looping code with the proviso that for large ranges
there exist much quicker approaches than looping through a range. Dennis
also added some Error checking in case the cells contained error values.
Sub Check_Range_Value()
Dim rnArea As Range
Dim rnCell As Range
Set rnArea = Range("A1:B11")
For Each rnCell In rnArea
With rnCell
If Not IsError(.Value) Then
Select Case .Value
Case "R"
.Interior.ColorIndex
= 45
Case "Y"
.Interior.ColorIndex
= 20
End Select
End If
End With
Next
End Sub
Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft
GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS