Got a code that works exactly how I like....
Need to add addtional if statements.
The range (h3:h) remains the same, but just need to know how to add a
few more If statments in a code.


Sub macro200()
Dim c As Range
Dim rng As Range
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
Set rng = ws.Range("h3:h" & ws.Cells(ws.Rows.Count,
"h").End(xlUp).Row)
For Each c In rng
If c.Value = Range("ao2").Value Then
c.Offset(0, 1).Value = c.Offset(0, 33).Value
End If
Next c

End Sub



thanx

Don't know what you want to test for, but this should give you an
idea.
Sub macro200()
Dim c As Range
Dim rng As Range
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
Set rng = ws.Range("h3:h" & ws.Cells(ws.Rows.Count,
"h").End(xlUp).Row)
For Each c In rng
If c.Value = Range("ao2").Value Then
c.Offset(0, 1).Value = c.Offset(0, 33).Value
ElseIf c.Value = Range("bo2").Value Then
c.Offset(0, 1).Value = c.Offset(0, 34).Value
ElseIf c.Value = Range("co2").Value Then
c.Offset(0, 1).Value = c.Offset(0, 35).Value
Else
c.Offset(0, 1).Value = c.Offset(0, 36).Value
End If
Next c
End Sub

J.W. Aldridge wrote:
> Got a code that works exactly how I like....
> Need to add addtional if statements.
> The range (h3:h) remains the same, but just need to know how to add a
> few more If statments in a code.
>
>
> Sub macro200()
> Dim c As Range
> Dim rng As Range
> Dim ws As Worksheet
>
> Set ws = Worksheets("Sheet1")
> Set rng = ws.Range("h3:h" & ws.Cells(ws.Rows.Count,
> "h").End(xlUp).Row)
> For Each c In rng
> If c.Value = Range("ao2").Value Then
> c.Offset(0, 1).Value = c.Offset(0, 33).Value
> End If
> Next c
>
> End Sub
>
>
>
> thanx

Any other way to write that?

I tried it and it didnt work for me.

I blocked the other if statements (placed ' before each line and
changed Else If to "If" on one line at a time) out and ran each line
individually and it worked fine.

Thanx