Macro button to put date in selected cell within specific column

okur.13 · Nov 13th 2018

Hi,

I am a beginner in VBA and I stumbled upon a little problem with my macro. It seems easy, but too difficult for me.

My macro is supposed to put in a current date in chosen cell when I press a button.
But only in one column this action can be allowed. Column starting from cell B7 and down to infinity.
And date should stay what it was when file is open another day.

This is what I got, based on analysing and copying other macros:

Code

Private Sub Date1_Click()ActiveCell.Offset(0, 0).Range("A1").SelectTIME1 = DateActiveCell = TIME1ActiveCell.SelectSelection.NumberFormat = "dd/mm/yyyy"ActiveWorkbook.SaveEnd Sub

When i put Range("B7:B400"), date appears not in chosen cell.
Also I don't know wether Offset is a good idea here.

I'd be very thankful for your help.
Cheers

**StephenR** · Nov 13th 2018

All that code does is put the date in the active cell. Are you trying to put it in multiple cells - if so, you will need a loop?

okur.13 · Nov 13th 2018

I am trying to put the date in one active cell. But not any active cell. Only in an active cell in column B from B7 down.

**StephenR** · Nov 13th 2018

Try this.

Code

Private Sub Date1_Click()


With ActiveCell
    If .Column = 2 And .Row > 6 Then
        .Value = Date
        .NumberFormat = "dd/mm/yyyy"
        ActiveWorkbook.Save
    End If
End With


End Sub

Display More

okur.13 · Nov 13th 2018

It works perfectly. Thank you

**StephenR** · Nov 13th 2018

My pleasure.

Macro button to put date in selected cell within specific column

Participate now!

Share