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

• #12233 csferke senior tag Delila_1 #12232

  Új Válasz 2011-12-03 08:59:53 #12233

  Ú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

  

  csferke

  senior tag

  válasz Delila_1 #12232 üzenetére

  Így nem működött.

  Próbálkozások során kialakult a megfelelő megoldás.
  Átrendeztem az oszlopokat B,C és D-be viszem be az adatokat, hogy egymás mellet legyenek az adatbeviteli oszlopok.
  E=B*D F=C*D
  Most már figyeltetem az egymás mellet lévő [B] oszlopokat és értelemszerűen a SUM-ban Row4 -> Row5 és a Row5 -> Row6 lett.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [B:D]) Is Nothing Then
  Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
  End If
  End Sub

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