- Musk betiltja az iPhone-okat a Teslánál és az X-nél, ha ezt meglépi az Apple
- A hírnévkezelési cég megígérte: eltünteti a rossz értékeléseket
- Az AI függővé teszi a bankokat a big tech-től
- Léptek New Yorkban a közösségi média függőséget okozó algoritmusai ellen
- Nem szavazza meg Musk 56 milliárd dolláros csomagját a norvég állami vagyonalap
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Mozilla Thunderbird
- Tarr Kft. kábeltv, internet, telefon
- Musk betiltja az iPhone-okat a Teslánál és az X-nél, ha ezt meglépi az Apple
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- OpenMediaVault
- Aliexpress tapasztalatok
- Opera böngésző
- SkyShowtime
- Synology NAS
-
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
-
bugizozi
őstag
válasz erich85T #12573 üzenetére
Esetleg részösszeg?
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
m.zmrzlina
senior tag
válasz erich85T #12573 üzenetére
Ha a valódi táblázatod is olyan szerkezetű mint a példa (nincs az ügyfelek oszlopában üres cella) akkor lehet ez egy megoldás:
Sub osszead()
Dim eredmeny As Double
Dim ugyfel As String
eredmeny = 0
Cells(2, 1).Select
ugyfel = ActiveCell.Value
Do Until ActiveCell.Value = ""
Do While ActiveCell.Value = ugyfel
eredmeny = eredmeny + ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 2).Value = eredmeny
eredmeny = 0
ugyfel = ActiveCell.Value
Loop
End SubNálam A1-től indul a táblázat.
Új hozzászólás Aktív témák
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Canva Pro előfizetés - 1 éves
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen