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

• #47072 Pakliman tag Dilikutya #47070

  Új Válasz 2021-07-02 12:34:41 #47072

  Ú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

  

  Pakliman

  tag

  válasz Dilikutya #47070 üzenetére

  Szia!

  1 lehetőség...:
  Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük, hogy az A oszlopban kezdik a beírást, a dátum pedig az X oszlopba kerül...
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False

'Ha van "zárolt" cella, akkor van bekapcsolt védelem is a munkalapra...
ActiveSheet.Unprotect "jelszo"

Cells(Target.Row, "X") = Date

ActiveSheet.Protect "jelszo"
Application.EnableEvents = True
End If
End Sub

• #47071 lappy őstag Dilikutya #47070

  Új Válasz 2021-07-02 12:06:46 #47071

  Ú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

  

  lappy

  őstag

  válasz Dilikutya #47070 üzenetére

  Private Sub Worksheet_Change

Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
  Ez minden beírt cella mellé írja a dátumot

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