- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Yutani: 20 év a Prohardveren
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Óraátállítás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Luck Dragon: MárkaLánc
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- aquark: Flipper PC-n!
-
LOGOUT
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
-
tam@s
tag
Sziasztok! Új munkahelyemen magyar nyelvű excelt kértem, de az elődöm angolt használt, így mentette el a file-okat. Lesz nekem ebből bajom, vagy ezt tudja kezelni az excel? Nem komoly függvényekről van szó, FKERES(), meg néhány pivot tábla.
Köszi a válaszokat előre is!
T. -
tam@s
tag
Köszönöm, hogy szakítottál rám időd, és energiát, remélem, egyszer visszaadhatom!
Üdv.:
Tamás -
tam@s
tag
válasz
m.zmrzlina
#28623
üzenetére
Nagyon szépen köszönöm, de sz még mindig megakadok vele valahogy, kérnék még egy kis segítséget.
Átalakítottam a makródat a következőképpen:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 4 And Target.Row <= 11 ThenIf Target.Column = 2 Then
On Error Resume Next
Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044
Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)ElseIf Target.Column = 4 Then
On Error Resume Next
Cells(Target.Row, 2).Value = Cells(Target.Row, 4).Value * 1.044
Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)ElseIf Target.Column = 6 Then
On Error Resume Next
Cells(Target.Row, 2).Value = Cells(Target.Row, 6).Value * Cells(Target.Row, 5)
Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044End If
End IfEnd Sub
Végtelen loopba kerülök...
A táblázatról:
8 termk egymás alatt
2 oszlop a nagyker ár
4 oszlop a termelői ár
5 oszlop azt mutatja, hogy egy dobozban hány tabletta van
6 oszlop az egy tablettára jutó nagyker ár ----> itt a gond, mert ha ezt is beleírom, akkor visszaírja a nagyker árat, és lefagy.
Innen még lenne 5 oszlop, amit oda vissza kellene írni, de csak addig megy, amíg vissza nem számoltatok egy olyan cellát, amelyik szerepel a "ElseIf Target.Column = XX" feltételnél, és akkor vége.Nem lehet valahogy leállítani, hogy ne számolja újra, hanem csak azt, ami az adott IF részfeltételben van?
Bocs, ha nem voltam szakszerű, közgazdász vagyok, ez a 2. makró életemben...
Köszi minden segítséget előre is!
Üdv.:
Tamás -
tam@s
tag
válasz
m.zmrzlina
#28618
üzenetére
Nagyon szépen köszönöm, holnap brillírozok a munkahelyemen vele, bár a főnököm szerintem nem is érti, hogy miért probléma ez...
Van ötleted esetleg, hogy ezt át tudom-e alakítani 10 db egymás alatti termékre? Tehát 3. sor, 4. sor...12. sor?
Átírom a makrót már ez alapján, csupán elméletileg kérdezem, ha egyszer szükségem lesz rá.Óriási segítség, tényleg köszönöm!
Üdv.:
Tamás -
tam@s
tag
Sziasztok!
Egy kis segítséget kérnék, már széttúrtam a netet, de nem találtam megoldást az elvileg egyszerű problémámra.
Egy kalkulátort kell készítenem, amelyik oda-vissza számolja a cellákat.
Ár (Ft/db)
mennyiség (db)
Árbevétel (Ft)A lényeg, hogy ha bármelyik cellát átírom, akkor a másik kettő újraszámolódjon.
Az árat még úgy-ahogy tudom fixen, már az is segítség lenne, hogy ha valaki megmondaná, hogy az oda-vissza írás két cella között hogyan lehetséges. Jó lenne excelben, mert ezekre utána hivatkozik még sokminden, de ha van valamilyen más ötlet, az is jó lehet.Bármilyen segítséget nagyon köszönök!
Új hozzászólás Aktív témák
- Vezetékes FEJhallgatók
- Projektor topic
- Kétezer eurós csomag lehet a Vivo X300 Ultra
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Váratlanul ledobta asztali csúcs-Ryzenjét az AMD
- Hobby elektronika
- Mazda topik
- Samsung Galaxy S25 - végre van kicsi!
- Autós topik
- Mikrotik routerek
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MS SQL Server 2016, 2017, 2019
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Prémium! Bambulab bontatlan filamentek (PLA - PETG- ABS) ÁFÁS- számlával eladóak készletről!
- Lenovo T495 Ryzen 5 pro 3500U, 16GB RAM, 512GB SSD, jó akku, újszerű állapot, számla, garancia
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3896, 95% Akkumulátor
- 27% - Asus külső Optikai megható!
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Space Black - 1 ÉV GARANCIA -Kártyafüggetlen, MS4332
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50