@ChicagoLane
To modify the VBA code to move rows to individual tables based on the name selected in column B, you can make the following changes. I'll assume that each person has a separate worksheet and that the worksheet names match the names in the "Owned By" list:
Vba Code is untested, please backup your file before you use it.
Sub MoveToIndividualTable()
Dim wsSearch As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
Dim ownerName As String
Dim destTableName As String
Set wsSearch = Worksheets("CR-LIJ")
Set wsDest = Nothing ' Initialize the destination worksheet
' Turn off alerts to avoid prompts when deleting rows
Application.DisplayAlerts = False
' Loop through each row in column B
For Each cell In wsSearch.Range("B2:B" & wsSearch.Cells(wsSearch.Rows.Count, "B").End(xlUp).Row)
If cell.Value <> "" Then ' Check if the cell is not empty
ownerName = cell.Value
destTableName = "Table" & ownerName ' Adjust the table names as needed
' Check if the destination worksheet exists
On Error Resume Next
Set wsDest = Worksheets(destTableName)
On Error GoTo 0
If wsDest Is Nothing Then ' If the destination worksheet doesn't exist, create it
Set wsDest = Sheets.Add(After:=Sheets(Sheets.Count))
wsDest.Name = destTableName
' Add code here to set up the structure of the new worksheet, e.g., headers, formatting, etc.
End If
' Find the last row in the destination worksheet
lastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
' Copy the row to the destination worksheet
wsSearch.Cells(cell.Row, "A").Resize(1, 38).Copy
wsDest.Cells(lastRow, "A").PasteSpecial Paste:=xlPasteValues
' Clear the row in the source worksheet
wsSearch.Rows(cell.Row).Clear
' If needed, add code here to update the destination table structure
End If
Next cell
' Reset alerts
Application.DisplayAlerts = True
End Sub
This modified code assumes that each person's worksheet is named "Table" followed by their name in the "Owned By" list. For example, if a person's name is "John," their worksheet should be named "TableJohn."
Before using this code, make sure to adjust the destination table names and consider any specific setup required for each person's worksheet. Additionally, you may need to modify the code to match the actual structure of your tables and worksheets. The text, steps and functions were created with the help of AI.
My answers are voluntary and without guarantee!
Hope this will help you.
Was the answer useful? Mark as best response and Like it!
This will help all forum participants.
