extract last 6 characters from a string in IF Then statement

[MikeWaring]

I wonder if anyone can help -

I've put together a bit of code that does two actions, but I'm trying to add another to the IF Then code, but this bit keeps erroring out. I'm a novice with VBA so I'm not sure where I've gone wrong...

Here's the code that works:

Please Login or Register  to view this content.

What I also want it to do is to return the last 6 characters from col C, but only in rows where there's data in that column.

This is the code I added underneath the last If statement

Please Login or Register  to view this content.

It doesn't error out when I save the VBA, but when I go to run the code, it gives me a runtime error code 424 "Object required" and the debug button then highlights my last line of code

I suspect it might be something simple, but I don't have the experience to know what.

Or could it be because I'm doing a type of circular reference?

What am I doing wrong??

I look forward to any help with the correct line of code to add.

Kindest regards
Mike

[6StringJazzer]

Please Login or Register  to view this content.

You do not have a variable "cell" declared. You probably intend for this to be

Please Login or Register  to view this content.

It would be been quicker to diagnose with Option Explicit, and you have seen an error at compile time. I strongly recommend to everyone that they declare variables. Doing so prevents a lot of bugs and runtime errors.

[MikeWaring]

Hi Jeff, thanks for your quick response. that works fine. If I wanted to enter the previous working day's date instead, what coding would I need?

Unfortunately I'm a novice with VBA so I'm unfamiliar with what you are recommending.

I have a book on VBA but as I run the family business I don't have the time to sit down for long spells in the office to study and practice...

Kind regards

[MikeWaring]

Hi Jeff, DOH! - I just realised my original thread was to do with removing certain letters.

In that same bit of coding that i originally posted there's a line that enters today's date - I need to change that to enter yesterday's date - should I open a new thread?

Kind regards
Mike

[nigelog]

Try
If .Value <> "" Then .Offset(, -2) = .Offset(, -2) & "=Today()-1"

[MikeWaring]

Hi Nigelog, thanks for the response. Works perfectly, thanks.
I've got some more coding that I need help correcting, but I'll close this thread and start a new one, as strictly speaking its a different topic.
Kindest regards
Mike