please help in grouping rows of excel throgh vb6.0 code

i have generated an excel sheet through vb 6.0
it contains four columns and 200 rows
now i want to group the rows on one clolumn which is fx currency
for eg
if 100 rows contains usd as fx curr
i have to group the rows
and if next 100 rows contains euro as fx curr
i have to group these rows
please help in this

Welcome to the Forums. :)

Moved from CodeBank.

You could sort:

VB Code:

Range("A1:D200").sort("A:A")

which will change the rows around, or to only display certain types at any one time just set a filter (select the first column, then Tools, Autofilter).

zaza

How is the currency identified? Where is the identification?

Hi,

I may have misunderstood earlier - do you have the currency typed in as text ("Euro", "£", "$") or is it the formatting of the cell?

if the latter, then you could do something like the following in a button:
Assuming your data is in cells B1:E200

VB Code:

for i = 1 to 200
 cells(i,1) = cells(i,2).numberformat
 next i
 
range("A1:E200").sort Key1:=range("A1:a200")

You could make column A hidden or thin or in white text, if you liked...

HTH

zaza