Implementation guide for creating a centralized, zero-duplicate transfer process using SharePoint Lists, MS Forms, Excel VBA, and Power Automate.
Create a Blank List on SharePoint named Associate Transfers with these columns:
| Column Name | Type | Details |
|---|---|---|
| Title | Single line of text | Rename to Associate Name |
| Old Department | Single line of text | Current department info |
| New Department | Single line of text | Target position info |
| Meets HR Criteria | Single line of text | YES / NO |
| Supervisor Email | Single line of text / Person | Recipient email address |
| Status | Choice | Pending / Completed |
| Form Link | Hyperlink | Unique generated MS Form URL |
SharePoint Record ID.[RECORD_ID] in the SharePoint Record ID answer field, then copy the generated link.Add this snippet to your macro to format data into a Table and save it directly to your synced SharePoint folder:
Sub ExportToSharePointFolder()
Dim wb As Workbook, ws As Worksheet
Dim savePath As String, fileName As String
Set wb = ActiveWorkbook
Set ws = wb.Sheets("TransferSheet")
' 1. Ensure Range is a Named Table (Required for Power Automate)
On Error Resume Next
ws.ListObjects.Add(xlSrcRange, ws.UsedRange, , xlYes).Name = "TransferData"
On Error GoTo 0
' 2. Path to Local Synced SharePoint Folder
savePath = "C:\Users\" & Environ("USERNAME") & "\YourCompany\SharePointSite - Documents\"
fileName = "TransferData_" & Format(Now(), "YYYYMMDD_HHMMSS") & ".xlsx"
' 3. Save copy to cloud
wb.SaveCopyAs savePath & fileName
MsgBox "Data exported! Processing transfers...", vbInformation, "Success"
End Sub
TransferData).SharePoint Record ID form answer.