Hi guys, how I can combine this two code for worsheet_change?
Code
/CODE FOR COLUMN O/
Private Sub Worksheet(ByVal Target As Range)
On Error Resume Next With Target If .CountLarge > 1 Or .Column <> 15 Then Exit Sub .ClearComments On Error GoTo 0 .AddComment .Comment.Text Text:="Recepcionado el " & Format(Date, "long date") & " por: " & Application.UserName .Comment.Visible = True End With
End Sub
/CODE FOR COLUMN P/
Private Sub Worksheet_2(ByVal Target As Range)
On Error Resume Next With Target If .CountLarge > 1 Or .Column <> 16 Then Exit Sub .ClearComments On Error GoTo 0 .AddComment .Comment.Text Text:="Confirmado el: " & Format(Date, "long date") & " por: " & Application.UserName .Comment.Visible = True End With
End Sub