Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Sub FindAndOffset() 'This routine should find a specific value within a column and copy a corresponding value from another column in the same row. 'E.g. If a fare is "Fixed", rather than calculated, copy the fare from the "Client Fare" Column to the "Amended Fare" Column. Dim rFixed As Range ' Set Range to find fixed fares in Column B (Column 2) Set rFixed = Range(Cells(2, 2), Cells(1, 2).End(xlDown)) Debug.Print rFixed.Address 'If FixedFare = "F", then copy the Client Fare (Column D - Column 4) to (Column G - Column 7) rFixed.Find(What:="F").Offset(0, 5) = rFixed.Find(What:="F").Offset(0, 2) 'Next Find????? 'I am trying to do this without using a loop. Is this possible End Sub