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

• #26140 Delila_1 veterán Locsi #26139

  Új Válasz 2015-03-20 13:32:58 #26140

  Ú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 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