Thread: Create a macro
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Create a macro

I believe that Mac Excel 2008 doesn't support VBA.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Wed, 2 Sep 2009 15:06:01 -0700, Gary''s Student
wrote:

This small example is coded for rows 5 thru 10.

Adapt it to meet your needs:

Sub ColorMeElmo()
For i = 5 To 10
Set r = Range("A" & i & ":H" & i)
If Cells(i, "A").Value = "OK" Then
r.Interior.ColorIndex = 43
GoTo doneRow
End If
If Cells(i, "H").Value = "N.S." Then
r.Interior.ColorIndex = 46
GoTo doneRow
End If
If Cells(i, "G").Value = "P.S." Then
r.Interior.ColorIndex = 44
GoTo doneRow
End If
If Cells(i, "G").Value = "Y.L.K" Then
r.Interior.ColorIndex = 39
End If
doneRow:
Next
End Sub