how to use 2 conditions in if

[Sergei D]

I am writing a macro that would importa data from a transaction file to my
report file. I need to specify 2 conditions for the loopup. Here is an
examply (dummy) of what I will be writing. Please help to specify 2
conditions. thanks
Dim cell As Range
Dim str As String

For Each cell In Range("a8:a30")
If cell = 1122 Then
cell.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ElseIf Not IsEmpty(cell.Value) Then
cell.Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
Else: Range("a33").Select
ActiveCell.FormulaR1C1 = "end of transactions"

End If
Next cell
End Sub


--
Sergei D

[Don Guillett]

You didn't say where or what so try something like

For Each cell In Range("a8:a30")
If cell> = 1122 and cell<1200 Then
With cell.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ElseIf Not IsEmpty(cell.Value) Then
With cell.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
Else: Range("a33").value= "end of transactions"
End If
Next cell


--
Don Guillett
SalesAid Software
[email protected]
"Sergei D" <[email protected]> wrote in message
news:[email protected]...
>I am writing a macro that would importa data from a transaction file to my
> report file. I need to specify 2 conditions for the loopup. Here is an
> examply (dummy) of what I will be writing. Please help to specify 2
> conditions. thanks
> Dim cell As Range
> Dim str As String
>
> For Each cell In Range("a8:a30")
> If cell = 1122 Then
> cell.Select
> With Selection.Interior
> .ColorIndex = 6
> .Pattern = xlSolid
> End With
> ElseIf Not IsEmpty(cell.Value) Then
> cell.Select
> With Selection.Interior
> .ColorIndex = 5
> .Pattern = xlSolid
> End With
> Else: Range("a33").Select
> ActiveCell.FormulaR1C1 = "end of transactions"
>
> End If
> Next cell
> End Sub
>
>
> --
> Sergei D

[Bob Phillips]

Do you mean

If cell = 1122 Or cell = 2233 Then


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Sergei D" <[email protected]> wrote in message
news:[email protected]...
> I am writing a macro that would importa data from a transaction file to my
> report file. I need to specify 2 conditions for the loopup. Here is an
> examply (dummy) of what I will be writing. Please help to specify 2
> conditions. thanks
> Dim cell As Range
> Dim str As String
>
> For Each cell In Range("a8:a30")
> If cell = 1122 Then
> cell.Select
> With Selection.Interior
> .ColorIndex = 6
> .Pattern = xlSolid
> End With
> ElseIf Not IsEmpty(cell.Value) Then
> cell.Select
> With Selection.Interior
> .ColorIndex = 5
> .Pattern = xlSolid
> End With
> Else: Range("a33").Select
> ActiveCell.FormulaR1C1 = "end of transactions"
>
> End If
> Next cell
> End Sub
>
>
> --
> Sergei D