Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Multiple If Statements | Excel Worksheet Functions | |||
Multiple IF statements looking up multiple ranges. | Excel Worksheet Functions | |||
Multiple if statements with multiple conditions | Excel Discussion (Misc queries) | |||
Multiple IF statements | Excel Programming | |||
multiple if statements | Excel Discussion (Misc queries) |