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

  • Delila_1

    veterán

    válasz Locsi #26139 üzenetére

    A kezdés idejét a rajzszám beírásához rendeltem. Ha az A-hoz is beírnám, akkor eltelik némi idő (pláne, ha közben az adatrögzítő megiszik egy kávét) a rendelés bevitele után, és úgyis felülírná az egyszer már beírt kezdést.

    A D, G, és H oszlop megadását is csak az F-hez kötöttem, nincs értelme az E-hez is megadni.

    A G és H oszlop formátuma p:mm, jobbra behúzva, behúzás 1.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub

    If Target.Column = 2 Then Cells(Target.Row, "C") = Now
    If Target.Column = 6 Then
    Cells(Target.Row, "D") = Now
    Cells(Target.Row, "G") = Cells(Target.Row, "D") - Cells(Target.Row, "C")
    Cells(Target.Row, "H") = Cells(Target.Row, "G") / Cells(Target.Row, "F")
    End If
    End Sub

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