L
Les Stout
Hi all, could you please advise me how to change the script below. The
script inserts the Vlookup formulas and i was wondering if it is
possible just to put in the values and not the formula. If this is
possible, could you show me how to change the script.
Sub Lookups()
Dim myLookUpRng As Range
Application.StatusBar = "Your prices are being compared to the
supplier prices"
Range("D4").Select
With Workbooks(SuppFileNameC).Worksheets(SheetName)
Set myLookUpRng = .Range("D:N")
End With
Do Until ActiveCell = ""
ActiveCell.Offset(0, 8).FormulaR1C1 _
= "=VLOOKUP(RC[-8]," _
& myLookUpRng.Address(external:=True,
ReferenceStyle:=xlR1C1) _
& ",9,0)"
ActiveCell.Offset(0, 9).FormulaR1C1 _
= "=VLOOKUP(RC[-9]," _
& myLookUpRng.Address(external:=True,
ReferenceStyle:=xlR1C1) _
& ",10,0)"
ActiveCell.Offset(1, 0).Select
Loop
Range("A4").Select
' InsPriceDiff
End Sub
Thanks in advance.
best regards,
Les Stout
*** Sent via Developersdex http://www.developersdex.com ***
script inserts the Vlookup formulas and i was wondering if it is
possible just to put in the values and not the formula. If this is
possible, could you show me how to change the script.
Sub Lookups()
Dim myLookUpRng As Range
Application.StatusBar = "Your prices are being compared to the
supplier prices"
Range("D4").Select
With Workbooks(SuppFileNameC).Worksheets(SheetName)
Set myLookUpRng = .Range("D:N")
End With
Do Until ActiveCell = ""
ActiveCell.Offset(0, 8).FormulaR1C1 _
= "=VLOOKUP(RC[-8]," _
& myLookUpRng.Address(external:=True,
ReferenceStyle:=xlR1C1) _
& ",9,0)"
ActiveCell.Offset(0, 9).FormulaR1C1 _
= "=VLOOKUP(RC[-9]," _
& myLookUpRng.Address(external:=True,
ReferenceStyle:=xlR1C1) _
& ",10,0)"
ActiveCell.Offset(1, 0).Select
Loop
Range("A4").Select
' InsPriceDiff
End Sub
Thanks in advance.
best regards,
Les Stout
*** Sent via Developersdex http://www.developersdex.com ***