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

• #48182 Delila_1 veterán zsoci0914 #48179

  Új Válasz 2022-01-04 12:18:43 #48182

  Ú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 zsoci0914 #48179 üzenetére

  Szóval érvényesítést alkalmazol, és az adott sor valamelyik cellájába kell beírni a dátumot.

  A makrót a laphoz kell rendelned, és majd makróbarátként kell mentened a füzetet.
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        Select Case Target.Value
            Case "Beérkezve": Cells(Target.Row, "M") = Format(Now, "yyyy.mm.dd hh:mm:ss")
            Case "Gyártás alatt": Cells(Target.Row, "N") = Format(Now, "yyyy.mm.dd hh:mm:ss")
            Case "Kész": Cells(Target.Row, "O") = Format(Now, "yyyy.mm.dd hh:mm:ss")
            Case "Kiszállítva": Cells(Target.Row, "P") = Format(Now, "yyyy.mm.dd hh:mm:ss")
        End Select
        Application.EnableEvents = True
    End If
End Sub

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