-
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- Lightyear - befektetési app
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Peugeot, Citroën topik
- Formula-1
- Fotók, videók mobillal
- Még a saját szövetségeseivel szemben is fegyverként használná az AI-t az USA
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Battlefield 6
- Luck Dragon: Asszociációs játék. :)
- Trollok komolyan
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Új Apacer 16GB DDR4 3200MHz
- HIBÁTLAN iPhone 15 Plus 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4504
- GYÖNYÖRŰ iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4567
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest