Soru Macro ile VLookUp çalışması

[Tores333]

merhaba,

VlookUp formulunu bir türlü kendi dosyamda kullanamadım. yardımınızı rica ederim.
örnek dosyalara uyarlama yaptı.

A dosyasındaki F sutunundaki değere göre G sutununa, B dosyasındaki belirledigim tablodaki eslestirmeyi getirmesini istiyorum.

bircok kombinasyon denedim ama formul kısmında hata yapıyorum. aşağıdaki verdigim kodu kullandım, Formul olan yere VlookUp sonucu gelmeli.

Sub Convert_Trade()

Dim Trades As Integer

Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False



For Trades = 1 To 4000
    Cells(Trades, 7).Select
    If Selection.Offset(0, -1).Value = "" Then
        Selection.Value = ""
        
    ElseIf Selection.Offset(0, -1).Value = "UNLOC" Then
        Selection.Value = "Trade"
        
    ElseIf Selection.Offset(0, -1).Value = "POD" Then
        Selection.Value = "Area"
        
    Else
        Selection.Value = Formul
    
'kullanılan formul =VLOOKUP(F1,'[B.xlsx]DATA'!$A$1:$B$790,2,FALSE)


    End If
Next Trades


Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False

End Sub

Tesekkurler

 

[Muzaffer Ali]

Merhaba.

Sub Convert_Trade()
    Dim Bak As Integer
    Application.ScreenUpdating = False
    For Bak = 1 To Cells(Rows.Count, "F").End(xlUp).Row
        Select Case Cells(Bak, "F").Value
            Case ""
                Cells(Bak, "G").Value = ""
            Case "UNLOC"
                Cells(Bak, "G") = "Trade"
            Case "POD"
                Cells(Bak, "G") = "Area"
            Case Else
                Cells(Bak, "G") = WorksheetFunction.VLookup(Cells(Bak, "F"), Workbooks("B.xlsx").Worksheets("DATA").Range("A:B"), 2, 0)
        End Select
    Next
    Application.ScreenUpdating = True
End Sub