Input Date in specific column of selected cells

mamun.ges · Sep 23rd 2022

Hi, Hope All Are Fine.

I have a worksheet where I want to input date to a specific column of the selected cell if I click on a command button.

The selection data range F10 to F1200 & the date input column is AW

The procedure is :

If I select some cell in between F10 to F1200. Then I click on a Command Button. After clicking on the command button, a message asks for date input permission. If I click yes then an input box opens to enter a date where the default date will be today. The date will be input on the specific column of the row of the selected cell. If No then it skips No date input.

I hope someone helps me in this regard.

Thanks in Advance.

Mumps · Sep 30th 2022

Try:

Code

Sub InsertDate()
    Application.ScreenUpdating = False
    Dim sDate As String
    If MsgBox("Do you wish to insert a date?", vbYesNo) = vbNo Then Exit Sub
    sDate = InputBox("Please enter a date.", "Date", Date)
    If Not IsDate(sDate) Then
        MsgBox ("Invalid date.  Please try again.")
        Exit Sub
    Else
        Range("AW" & ActiveCell.Row) = Date
    End If
    Application.ScreenUpdating = False
End Sub

Display More

mamun.ges · Oct 3rd 2022

Thank You so Much, Dear Mumps.

I wish you all the best.

Mumps · Oct 3rd 2022

You are very welcome.

Input Date in specific column of selected cells

Participate now!

Share

Similar Threads

Calculating year to date sum based on category

Copy specific cell data to summary tab based on tab name

Input Data box open based on cells value condition unload in different cells

If Date Enter in specific column then input box open to enter number of the same row data enter

VBA loop through selected rows in listbox in userform, do something when column value in selected row is equal to

Use command button for ask month number then filter date of a specific column based on Month Number

Tags