I have the following code that moves the data of a master sheet to different sheets after grouping them with a unique code in the first column. I need to organize the output in a specific order by referring to another Excel. Someone can help.
Sub parse_data () Dim lr so long Dim ws as a worksheet Dim vcol, i as integer So long dim Dim myarr as variant Tenuous title as a string Dim titlerow as a whole vcol = 1 Set ws = Sheets ("Test Data1") lr = ws.Cells (ws.Rows.Count, vcol) .End (xlUp) .Row title = "A1: J1" titlerow = ws.Range (title) .Cells (1) .Row icol = ws.Columns.Count ws.Cells (1, icol) = "Unique" For i = 2 to lr In error resume next If ws.Cells (i, vcol) <> "" And Application.WorksheetFunction.Match (ws.Cells (i, vcol), ws.Columns (icol), 0) = 0 Then ws.Cells (ws.Rows.Count, icol) .End (xlUp) .Offset (1) = ws.Cells (i, vcol) It will end if Following myarr = Application.WorksheetFunction.Transpose (ws.Columns (icol) .SpecialCells (xlCellTypeConstants)) ws.Columns (icol) .Clear For i = 2 to UBound (myarr) ws.Range (title) .AutoFilter field: = vcol, Criteria1: = myarr (i) & "" If it is not evaluated ("= ISREF (& # 39;" & myarr (i) & "& # 39;! A1)") Then Sheets.Add (After: = Worksheets (Worksheets.Count)). Name = "BR" & myarr (i) & "" Plus Leaves (myarr (i) & ""). Move after: = Worksheets (Worksheets.Account) It will end if ws.Range ("A" & titlerow & ": A" & lr) .EntireRow.Copy Sheets (myarr (i) & "") .Range ("A1") Leaves (myarr (i) and ""). Columns.AutoFit Following ws.AutoFilterMode = False ws.Activate End Sub