loop through column, create worksheets based on data within

[wpryan]

I am working on a logfile analysis tool, which will separate some system settings based on the usage of the device which collects the logfiles. In this tool, I will get the .txt file, import into Excel (which I've already created) and then I want to take the information from one of the columns and create new worksheets, the names of which will be based the data found. Additionally, I want the individual rows associated with those to be cut and pasted to the new worksheets. There will be a limited number of new worksheets, because the device limits the usage to about 8 individual applications. The trick is, that the usage data within the logfile will be random. I will need the vba to loop through the column and find those associated rows. I never got the hang of loops in VBA... Any help is appreciated

 

[wpryan]

i uploaded an example of what I'm looking for, located here: https://www.dropbox.com/s/m1ove28f0ugk399/Flap Cut Log Tool_Params.xlsm. Look at the worksheets LasikZ_Axis and Pockets. I took the data from column O, did "text to column", and then cut and pasted the parameters (starting from O1).

 

[wpryan]

I worked it out - added this code to yours.

    Columns("O:O").Select    Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _        TrailingMinusNumbers:=True    wN.UsedRange.Columns.AutoFit    wT.Rows(2).Delete

Thanks again!

 

[hiker95]

wpryan,

I am glad that you worked it out.