- Samsung Galaxy A56 - megbízható középszerűség
- Sony Xperia 1 VII - Látod-e, esteledik
- iPhone topik
- Telekom mobilszolgáltatások
- Mobil flották
- Xiaomi 14T - nem baj, hogy nem Pro
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Yettel topik
- Fotók, videók mobillal
- Honor 200 Pro - mobilportré
Hirdetés
-
Mobilarena
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
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- PC Game Pass előfizetés
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- Apple iPhone 16 Pro 128GB, Kártyafüggetlen, 3 Év Garanciával
- Gamer PC- Számítógép! Csere-Beszámítás! I7 4790K / 16GB DDR3 / RX 5700XT 8GB / 512GB SSD
- ASUS X540SA-XX004D Notebook - 4 napot használt
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5600X / 32GB DDR4 / RTX 3060Ti 8GB / 500GB SSD
Állásajánlatok
Cég: FOTC
Város: Budapest