Add multiple IF statements
 

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

Add multiple IF statements
 

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

Add multiple IF statements
 

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