Split data into separate file and save according to filename

[pesteness]

Hi ExcelFox

i have provided a sample files.

i want to seperate the file per part number and save as filename inside the File.xlsx but the file should be on a csv format (SensorExhaustOxygenPFOS730.csv), i hope somebody can help me on this,

the file on "SensorExhaustOxygenPFOS730.xlsx" should be the result, but on a csv format



Thanks,
Pesteness

cross post section:
http://www.ozgrid.com/forum/showthre...504#post623504

[Admin]

Hi Pesteness,

Welcome to ExcelFox!!

Download the workbook from here:

http://www.excelfox.com/forum/f12/sp...les-33/#post81

[pesteness]

Hi Pesteness,

Welcome to ExcelFox!!

Download the workbook from here:

http://www.excelfox.com/forum/f12/sp...les-33/#post81

Hi Admin,

Thanks for the reply, however the title should not be replaced with title1,2,3 etc. as well as the picture and part number , i need the data on it, look at the "SensorExhaustOxygenPFOS730.xlsx" the output should supposed to be like that, i have provided a filename that you can use on the filename column, the program will split the data for part number.

example part number:PFOS730
the program will filter all the "PFOS730" in workbook, as you can see in the file.xlsx there so many "PFOS730" i want to filter all and split to a new workbook

l
Again, Thank you.

[Admin]

Hi

Sorry for the confusion. That's only dummy data. You have to replace those data with your actual data.

[pesteness]

Hi

Sorry for the confusion. That's only dummy data. You have to replace those data with your actual data.

its okay,

yes, i already did that but still the macro just grab a single data, for example this part number "PFOS786" has some duplicate in the my DATA but it has different title, what i wanted to happen is gather all the data within this part number "PFOS786" in one workbook, like below sample, and use the file name in the filename section so for this part number the file name should be "SensorExhaustOxygenPFOS786"


Part # title etc etc etc....
PFOS786 Alfa Romeo 75 Twin Spark 4 Cyl 2.0L Exhaust Oxygen Sensor
PFOS786 Alfa Romeo 75 V6 Cyl 3.0L Exhaust Oxygen Sensor
PFOS786 Alfa Romeo 164 V6 Cyl 3.0L Exhaust Oxygen Sensor
PFOS786 Audi 80 Quattro 4 Cyl 1.8L Exhaust Oxygen Sensor
PFOS786 Audi 90 Sport Quattro 5 Cyl 2.3L Exhaust Oxygen Sensor
PFOS786 Audi 200 Turbo 5 Cyl 2.2L Exhaust Oxygen Sensor
PFOS786 Audi Quattro V8 Cyl 3.6L Exhaust Oxygen Sensor
PFOS786 Audi S4 Turbo 5 Cyl 2.2L Exhaust Oxygen Sensor
PFOS786 Jaguar Sovereign 6 Cyl 3.6L Exhaust Oxygen Sensor
PFOS786 Jaguar XJS Sport 6 Cyl 4.0L Exhaust Oxygen Sensor
PFOS786 Jaguar XJS V12 Cyl 6.0L Exhaust Oxygen Sensor
PFOS786 Saab 9000 4 Cyl 2.0L Exhaust Oxygen Sensor
PFOS786 Volvo 240 4 Cyl Exhaust Oxygen Sensor
PFOS786 Volvo 740 Turbo 4 Cyl Exhaust Oxygen Sensor
PFOS786 Volvo 740 4 Cyl Exhaust Oxygen Sensor
PFOS786 Volvo 760 Turbo 4 Cyl Exhaust Oxygen Sensor

Thanks and God Bless.

[Admin]

Hi

It's working fine here. I got 16 rows of data for SensorExhaustOxygenPFOS786.CSV.

To fix the file name

replace

wbkNewFile.SaveAs strOutPutFolder & varUniques(lngLoop) & strFileFormat, lngFileFormatNum

with

wbkNewFile.SaveAs strOutPutFolder & rngToCopy.Cells(2, 1)  & strFileFormat, lngFileFormatNum

Post back if any help needed.

HTH

[pesteness]

yea! its now working thanks for your help, the only problem now is the filename, i already changed the code from that, but nothings changed and the macro split only single data.


THANKS

[Admin]

Sorry, it should be

wbkNewFile.SaveAs strOutPutFolder & wbkNewFile.Worksheets(1).Range("a2") & strFileFormat, lngFileFormatNum

[pesteness]

Sorry, it should be

wbkNewFile.SaveAs strOutPutFolder & wbkNewFile.Worksheets(1).Range("a2") & strFileFormat, lngFileFormatNum

wow, awesome i never knew that someone can answer this, you're a beast!
I'm starting to like this website, thank you so much for your help.
i will post something again, hope you can help me again, just a very simple code :o

[pesteness]

Hi Admin,

about the "split data program" i noticed that the "column A" (file name) is also in the output of the program, i just want to removed the column A (file name) on the output and the part number should start in that column, that file name is just for the files name. thanks god bless