-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen