- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bambano: Bambanő háza tája
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- gerner1
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- gban: Ingyen kellene, de tegnapra
- ldave: New Game Blitz - 2026
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- Parci: Milyen mosógépet vegyek?
-
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
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- LicencAruhaz.hu OLCSÓ, LEGÁLIS SZOFTVEREK AZONNAL - Windows - Office - Win Server - ÖRÖK GARANCIÁVAL
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Keresek Galaxy S21/S21+/S21 Ultra/S21 FE
- Eredeti DELL 330W töltők (ADP-330AB D)
- 207 - Lenovo LOQ (17IRB8) - Intel Core i5-13400F, RTX 3050
- Lenovo ThinkCentre/ Dell OptiPlex/ Hp EliteDesk mini, micro PC/ 8.-9.-10.gen/ Számla/garancia
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
