Macro that will show a userform when a date is entered in a row that fits within two dates in that same row

[benhop]

Hey,

I need to create a macro when a user enters a date in column 41, when that entered date is greater than the date in column 5 and less than the date in column 40 of the corresponding row. For example, if a user enters 3/21/09, greater than 3/10/09 located in column 5, and less than 3/30/09 located in column 40 of the same row. In turn, I'd like for this macro to show a userform when a date that meets these conditions is entered. Thanks.

Benhop

 

[jbeaucaire]

Put this macro into the sheet module where you want this to happen, rename the Userform1 reference to the name of your userform:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("AO:AO")) Is Nothing Then
        If Target.Value > Range("E" & Target.Row).Value And _
            Target.Value < Range("AN" & Target.Row).Value Then
            UserForm1.Show
        End If
    End If
End Sub

 

[benhop]

Thanks! You're awesome!