-
Fototrend
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
-
Pakliman
tag
Sub btRogzit_Click()
Dim sor As Long
Dim lMax As Long
Dim l As Long
Dim emptyRow As Long
Munka2.Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
For sor = 1 To emptyRow - 1
If Cells(sor, 1) Like "KSZ-#*" Then
l = Mid(Cells(sor, 1), 5)
If l > lMax Then lMax = l
End If
Next sor
Cells(emptyRow, 1).Value = "KSZ-" & lMax + 1 'tbSorszam.Value -> többé nem kell:)
Cells(emptyRow, 2).Value = tbElado.Value
Cells(emptyRow, 3).Value = tbBrutto.Value
Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value
Unload Me
End Sub -
#23524
m.zmrzlina
senior tag
kutga
#23519
m.zmrzlina
senior tag
Szerintem ez a feladat egyszerűen megoldható (feltéve, ha jól értem a problémát).
Tegyük fel, hogy nagyjából úgy néz ki a munkafüzeted ahogy kettővel lejjebb Wyll lerajzolta
Csinálsz egy munkalapot ebbe a munkafüzetbe, legyen a neve mondjuk "összesítő"Erre a munkalapra kialakítod a számodra legmegfelelőbb szerkezetet és a megfelelő helyekre behivatkozod azokat a cellákat aminek a tartalmát látni szeretnéd.
A képen most a cellák képleteit látod de ha beírod a képletetet akkor a hivatkozott cella tartalmát fogod látni.
-
Mittu88
senior tag
Úgy érted több munkalappal van egy táblázatod, és munkalaponként vannak a partnerek?
Ha igen, minden munkalapon ugyanabban a cellában található(ak) ez(ek) az adatok?
Szerk.: mivel külön munkalapon, vagy munkafüzetben vannak az adatok, szerintem egyszerűen nem lehet megoldani (bár ez relatív). Makró kell. Ahhoz értesz picit?
-
igazából ez is egyfajta szűrő, nagy mennyiségű adat kezelésére. cska kicsit byonolultabb, több lehetőséggel. de ha neked minden projektre külön munkalapon van szükséges, akkor nem ez a megoldás.
valami makró biztosan meg tudja ezt csinálni, valami kompetensebb ember tud majd segíteni benne
-
-
brd
nagyúr
Egyszerűbben nem tudtam, mert most hirtelen nem találtam olyan képletet, ami 3 eredményt tudna adni. Mátrix függvényekkel egyébként szebben is meg lehetne oldani, de arra most nincs időm.
Az egész alábbit másold be az "A" oszloptól (az üres helyek jelentik elvileg az oszlophatárt), és a C-G-t el kell majd rejtened:10 11 =HA(B1>A1;1;0) =HA(A1=B1;1;0) =HA(D1=1;"Egyenlőek";"") =HA(ÉS(D1=0;C1=0);"Nagyobb";"") =HA(ÉS(D1=0;C1=1);"Kisebb";"") =ÖSSZEFŰZ(E1;F1;G1)
Aham, kiveszi a tabulátort.
Akkor mentsd le a fentit szövegfile-ként és nyisd meg az Excel-lel, majd mondd meg neki, hogy a space határolja az oszlopokat. -
Delila_1
veterán
A Munka1 lapra írd be az alábbit, feltételezve, hogy az A oszlopban van az az adat, amit a Munka2 lap A oszlopának adataival össze kell vetned. A $1000 helyett a Munka2 utolsó sorát írd. Végig másolva 0-át ír a Munka2-n nem található tételek mellé, 1-et a mindkét lapon szereplőkhöz.
Ha a Munka2-re is beírod ugyanezt (persze Munka1!-re változtatva a Munka2!-t), akkor az ott meglévő, de a Munka1-en nem szereplő tételeket is kimutathatod.
Sikerült úgy megfogalmaznom, hogy egy mukkot se lehessen érteni belőle? Ennyi telik tőlem.
=HA(HIBÁS(FKERES(A1;Munka2!$A$1:$A$1000;1;HAMIS));0;1)
Ezután már szűrheted 0-ra, vagy 1-re az oszlopodat.
Akkor mentsd le a fentit szövegfile-ként és nyisd meg az Excel-lel, majd mondd meg neki, hogy a space határolja az oszlopokat.Új hozzászólás Aktív témák
Fferi50- Gitáros topic
- Motoros topic
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Okos Otthon / Smart Home
- Milyen alaplapot vegyek?
- Ilyen olcsó sem volt még egy Apple notebook
- PlayStation 5
- Kerékpárosok, bringások ide!
- 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
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Sony DualSense Edge kontroller 3 hó garancia, számlával!
- Surface 3 - 13,5" 2k érintő, i5 1035G7, Iris Plus, 16GB RAM, SSD, jó akku, újszerű állapot, számla
- Samsung Galaxy S25 Silver Shadow 128GB használt karcmentes gyári garancia 2028.12.19.-ig
- 237 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest