Looping through Columns then Rows

[JCP]

Hi Guys - I'm struggling with this. I have a spreadsheet (CSV file)
generated from a VBA module in MSP which extracts specific data. The
output file that I'm opening in Excel depends upon the MSP project that
I run the other code against so, I don't know how many colunms or rows
will be in use. What I need to do is for each row used, loop through
each column used in that row and concatenate required cells values into
a temporary string that I can output to a file. Then clear this string
and move on to the next row. I can't seem to figure out the correct
sequence of the counters and where to clear dowm the temp string value.

Any ideas gratefully received

Best Rgds

[Leith Ross]

Hello JCP,

Here is macro example you can use or modify to copy the CSV data into a text file.

Please Login or Register  to view this content.

[John Paul]

Hi Leith

Thanks so much for your reply. Sorry for being slightly obtuse, but if I
wanted to test the content of the cells for mid(<cell>,1)="c" where
would I insert this ?- tried a couple of places including here...

For J = 1 To LastCol
If Mid(ActiveSheet.Cells(I, J).Value, 1) = "c" Then
Data = Data & Cells(I, J).Value & ","
End if

But it fails on
Data = Left(Data, Len(Data) - 1)

with an Invalid proc call or arguement, thanks for your help

Best Rgds

*** Sent via Developersdex http://www.developersdex.com ***

[Leith Ross]

Hello John Paul,

From your last post it looks like you want to test the cell first before concatenating the contents. The function of Data = Left(Data, Len(Data) - 1 is to remove the final comma from the concatenated string before it is written into the file.

Here is code with the corrections ...

Please Login or Register  to view this content.

Sincerely,
Leith Ross