Convert to Excel Macro

  • Thread starter Thread starter Wes Finch
  • Start date Start date
W

Wes Finch

Hi all, I need some help here.

I need this logic converted to an excel 2003 macro:

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

All my feeble attempts fail.
Thanks,
Wes
 
Thanks Mike,
It works great with just one minor modification as the cells would be empty on the first run:

If Cells(x, 1) < Cells(x, 3) Or IsEmpty(Cells(x, 2)) Then

I appreciate your help.
Wes
 
Give this a try:



Sub marine()

Dim N As Long, x As Long

N = Cells(Rows.Count, "A").End(xlUp).Row

For x = 6 To N

If Cells(x, 1) > Cells(x, 2) Then

Cells(x, 2) = Cells(x, 1)

End If

If Cells(x, 1) < Cells(x, 3) Then

Cells(x, 3) = Cells(x, 1)

End If

Next x

End Sub
Click to expand...

Thanks MIke!
I got it working!
 
Back
Top