Excel VBA vlookup formülünde hücre değerini kullanma

Question

Etkin sayfamdaki hücre değeriyle aynı ada sahip bir çalışma sayfasına vlookup oluşturmaya çalışıyorum.

Ben 'Çalışma zamanı hatası '1004 olsun, benim vlookup formülünde 'str' kullanabilirsiniz aşağıdaki düşünceyi yarattı fakat': Uygulama tanımlı veya nesne tanımlı hata'

Sub copy() 

    Dim LastRow As Long 
    Dim str As String 

    str = Cells(1, 5).Value 

    With Sheets("Overview") 
     LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 

     With .Range("E2:E" & LastRow) 
      .Formula = "=VLOOKUP(B2, & str &!B:F,5,FALSE)" 
     End With 

    End With 

End Sub 

Can Herkes yanlış yaptığımı görüyor mu?

Answer 1

Sen VBA'DA str tanımlanmış ancak tırnak kapatma kapatmadan formülünde kendisine intikal ettik, şunu deneyin:

Sub copy() 

Dim LastRow As Long 
Dim str As String 

str = Cells(1, 5).Value 

With Sheets("Overview") 
    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 

    With .Range("E2:E" & LastRow) 
     .Formula = "=VLOOKUP(B2," & str & "!B:F,5,FALSE)" 
    End With 

End With 

End Sub