VBA Needed - Move Row From Table to Different Table based on Cell Value

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.