We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
' 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.
|78 files, need to delete row 2 in every file||3||31|
|Reference between list of ingredients and mixtures in Excel||4||31|
|Excel Macro: Correct Macro that creates tabs for each "AccountSku"||4||50|
|Excel 2016 error engine does not recognize 'field name' as a valid field name or expression||8||22|
Join the community of 500,000 technology professionals and ask your questions.