Hi all, I need some help here.

I need this logic converted to an excel 2003 macro:

Current worksheet
Do x = 1 (until there is no more data in column A)
If the value of cell Ax cell Bx then cell Bx = cell Ax
If the value of cell Ax < cell Cx then cell Cx = cell Ax
x = x + 1
End Do

All my attempts fail.
Thanks,
Wes

hi Wes,

Sub Macro1()
Dim LastRow As Long, i As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
If .Range("A" & i) .Range("B" & i) Then
.Range("B" & i) = .Range("A" & i).Value
ElseIf .Range("A" & i) < .Range("B" & i) Then
.Range("C" & i) = .Range("A" & i).Value
Else
'what is equal
End If
Next
End With
End Sub

isabelle

Le 2013-03-04 21:34, Wes Finch a écrit :
Hi all, I need some help here.

I need this logic converted to an excel 2003 macro:

Current worksheet
Do x = 1 (until there is no more data in column A)
If the value of cell Ax cell Bx then cell Bx = cell Ax
If the value of cell Ax < cell Cx then cell Cx = cell Ax
x = x + 1
End Do

All my attempts fail.
Thanks,
Wes

On Monday, March 4, 2013 10:14:29 PM UTC-5, isabelle wrote:
hi Wes,



Sub Macro1()

Dim LastRow As Long, i As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For i = 1 To LastRow

If .Range("A" & i) .Range("B" & i) Then

.Range("B" & i) = .Range("A" & i).Value

ElseIf .Range("A" & i) < .Range("B" & i) Then

.Range("C" & i) = .Range("A" & i).Value

Else

'what is equal

End If

Next

End With

End Sub



isabelle



Le 2013-03-04 21:34, Wes Finch a écrit :

Hi all, I need some help here.



I need this logic converted to an excel 2003 macro:



Current worksheet

Do x = 1 (until there is no more data in column A)

If the value of cell Ax cell Bx then cell Bx = cell Ax

If the value of cell Ax < cell Cx then cell Cx = cell Ax

x = x + 1

End Do



All my attempts fail.

Thanks,

Wes



Thanks isabelle,
This works great!
You have saved me much stress.
Wes

glad to help. thanks for the feedback.

isabelle

Le 2013-03-04 22:34, Wes Finch a écrit :

Thanks isabelle,
This works great!
You have saved me much stress.
Wes