Loop ?
Thanks Tom
"Tom Ogilvy" wrote:
Option Explicit
Sub priceComparison()
Const priceCompSheetName = "Price Comparison"
Const ourPriceCol = "B"
Const alltelPriceCol = "C"
Dim pcWS As Worksheet, i as Long
Dim lastrow as Long
Set pcWS = Worksheets(priceCompSheetName)
lastrow = pcWs.Cells(rows.count,ourpriceCol).End(xlup).row
for i = 5 to lastrow
If pcWS.Range(ourPriceCol & i).Value _
< pcWS.Range(alltelPriceCol & i).Value Then
pcWS.Range(ourPriceCol & i).Value _
= pcWS.Range(alltelPriceCol & i).Value
End If
Next i
End Sub
--
Regards,
Tom Ogilvy
"Mike" wrote:
Can someone tell how or what i need to do with this code so that it will
start in Column B and compare with Column C and do this until the last row in
column B
Right now the code only compare's B5 with C5 and i need it to compare
B6 with C6, B7 with C7 and so on till the last row in column B
Thanks for any help!
Option Explicit
Sub priceComparison()
Const priceCompSheetName = "Price Comparison"
Const ourPriceCol = "B"
Const alltelPriceCol = "C"
Dim pcWS As Worksheet
Set pcWS = Worksheets(priceCompSheetName)
If pcWS.Range(ourPriceCol & "5").Value _
< pcWS.Range(alltelPriceCol & "5").Value Then
pcWS.Range(ourPriceCol & "5").Value _
= pcWS.Range(alltelPriceCol & "5").Value
End If
End Sub
|