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

• #38558 Delila_1 veterán MCMLXXXII #38557

  Új Válasz 2018-07-16 06:45:07 #38558

  Ú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 MCMLXXXII #38557 üzenetére

  Ha az előző makró nem működött mobilon, ez sem fog.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 And Target.Row Mod 2 = 0 Then
ActiveSheet.Protect UserInterfaceOnly:=True
Application.EnableEvents = False
If IsNumeric(Target) And Target.Count = 1 Then
Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
Range(Target.Address).Locked = True
Range(Target.Address).Offset(1).Locked = True
End If
Application.EnableEvents = True
End If
End Sub

  A makró figyeli, hogy a páros sorokban az E oszloptól kezdődően szám legyen, ekkor az alatta lévő sorba beírja az aktuális dátumot és időt, majd zárolja a beírt szám és idő celláját.

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