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

• #26109 Louro őstag Locsi #26108

  Új Válasz 2015-03-20 09:28:13 #26109

  Ú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

  

  Louro

  őstag

  válasz Locsi #26108 üzenetére

  EGy próbát megér, ha jól értem a feladatot.

  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
  Range("G1:G"&ActiveSheet.Usedrange.Rows.Count) = "=D1-C1"
  Range("H1:H"&ActiveSheet.Usedrange.Rows.Count) = "=HAHIBA(F1/G1,"""")" 'Angol excel esetén "=IFERROR(F1/G1,"""")"
  End Sub

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