View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
mike_vr mike_vr is offline
external usenet poster
 
Posts: 42
Default If... then... Else statement

Morning all

I have three sheets that I am trying to format. The formatting follows a
search by description and then formats that row.

In the first sheet, I have to change one description and then carry on the
formatting. But in the next two sheets that description doesn't appear.

I'm pretty inexperienced to Macros, so how would I "ask" the following
question of it?

If I find "tax-benefits in kind" change the description to "tax in kind" and
then carry on to find "salaries" and "expenses" and format them as usual
But If I can't find "tax-benefits in kind" just carry on and format
"salaries" & "expenses" as usual.

At the moment I have the following:

If Cells.Find(What:="TAX-BENEFITS IN KIND", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext _
, MatchCase:=False).Activate = False Then
Range("A1").Select

ElseIf Cells.Find(What:="TAX-BENEFITS IN KIND", After:=ActiveCell,
LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext _
, MatchCase:=False).Activate = True Then
ActiveCell.Value = "TAX-BENFITS IN KIND"
Range("A1").Select

End If

Cells.Find(What:="SALARIES", After:=ActiveCell, LookIn _
:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Selection.End(xlToLeft).Select

thisrow = Selection.Row

With Range(Cells(thisrow, 1), Cells(thisrow, 11)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range(Cells(thisrow, 1), Cells(thisrow, 11)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

So in a nutshell, I want it to find "Tax-Benefits in kind" and change to
"Tax in Kind" and then format "salaries" but if "Tax-Benefits in kind"
doesn't appear then ignore the change of name and just go on to format
salaries.

Any help would be appreciated.

Thanks!!!

Mike