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

• Delila_1 veterán

  #48182

  #48179 zsoci0914

  2022-01-04 12:18:43

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #48179 zsoci0914

  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