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

• #12214 Delila_1 veterán csferke #12213

  Új Válasz 2011-12-02 09:08:28 #12214

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

  Szívesen.
  Ezt a Sheet3 laphoz rendeld:

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

  Ha a Sheet3 lapon a D, vagy E oszlop változása után kellene az összegüket átvinni a Sheet2!B1 cellájába, akkor az
  If Not Intersect(Target, [A:A]) Is Nothing Then

  sor helyére
  If Not Intersect(Target, [E:D]) Is Nothing Then
  kerüljön. Most a Sheet3 lap A oszlopába beírt érték hatására kerül a D:E oszlop összege a Sheet2!B1-be.

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