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

• #12217 Delila_1 veterán csferke #12215

  Új Válasz 2011-12-02 11:49:10 #12217

  Ú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 csferke #12215 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [D:E]) Is Nothing Then
  Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5)))
  End If
  End Sub

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