Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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