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

• #26108 Locsi senior tag

  Új Válasz 2015-03-20 09:00:17 #26108

  Ú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

  

  Locsi

  senior tag

  Még egy kérdésem lenne. Hogy lehetne ennél azt megcsinálni, hogy a két kitöltött oszlopból (D-C) kiszámolja a az eltelt időkülönbséget (2015.03.20 8:55:35 - 2015.03.20 8:54:33) azt beírja a G oszlopba, és ezt elossza az F oszlopban lévő értékkel, az meg beírja a H oszlopba. A segítséget köszönöm.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Lrow As Single
  Dim AStr As String
  Dim Value As Variant
  If Not Intersect(Target, Range("A:B")) Is Nothing Then
  For Each Value In Target
  If Value <> "" Then
  Range("C" & Value.Row).Value = Now
  End If
  Next Value
  End If
  If Not Intersect(Target, Range("E:F")) Is Nothing Then
  For Each cl In Intersect(Target, Range("E:F")).Cells
  Cells(cl.Row, "D").Value = Now()
  Next
  End If
  End Sub

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