Need help to increment date column with macro (repost)

[dwest100]

I have a column of dates (column d). New dates are added and deleted regularly.

I need to be able to increment all the dates in the column by a specific number of days, forward or backward, using a macro.

The macro needs to pop open a dialog window to prompt me for the number of days I wish to increment the dates in the column, and also whether to index forward or backward depending on which radio button is selected (forward or backward). Default would be forward.

How can I do this?

Any help would be greatly appreciated!

 

[dwest100]

I'm also running this macro off of the menu OnAction:

Sub ShowForm()
frmAdjustSchedule.Show
End Sub

Could that be the cause?

 

[P Sitaram]

Try Unloading the form when you are done, instead of hiding it.

 

[dwest100]

Hi psitaram,
I did that and I get the same result.

Any ideas?

Private Sub CommandButton1_Click()
Dim DateCell As Range
If frmAdjustSchedule.OptionButton1.Value = False And frmAdjustSchedule.OptionButton2.Value = False Then
MsgBox "Please select forward or backward."
Exit Sub
ElseIf Not IsNumeric(frmAdjustSchedule.TextBox1.Value) Then
MsgBox "Please enter the number of days to adjust the schedule."
Exit Sub
End If

myIncr = Int(frmAdjustSchedule.TextBox1.Value)

If frmAdjustSchedule.OptionButton1.Value = True Then
For Each DateCell In Sheets(1).Range("d4:d" & Sheets(1).[d65536].End(xlUp).Row)

DateCell = DateCell + myIncr
Next DateCell

ElseIf frmAdjustSchedule.OptionButton2.Value = True Then
For Each DateCell In Sheets(1).Range("d4:d" & Sheets(1).[d65536].End(xlUp).Row)

DateCell = DateCell - myIncr
Next DateCell
End If
Unload frmAdjustSchedule
End Sub

Private Sub CommandButton2_Click()
Unload frmAdjustSchedule
End Sub