VBA to delete cells in a row

[Coldsteel]

Hello all,

I wrote this script but I am having problems with the code working correctly, what I am trying to due is if you put a x is the cell range of R40 to V40, it will delete the rest of the cells so that there is only one x in the row.
Any help will be greatly appreciated.

Thanks,

Please Login or Register  to view this content.

[xlbiznes]

try this,

Please Login or Register  to view this content.

[Coldsteel]

Thanks for the help

I have tried the code, but puts my excel sheet into on infinite loop is there a way to have run it once

Thanks

[xlbiznes]

can you share your code ?

[Coldsteel]

Thanks

Please Login or Register  to view this content.

[xlbiznes]

can you post the values as this code runs without any issue on my side

[xlbiznes]

opps,

you have posted this code in the worksheet.change event.

Why do you want to do this as it will keep running whenever you change any cells contents.

[xlbiznes]

why don't you use it in the selection change event.

Please Login or Register  to view this content.

[Coldsteel]

Yeah, no problem

I put the code in the sheet, and I typed in a "x" in the range and the excel sheet displays my "x" but then it locks up and does let me type anything else.

Thanks

[xlbiznes]

did you remove this code :

Please Login or Register  to view this content.

this should be

Please Login or Register  to view this content.

[Coldsteel]

I have updated the code to

Please Login or Register  to view this content.

Did I paste the code wrong? sorry I am still learning vba

[Coldsteel]

I tried this, but the code does not run, am I on the right track??

Please Login or Register  to view this content.

Thanks

[xlbiznes]

Actually the initial code was assigned to a button , so when you click that it will clear all cells that do not have the value "X" in the range.

Out on break, will look into this when i get back.

[Trebor76]

Hi Coldsteel,

Let us know how this goes:

Please Login or Register  to view this content.

HTH

Robert

[Coldsteel]

I have been testing the code all day, this is work great!!!

thank you all for the help

[Trebor76]

Thanks for letting us know and you're welcome