auto populate with date + 6 months

[flybynyte]

Hi Everyone,

I'm in desperate need for a unction/rule.

So, (this is embarrassing) a bunch of people are imputing dates in column G in a spread sheet; they are all different dates. These people need these dates plus 6 months to auto populate in column F.

For instance: column G is 04/30/18; column F needs to auto populate 10/30/2018 as soon as "enter" is hit.

I told them to type it in, or to use EDATE, i got blank stares.

Please help me.

Thank you,

Flybynyte
PS. Stay Sexy...

 

[flybynyte]

Get them a flat stone and a chisel ....problem solved.

You might be onto something.

 

[flybynyte]

The cells are formatted as dates.
I'll try again.

 

[Jonmo1]

Here is where it shows the bug:
Target.Offset(, 1).Value = DateAdd("M", 6, Target.Value)

What is the wording of the error?

My First guess is that the value you entered in column G is NOT a valid date, therefore not possible to ADD to it.

 

[Jonmo1]

In that case, I would suggest this amendment

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G:G")) Is Nothing Then
    If IsDate(Target) Then
        Target.Offset(, -1).Value = DateAdd("M", 6, Target.Value)
    Else
        MsgBox "Invalid Date, please enter in format mm/dd/yyyy"
    End If
End If
End Sub

 

[flybynyte]

Thank you, that worked.