VBA Code Help

[James__S]

Hi,

How would i modify this code so that it only displays Time and in 24 hours? I don`t need the =Now() but time in 24 hours

Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Range("F5:G32,F35:G60")) Is Nothing Then
  ActiveCell = Now()
End If
End Sub

 

[Dryver14]

Activecell = Application.Text(Now(), "hh:mm")

 

[James__S]

Thank you

The cell i select does not place anything when Commandbutton1 is selected

Thanks

 

[Dryver14]

Did it work before?

I just meant you to change that line not replace the procedure!

 

[James__S]

Yes worked before.Thanks

 

[James__S]

Using code below how do i restrict entry into cells only for these ranges (E10:E11 & E22:E23 , J10:J11 & J22:J23, P10:P11 & P22:P23)

Private Sub CommandButton1_Click()
ActiveCell = Now()
End Sub

This simple code seems to work fine but need to only have above cell ranges for entry only