Add value to the content of a cell with Vlookup

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
 
D

Don Guillett Excel MVP

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

Several errors.
Fully specify the workbook with .xls
Use proper syntax for the vlookup
'=====
option explicit
Sub lookupmacro()' Modify to suit
Dim rng As Range
Dim i As Long
Set rng = Workbooks("20100801.xls").Sheets("Sheet9").Range("A6:U215")

For i = 2 To 5
Cells(i, "u") = Application.VLookup(Cells(i, "b"), rng, 19, 0)
Next i
End Sub
'======
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top