Conditional Formatting, Indent Text in Cell

Thanks for the quick response. This looks close, but I'm getting an error on the If Intersect Line "Error '424' Object Required".

Any thoughts?

I wish I was more fluent in VBA.

Making progress. I figured out I was putting your code in the wrong place. I had it in the module instead of sheet1 code. So now it behaves the same in both sheets. I get an error "Run-time error '1004': Unable to get the Search property of the Worksheet Function class" when I enter a cell that doesn't have a "." But it does work correctly when there is a "." in the text.

Also one thing I failed to mention would be to also indent Column C if Column A is indented. Hopefully that doesn't add too much complexity.

Thanks again for your help, this will save me a ton of time.

I started over from scratch on a new worksheet and now it works great.

I was playing around with the code you gave me and quite possibly screwed something up. (Commented that section out or something). Either way I'm sure it was user error.

Again lots of thanks for your help.

OK I marked this as solved, but I have one last question. Is it possible to put this code in a module instead of a Sheet Code? If I copy your code into a module, remove the private, and add a name it's not showing up in the macro list to run.

To explain how I'm using this a little more. I'm exporting from a website, so I need to be able to apply the indent after the data is already in the sheet, not as I'm typing it in. So basically a macro I can run on any sheet that already has data in it.

Just for kicks and giggles, there's actually a non-VBA way to accomplish this too. The secret is to create a "add spaces to the beginning of the cell" number format.

In this case, since your condition is to identify cells that have a ".", use the SEARCH function in your Format Rule. Since SEARCH returns an error if it doesn't find the string, you would be looking for cells that don't return an error when searching for "."

So, your Format Rule would be for example: =NOT(ISERROR(SEARCH(".",A1)))

When you meet the condition, use this Custom Number Format: " "@ (use the number of spaces between the quotes to your preference)

I use this to represent Master offices and their sub-office locations nested beneath and it works beautifully.

thanks for sharing. i was looking for this.

if i want to indent cells contains numbers using the condiitional formart. how to acheive that?