Replies

oh sorry. good question. That is part of the problem, as the new wave comes in it replaces the old wave. So for wave 2, the summary on C3 will only show wave2 data, wave 1 goes away. thanks

Thank you so much! This is perfecto

thanks for the info. Yes, please post your code and i will work with it and send u what i find out. thanks

Ok, now i understand about the .rng.

I have 4 charts running across my worksheet. The range encompasses A8:A67 and the series is B3:B62, the next chart’s range is I3:I62 and the series is E3:E62…
Range Series
A8:A67 B3:B62 chart1
I8:I67 E3:E62 chart2
Q8:Q67 H3:H62 chart3
Y8:Y67 K3:K62 chart4

Then another 4 charts starts at row 89
A89:A148 B3:B62 chart1
I89:I148 E3:E62 chart2
Q89:Q148 H3:H62 chart3
Y89:Y148 K3:K62 chart4

Then another 4 charts start at row 169 to 228

A169:A228 B3:B62 chart1
I169:I228 E3:E62 chart2
Q169:Q228 H3:H62 chart3
Y169:Y228 K3:K62 chart4
and so on down to row 4326

There is only one worksheet. Is there anyway to iterate thru each of the charts and make the bar that has “TOTAL” in it’s range black. I need a macro because every month this data will change and i don’t want to have to manually go in and make the approporiate bar black. Thank you.

Ok, thank you for the explanation.

I can’t seem to make it work when the range is linked to data on another sheet or in another workbook. What am I missing?

WOWIE! this is so great. Why does it blacken the bar if it’s total usa or it just TOTAL? I can’t figure that part out in the code. thanks you soooo much!

Thanks u soooo much! I can use this for a lot of things. I really appreciate it.

Workbooks.Open Filename:=oldname & “data.xls”

‘code that adds 10 worksheets
‘code that does calculations and makes graphs on these worksheets

ActiveWorkbook.SaveAs Filename:=NewFile & “data.xls”
ActiveWorkbook.Close SaveChanges:=True

The problems is that the NewFiledata.xls has the macros in it from oldfiledata.xls. When the user opens the file they get a message if they want to enable the macros. I needs to make this message stop appearing. For now I have been deleting the macros after i make newfiledata.xls but would like to automate this part. thanks

thank you so much.

It is making all the rows proper, so should i move that statement up into the IF loop? Also, i need to underline the cell that used to have the Q. in it. I tried activecell.activate, and then underlined but it only did it for the first one. Thank you for your help

ok, thank you so much

I have the same error 0x80004005. I tried compacting and repairing but it didn’t help. WHen i download from the web it give me a clipart organizer error. I have win2000 and office xp. In my wordxp options it is blank in the filepath for clipart in the options section.

I can’t insert clipart in ppt either.

can you think of any workaround i can use? i’m trying to update the links to excel from a ppt file. I do the file on my C: drive and then have to move it to a network drive later on. There are 50 links so i don’t want to change them manually. They are supposed to update “automatically” but they don’t so a macro would do the trick. This macro works if i change the filename to something else but it won’t change the C: to M:. thanks for your help

.SourceFullName = FinalString
is highlighted when error occurs. When i hoover over the words i can see the replacement has taken place. for some reason it doesn’t like the .linkname.sourceFullName part

I am checking the range b1:b500, d1:d500, f1:f500… all the way through column z (every other column). Each of the cells in these columns may or may not have a letter in it (just 1 letter). If the letter is lowercase i need the number to the right of it to be italic. ie: b3 has an “h” in it. I need a3’s value to be italicized. If b7 has an “H” i need a7’s value to be bolded. THank you so much for the help.

thank you very much. i wonder if you could look at this post and see if you see anything obvious i’m doing wrong. thanks

post # 129790