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

• #38681 Fferi50 Topikgazda MCMLXXXII #38680

  Új Válasz 2018-07-24 17:51:36 #38681

  Ú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

  

  Fferi50

  Topikgazda

  válasz MCMLXXXII #38680 üzenetére

  Szia!

  Úgy van, ahogyan gondoltam. Ha több cellát jelölsz ki egyszerre, akkor az egy cellára megírt feltételeket nem tudja értelmezni, ezért van a hiba. A Target helyett be kell vezetni egy változót és ciklusban kell végigmenni a tartományon:
  Dim cl As Range
Application.EnableEvents = False
For Each cl in Target.Cells
If cl.Column > 4 And cl.Row Mod 2 = 0 Then
If cl = "" Then
cl.Offset(1) = ""
Else
If IsNumeric(cl) 'And Target.Count = 1 Then
cl.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
cl.Offset(1).Locked = True
Columns(cl.Column).EntireColumn.AutoFit
End If
End If
End If
Next
Application.EnableEvents = True

  Talán így már nem lesz hiba.

  Üdv.

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