Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
' T E S T I N G - B E G I N ' Creates a new worksheet for every Level 1 value in Column I ' Also assumes presence of header rows in rows 1-2 of your source spreadsheet. ' Dim CLL Dim WS With objExcel.ActiveSheet Set CLL = .Range("A3") If Intersect(.UsedRange, .Range("I3:I65536")) Is Nothing Then ' Dont do anything Else For Each CLL In Intersect(.UsedRange, .Range("I3:I65536")) Set WS = Nothing On Error Resume Next Set WS = Sheets(CLL.Text) On Error GoTo 0 If WS Is Nothing Then Set WS = Sheets.Add(After:=Sheets(Sheets.Count)) sWS.Rows(1).Copy WS.Rows(1) WS.Name = IBU & "Aisle " & CLL.Text End If CLL.EntireRow.Copy WS.Range("I65536").End(xlUp).Offset(1, 0).EntireRow Next 'cll End If End With ' T E S T I N G - E N D
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.