Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great, but when
trying the code for changing 30 buttons, I get a "compile Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

You're missing a " after A31.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Jonsson" wrote in message
...
Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great,
but when
trying the code for changing 30 buttons, I get a "compile
Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas

Its worse than that
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Should be

If not Intersect(Target, Range("A2:A31")) is Nothing _
And Target.Value < "" Then

but I posted a tested version in the original thread. (tested against my
assumptions as stated).


--
Regards,
Tom Ogilvy


"Chip Pearson" wrote in message
...
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

You're missing a " after A31.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Jonsson" wrote in message
...
Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great,
but when
trying the code for changing 30 buttons, I get a "compile
Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas

Thanks, now it's working great!
What if I have the buttons in a range B9:F26. Obviosly the code wont work,
I can see that.
What has to be changed and how?

//Thomas
"Tom Ogilvy" skrev i meddelandet
...
Its worse than that
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Should be

If not Intersect(Target, Range("A2:A31")) is Nothing _
And Target.Value < "" Then

but I posted a tested version in the original thread. (tested against my
assumptions as stated).


--
Regards,
Tom Ogilvy


"Chip Pearson" wrote in message
...
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

You're missing a " after A31.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Jonsson" wrote in message
...
Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great,
but when
trying the code for changing 30 buttons, I get a "compile
Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas

B9:F26 is only half the story. Where does the button over B9 get its value
from (to use as the caption). How about the buttons over B10, Button over
F26?

--
Regards,
Tom Ogilvy

"Jonsson" wrote in message
...
Thanks, now it's working great!
What if I have the buttons in a range B9:F26. Obviosly the code wont
work,
I can see that.
What has to be changed and how?

//Thomas
"Tom Ogilvy" skrev i meddelandet
...
Its worse than that
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Should be

If not Intersect(Target, Range("A2:A31")) is Nothing _
And Target.Value < "" Then

but I posted a tested version in the original thread. (tested against
my
assumptions as stated).


--
Regards,
Tom Ogilvy


"Chip Pearson" wrote in message
...
If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

You're missing a " after A31.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Jonsson" wrote in message
...
Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great,
but when
trying the code for changing 30 buttons, I get a "compile
Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas