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

• #29965 bsh addikt lizakattila #29963

  Új Válasz 2015-12-23 12:44:07 #29965

  Ú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

  

  bsh

  addikt

  válasz lizakattila #29963 üzenetére

  ilyesmi? biztos van egyszerűbb is.
  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  For Each Item In Target.Cells
  If Item.Column = 15 Then
  If Item = "" Then
  Cells(Item.Row, 1) = ""
  Else
  Cells(Item.Row, 1) = Now()
  End If
  End If
  Next
  Application.EnableEvents = True
  End Sub

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