Here you go ..
Sub Transfer_data()
Dim lastRow As Long, WsEntry As Worksheet, WsDb As Worksheet
Dim Cus_Found As Range
Set WsEntry = Sheets("entryform")
Set WsDb = Sheets("database")
Set Cus_Found = WsDb.Range("B:B").Find(WsEntry.Range("customerID").Value) ' to check customer id already...
@Chihiro I tried to use above code but failed to execute it.
Getting error that, file not available in sharepoint folder.
Could you please share the excel with this or working code to download file from sharepoint.
To download file from Sharepoint,
Please have a look here in the thread: https://chandoo.org/forum/threads/vba-code-to-download-files-from-sharepoint-to-local-network-drive.25320/
Code:http://ckannan.blogspot.com/2012/09/vba-download-files-from-sharepoint.html
You need to have a practice of using Option Explicit at beginning of the code.
Kindly check out here for further inputs:http://www.homeandlearn.org/option_explicit.html