Új hozzászólás Aktív témák

• #30061 Delila_1 veterán Sweetraver #30059

  Új Válasz 2016-01-07 14:51:05 #30061

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sweetraver #30059 üzenetére

  Itt van hozzá a makró. Amelyik cella változik, oda betesz egy megjegyzést az új értékkel és a hozzá tartozó dátummal. A már meglévő megjegyzést folytatja az új változás értékével. A legelső értéket nem menti.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 16 Then
  On Error Resume Next
  Range(Target.Address).AddComment
  Range(Target.Address).Comment.Visible = True
  Range(Target.Address).Comment.Text Text:=Range(Target.Address).Comment.Text & vbLf & Target & " " & Format(Date, "yy.mm.dd")
  Range(Target.Address).Comment.Visible = False
  End If
  End Sub

Új hozzászólás Aktív témák