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

• #38680 MCMLXXXII tag Fferi50 #38679

  Új Válasz 2018-07-24 17:36:59 #38680

  Ú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

  

  MCMLXXXII

  tag

  válasz Fferi50 #38679 üzenetére

  If Target.Column > 4 And Target.Row Mod 2 = 0 Then
  Application.EnableEvents = False
  If Target = "" Then
  Target.Offset(1) = ""
  Else
  If IsNumeric(Target) And Target.Count = 1 Then
  Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
  Target.Offset(1).Locked = True
  Columns(Target.Column).EntireColumn.AutoFit
  End If
  End If
  Application.EnableEvents = True
  End If

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