VBA code

[Jagat Pavasia]

i have VBA code, when i enter "**" i want currant date and time.
but only currant date is showing, the time is always showing 12:00 AM

please help with edit below VBA code

Sub Macro2(target As Range)
Dim Rng As Range

  If target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ActiveSheet.Unprotect
  Set Rng = Range("b:b,g:g,j:j,M:M")
  If Not Intersect(target, Rng) Is Nothing Then
    If target.Value = "**" Then target.Value = Format(Date, "dd/mm/yyyy, hh:mm AM/PM")
  End If

  If Not Intersect(target, Range("B4:R4")) Is Nothing Then
      If target.Value = "" Then
          ActiveSheet.Range("B6:R6").AutoFilter Field:=target.Column
      Else
          ActiveSheet.Range("B6:R6").AutoFilter Field:=target.Column, Operator:=xlFilterValues, Criteria1:=CStr(target.Value)
      End If
  End If
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFiltering:=True
  Application.EnableEvents = True
End Sub

 

[Fluff]

Date is just that a date, rather than date & time, you need to use Now instead.

 

[Jagat Pavasia]

Date is just that a date, rather than date & time, you need to use Now instead.

Please suggest me, where to add "Now".

 

[Fluff]

In place of Date on this line

If target.Value = "**" Then target.Value = Format(Date, "dd/mm/yyyy, hh:mm AM/PM")

 

[Jagat Pavasia]

In place of Date on this line

If target.Value = "**" Then target.Value = Format(Date, "dd/mm/yyyy, hh:mm AM/PM")

thank you so much...

 

[Fluff]

You're welcome & thanks for the feedback.