Merhabalar
Aşağıdaki vlookup formulünün macro uygulamasını forumdan buldum.
Kendi dosyama adapte ettim, tşk ederim.Aşağıdaki kod ile aynı dosya içinde dat sayfasından güzel bir şekilde verileri alabiliyorum.
Ama kapalı bir dosya olduğu zaman aşağıdaki kodda nasıl bir değişiklik yapacağımı bilemedim.Dosya yolu : D:\UPK\Purchase Demand.xls in Dat sayfasıdır. Yardımcı olursanız çok sevineceğim.
Aşağıdaki vlookup formulünün macro uygulamasını forumdan buldum.
Kod:
=IF(ISERROR(VLOOKUP($C2;'D:\UPK\[Purchase Demand.xls]Dat'!$G:$AE;4;FALSE));"";(VLOOKUP($C2;'D:\UPK\[Purchase Demand.xls]Dat'!$G:$AE;4;FALSE)))Ama kapalı bir dosya olduğu zaman aşağıdaki kodda nasıl bir değişiklik yapacağımı bilemedim.Dosya yolu : D:\UPK\Purchase Demand.xls in Dat sayfasıdır. Yardımcı olursanız çok sevineceğim.
Kod:
Private Sub CommandButton4_Click()
Dim i As Integer, kb As Range
Sheets("BOM").Select
Application.ScreenUpdating = False
Sheet1.Range("P2:S65536").ClearContents
For i = 2 To 200
Set kb = Sheets("dat").Range("G2:G65536").Find(Range("C" & i).Value, , xlValues, xlWhole)
If Not kb Is Nothing Then
Cells(i, "p").Value = kb.Offset(0, 1).Value
Cells(i, "q").Value = kb.Offset(0, 3).Value
Cells(i, "r").Value = kb.Offset(0, 4).Value
Cells(i, "s").Value = kb.Offset(0, 5).Value
End If
Set kb = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı"
End Sub