Help with code for a command button that changes strikethrough cells green

[SerraAngel]

Hi,

This code works but I want it to be slightly different.

Here is what I want the code to do:
When I hit the command button, I want any cells from K5:Y501 that have a strikethrough to turn green.

The code below does this but by selecting all of the cells in the range. How can I get the same outcome without the range being selected?

Also I would like there to be no color when the strikethrough is gone

I would like this to override conditional formatting if possible.

Here is the code I have:

Please Login or Register  to view this content.

Thanks!

[HaHoBe]

Hi, SerraAngel,

I would like this to override conditional formatting if possible.

You would need to inform us if there is any CF involved.

Please Login or Register  to view this content.

Ciao,
Holger

[BS Singh]

Hi SerraAngel,

Try this:

Please Login or Register  to view this content.

Regards,

[SerraAngel]

Wow thanks for the quick response HaHoBe....that code worked!

As far as the conditional formatting:

I have written a formula so if I type a value in I2 then anything that matches that value in cells K5:y501 turn red. However, I do not want them to turn red if I have already used a strikethrough

Here is the formula I used for the conditional formatting:

=AND(K5<>"", NOT(ISERROR(MATCH(K5,$I$2,0))))

[HaHoBe]

Hi, SerraAngel,

I would rethink the approach of using CF and a CommandbUtton and use the Change-Event for the range behidn the sheet and integrate the CF into the code as well. Are there formulas in the cells or values only which are entered directly?

Ciao,
Holger

[SerraAngel]

Sales Follow up tasks.xlsm

Here is the spreadsheet I am working on. You can enter a date in column J and columns K:Y will auto fill with dates according to number of days after initial contact (row 3.) There is a formula located in cells K5:Y501 for this.

I wanted to be able to see certain dates so if you type a date into cell I2 it will turn any matching cells from K5:Y501 red using conditional formatting.

I wanted to be able to signify when I have completed a task so I was planning on putting a strikethrough on a date (by hitting ctrl+5) and then hit the command button to turn them green.

However when I type a date in I2 it will turn red even when there is a strikethrough signifying completion.

If you know a better way that would be greatly appreciated

Thanks

[HaHoBe]

Hi, SerraAngel,

there are 2 caveats which sort of make the problem a bit harder to solve. You have used CF for one condition, and AFAIK you may use CF to strike through but not to reckognize if a cell font is like that. On the other hand you may do a lot of things directly with VBA and events behind the sheet but the changes to the font or the colours inside a cell won´t fire an event in Excel VBA directly.

So you should either consider to write a function to check the contents and use this in the CF as an additional rule or use events but restrict these to make an enter for each cell after any cell font change in order to fire the event in order to work only with one event.

Ciao,
Holger