Avatar billede JBK007 Novice
10. juli 2017 - 15:18 Der er 1 kommentar og
1 løsning

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
Avatar billede Jan Hansen Ekspert
10. juli 2017 - 17:45 #1
erstat
Sheet1.Cells(Output_Row, Output_Clm) = "=VLOOKUP(RC[-20],[testbog.xlsx]Sheet1!C1:C2,2,FALSE)"
med:
Sheet1.Cells(Output_Row, Output_Clm) =Application.WorksheetFunction.VLookup _
(RC[-20],[testbog.xlsx]Sheet1!C1:C2,2,FALSE)

ej testet
Avatar billede JBK007 Novice
11. juli 2017 - 19:57 #2
Tak, jeg prøver og ser om jeg ikke kan komme i mål med det!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester