Changing Date

[Nestes2000]

Hi Guys,

I'm new with macros/VBA...

How can I create a button that ask me a date and then change the dates on a column with the date I inputed?

Many Thanks in Advance

 

[Misca]

Welcome to the message board!

Here's a little code you can adjust to suit your needs:

Sub ChangeDates()

Dim MyText As String
Dim MyDate As Date
Dim Rng As Range


'VBA doesn't crash but goes to error handler if InputBox returns a value that can't be changed to a date
On Error GoTo ErrorHandler


'Adjust the Rng to match your needs
Set Rng = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)


'InputBox returns a string:
MyText = Application.InputBox("Enter a date")


'CDate turns strings to dates:
MyDate = CDate(MyText)


With Rng
    .Value = MyDate
End With


'If a date was entered the macro stops here:
Exit Sub


'otherwise the code jumps here:
ErrorHandler:
    MsgBox "Try again with a suitable date.", vbOKOnly, MyText & " ?"


End Sub

You can either insert a button from the Form Controls or use any shape and assign the macro to that.