N
Nicawette
Hi I have this piece of code add to the content of the cell selected a
figure that I will find with a vlookup function into another
spreadsheet (book1), but it cause an error?
can you help?
Sub update_figures()
Dim Q1_bill As Integer
Dim Total As Integer
Dim rng As Range
Set rng = Workbooks("Book1").Sheets("Pivot").Range("A6:U215")
For i = 2 To 200
Q1_bill = ActiveSheet.Range("u" & i).Value
Total = Q1_bill + Application.VLookup("b" & i, rng, 19, False)
ActiveSheet.Range("u" & i).Select = Total
Next i
End Sub
figure that I will find with a vlookup function into another
spreadsheet (book1), but it cause an error?
can you help?
Sub update_figures()
Dim Q1_bill As Integer
Dim Total As Integer
Dim rng As Range
Set rng = Workbooks("Book1").Sheets("Pivot").Range("A6:U215")
For i = 2 To 200
Q1_bill = ActiveSheet.Range("u" & i).Value
Total = Q1_bill + Application.VLookup("b" & i, rng, 19, False)
ActiveSheet.Range("u" & i).Select = Total
Next i
End Sub