Convert to Excel Macro
 

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

Convert to Excel Macro
 

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

Convert to Excel Macro
 

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

Convert to Excel Macro
 

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