G
Guest
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
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