Copy/Paste to new worksheets based on identifier

[livingston1122]

Hi there!
I have a large worksheet that gets pulled monthly that I need to break out into separate worksheets and then further into individual client workbooks. I have created a macro that adds an identifier (Job#) in Column A. Ideally, this code would blast each row associated with an individual Job# into a separate tab, labeled as that Job#. The range needs to be col A:X, however each column within that range, does not necessarily have a value, nevertheless, all columns must export.

If this could go a step further and save all job#'s associated with a specific client to a separate workbook, that would be ideal. I can add a column A or B to the sheet to identify the client, as necessary.

Any help would be wonderful! I've gotten close but my range stops at column D and my sheet names are random ( some Sheet#, some Job#).
THANK YOU!!

 

[L. Howard]

Hi there!
I have a large worksheet that gets pulled monthly that I need to break out into separate worksheets and then further into individual client workbooks. I have created a macro that adds an identifier (Job#) in Column A. Ideally, this code would blast each row associated with an individual Job# into a separate tab, labeled as that Job#. The range needs to be col A:X, however each column within that range, does not necessarily have a value, nevertheless, all columns must export.

Hi livingston1122,

Try this modified code from a google search.
The code line in blue will copy to the new sheet on the same row as the Job# is on sheet1.

Howard

Option Explicit

Sub Col_A_SheetsWithNames()

Dim sheetCount As Long
Dim sheetName As String
Dim workbookCount As Long, i As Long

With ActiveWorkbook
    sheetCount = Sheets(1).Range("A2").End(xlDown).Row
  For i = 2 To sheetCount Step 1
    sheetName = .Sheets(1).Range("A" & i).Value
    workbookCount = .Worksheets.Count
     .Sheets.Add After:=Sheets(workbookCount)
     .Sheets(i).Name = sheetName
    '[COLOR="#0000FF"].Sheets(i).Range("A" & i, "X" & i).Value = .Sheets(1).Range("A" & i, "X" & i).Value[/COLOR]    
     .Sheets(i).Range("A" & Rows.Count).End(xlUp)(2).Resize(1, 24).Value _
       = .Sheets(1).Range("A" & i).Resize(1, 24).Value
  Next 'i
End With

End Sub