Thread: Loop ?
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
John[_122_] John[_122_] is offline
external usenet poster
 
Posts: 19
Default Loop ?

On Jun 20, 9:59 am, 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


this shoudl do it

for i = 5 to lastrow
if not pcws.cells(i,2).value = pcws.cells(i,3).value then
pcws.cells(i,2).value = pcws.cells(i,3).value
end if
next i