2 conditions in If...Then

[pbellc]

Does anyone know how to put two conditions in an If...Then statement? It's not a ElseIf situation, I need both conditions to be true to complete the statement. Simply this is what I would like to do:

Dim i As Integer

i = 2
Do Until Worksheets("Data&quot.Cells(i, 2).Value = Empty
i = i + 1

Loop

If Worksheets("Data&quot.Cells(i, 1).Value =
Worksheets("Data2&quot.Cells(i, 1).Value And
Worksheets("Data&quot.cells(i,2).value = worksheets("data2&quot.cells(i,2).value
THen
worksheets("data&quot.cells(i,24)="yes"
Else
worksheets("data&quot.cells(1,24)=""

End If
End Sub

THis doesn't work, and I think it has to do with the "AND" in there. What am I missing? Thanks all.

 

[Zathras]

You're close, but there are a couple of problems.

1. You need to put an underscore at the end of a line that is continued to another line.

2. You need to put your code between the Do and the Loop

Sub test()
Dim i As Integer

i = 2
Do Until Worksheets("Data").Cells(i, 2).Value = Empty
i = i + 1


If Worksheets("Data").Cells(i, 1).Value =

[red]

 _

[/color]

    Worksheets("Data2").Cells(i, 1).Value And

[red]

 _

[/color]

    Worksheets("Data").Cells(i, 2).Value = Worksheets("data2").Cells(i, 2).Value

[red]

 _

[/color]

Then
    Worksheets("data").Cells(i, 24) = "yes"
Else
    Worksheets("data").Cells(1, 24) = ""

End If

[red]

Loop

[/color]

End Sub