Vlookup i VBA
Hej,Jeg benytter et lookup i vba og vil gerne have den til at paste værdien, ikke formlen som den gør i øjeblikket.
Det aktuelle kode er: VLOOKUP(RC[-20],[testbog.xlsx]Sheet1!C1:C2,2,FALSE)"
og hele koden er nedenfor.
Nogen gode bud på hvordan jeg får den til udelukkende at paste værdien af vlookup'et`
Pft.
Sub FindPriceData()
Application.ScreenUpdating = False
On Error Resume Next
Dim Output_Row As Long
Dim Output_Clm As Long
Dim PriceBook As Workbook
Dim PriceBookName As String
PriceBookName = "testbog.xlsx"
Dim PriceBookNamePath As String
PriceBookNamePath = ThisWorkbook.Path & "\" & PriceBookName
If IsOpen(PriceBookName) = False Then Workbooks.Open (PriceBookNamePath)
Set PriceBook = Workbooks(PriceBookName)
LastRow = ActiveSheet.Cells(Rows.Count, 20).End(xlUp).Row
Table1 = Sheet1.Range("T15:T" & LastRow) 'Value to look for
'table2 = PriceBook.Range("A1:B30") 'Range to look in
Output_Row = Sheet1.Range("AN15").Row 'first output cell
Output_Clm = Sheet1.Range("AN15").Column
For Each cl In Table1
Sheet1.Cells(Output_Row, Output_Clm) = "=VLOOKUP(RC[-20],[testbog.xlsx]Sheet1!C1:C2,2,FALSE)"
Output_Row = Output_Row + 1
Next cl
Application.ScreenUpdating = True
End Sub