Vba add time based on cell and fill formula

Hi guys. Old problem but new question. In the vba within workbook below I would like to add into it several things:

• each time I write something in column "c", column "b" must be filled with the actual time (- 15 sec). However, If I

were to delete a cell in column "C" then the time In "b" would also have to be deleted. Accept only text cells and

start from row 5 and downwards.


• if time exists in "b" then fill this formula

=HYPERLINK(bookpath()&$A5&".264";"Vizionare")

in column "g". Where "bookpath" is a udf.

Private Sub Worksheet_Change(ByVal Target As Range)


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("C5:C400")) Is Nothing Then

           With Target(1, 0)

                 .Value = Time - TimeValue("00:00:15")

                 '.EntireColumn.AutoFit

            End With
            
            End If
                  

End Sub

Hi,

Adjust the range to your needs ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("A5:A20")) Is Nothing Then
    For Each c In Target.Cells
        If Not IsEmpty(c) Then
            c.Offset(0, 1).Value = Time - TimeValue("00:00:15")
            c.Offset(0, 6).Formula = "=HYPERLINK(bookpath()&$A5&"".264"",""Vizionare"")"
        Else
            c.Offset(0, 1).ClearContents
            c.Offset(0, 6).ClearContents
        End If
    Next c
End If
End Sub

HTH