Keresés: - Microsoft Excel topic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#49571 MasterMark titán lappy #49570

Új Válasz 2022-09-09 07:42:40 #49571
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz lappy #49570 üzenetére

Köszi, tökéletes.
Ez lett belőle:
For Offset = 3 To 7 Formula = Loc.Resize(1).Offset(0,Offset).Formula ExpArray = Split(Formula, "+") Exprr = ExpArray(UBound(ExpArray)) Exprr = Replace(Exprr, CStr(Loc.Row - 1), CStr(Loc.Row - 2)) Loc.Resize(1).Offset(0,Offset) = Formula & "+" & Exprr Next Offset
#49569 MasterMark titán Fferi50 #49568

Új Válasz 2022-09-09 00:04:45 #49569
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Fferi50 #49568 üzenetére

A kérdés az, hogy hogy tudok beletenni egy már meglévő képlet mögé egy kiegészítést mégpedig úgy hogy én mondom meg hogy mi legyen benne.
Azaz ami konkrétan kéne a mostani VBA scriptembe:
-Cellába konkatenálás, de úgy hogy formula maradjon.
-Változó alapján az új sor cellájának címének összerakása (offsetelni tudok jelenleg, azt nem tudom utána a címet hogy kérem le a jó formátumban)
Utoljára mondom, hogy nem fogom kézzel átírni, mert scriptből is biztosan megoldható, csak nem ismerem az eszközöket hozzá, és googlén sem találom amit szeretnék.
Esetleg amit írtak a többiek hogy levenni a fixelést róla az talán segíthet, de szerintem ez túl bonyolult hogy magától kitalálja.
A képlet:
=HA(D10=0;0;$C10-$B10)+HA(D11=0;0;$C11-$B11)+HA(D12=0;0;$C12-$B12)+HA(D13=0;0;$C13-$B13)+HA(D14=0;0;$C14-$B14)+HA(D15=0;0;$C15-$B15)+HA(D16=0;0;$C16-$B16)+HA(D17=0;0;$C17-$B17)+HA(D18=0;0;$C18-$B18)+HA(D19=0;0;$C19-$B19)
Amit hozzá kéne adni: +HA(D20=0;0;$C20-$B20)** Jobban megnézve igazából a fix oszlop az indokolt, de mégsem találja ki az excel magától ha beteszek egy új sort.
Ha fölé szúrom be akkor ez lesz a vége:
...$C16-$B16)+HA(D17=0;0;$C17-$B17)+HA(D18=0;0;$C18-$B18)+HA(D20=0;0;$C20-$B20)
Az új 19-es sor kimarad. Azt kéne hozzáadnom, ennyi a feladat.
**szerk.: Nyilván a 19-es kell ha fölé szúrom be, eddig alá tettem, de igazából mindegy.
Amúgy nem tudom miért akasztott ki az hogy nem akarom kézzel állítgatni. Nem fogok órákat ezzel eltölteni, mire mindenhol megcsinálom. Inkább töltöm azzal az időt, hogy scriptelve kitaláljam.
#49567 MasterMark titán Fferi50 #49565

Új Válasz 2022-09-08 22:00:26 #49567
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Fferi50 #49565 üzenetére

Iránymutatásért jöttem, nem veletek megcsináltatni, vagy pénzért mással.
Scriptelni tudok, viszont az excel sajátosságait nem ismerem. Olyanokat nem szeretnék megírni amire már gyárilag is van megoldás, ezért előszőr itt megkérdeztem mielőtt elkezdek írni minden hülyeséget.
Bocsmá hogy megkérdeztem.
#49563 MasterMark titán Delila_1 #49562

Új Válasz 2022-09-08 17:54:05 #49563
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #49562 üzenetére

300 kulon tablazat van, 15 kulon worksheeten. Miegegyszer mondom, hogy nem fogom kezzel atalligtani egyesevel.
#49561 MasterMark titán Fferi50 #49559

Új Válasz 2022-09-08 14:29:29 #49561
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Fferi50 #49559 üzenetére

Nem modosul mert ugy van megadva hogy $A$1 stb. es igy nem adodik hozza automatan.
Iagazabol nem is range a keplet hanem egyesevel van hozzaadva minden sor. (Ne kerdezzetek, nem en csinaltam.. )
#49557 MasterMark titán Delila_1 #49556

Új Válasz 2022-09-08 08:08:29 #49557
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #49556 üzenetére

Van vagy 300 ilyen sor amit módosítani kéne, soronként 6 érték +2 még külön. Nem fogom kézzel csinálni.
A gond az hogy be van fixálva mondjuk A1:A10 közé, én hozzáadok egy A11 sort, az összes képletet át kéne írnom hogy benne legyen ez az új sor is.
Biztos meg tudnám csinálni mindenféle string replace meg stringben keressésel, meg regexelni a számokra, aztán a számot növelni egyel, aztán újra összerakni a képletet és visszaírni a cellába, de reméltem hogy erre van valami jobb módszer.
#49555 MasterMark titán

Új Válasz 2022-09-08 06:43:31 #49555
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

Üdv,
Van arra jó mód vba scriptből, hogy adott cellában lévő képletben lévő más cellahivatkozásokat bővítsek?
Hozzáadok egy új sort scriptből, de a képletek nem frissülnek rá, hogy hozzávegyék, ezt szeretném megoldani.
Köszi.
#41691 MasterMark titán

Új Válasz 2019-09-02 10:20:48 #41691
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

Köszi szépen mindkettőtöknek.
#41688 MasterMark titán MasterMark #41687

Új Válasz 2019-09-02 02:22:03 #41688
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz MasterMark #41687 üzenetére

Maga a képlet jó, egy cellából másoltam ki.
#41687 MasterMark titán

Új Válasz 2019-09-02 01:30:02 #41687
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

Sheets("egyéni").Range("A1").Formula = "=JOBB(CELLA("filenév"; A1); HOSSZ(CELLA("filenév"; A1)) - SZÖVEG.KERES("]"; CELLA("filenév"; A1))) & " (" & PADLÓ(SZORZATÖSSZEG((NEM(ÜRES(J3:J1002))*(1/DARABTELI(J3:J1002;J3:J1002&""))));1) & " darab)""
Ez így miért szintaktikus hibás?
#41639 MasterMark titán Delila_1 #41638

Új Válasz 2019-08-22 17:47:32 #41639
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41638 üzenetére

Én meg pont ezért nem értettem, hogy minek neked pontosan az oszlop....
De látom itt más a jellemző, inkább nem nagyon érteken hozzá a kérdezők.
#41637 MasterMark titán Delila_1 #41636

Új Válasz 2019-08-22 17:27:44 #41637
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41636 üzenetére

Igen-igen, az tök jó lett. Az a baj nem nagyon találtam példakódokat, meg hogy mihez milyen függvények vannak. Maga a scripteléssel nincs gond, tudok több scriptnyelven is. Ez így nagy segítség, hogy látom mi hogy kéne kinézzen, mire hogy jó a megoldás.
Köszi.
#41635 MasterMark titán MasterMark #41634

Új Válasz 2019-08-22 16:14:09 #41635
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz MasterMark #41634 üzenetére

Ja megvan a tied mintajara. Koszi.
#41634 MasterMark titán Delila_1 #41631

Új Válasz 2019-08-22 16:05:33 #41634
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41631 üzenetére

Az elso sor oszloposszevonasat ez igy valamiert kivette. Erre van valami fuggveny hogy A-J elso sorban osszevonja a cellakat utana?
szerk.:
Worksheet.Range("FirstCell:LastCell").Merge
Ezt talaltam ra.
#41633 MasterMark titán Delila_1 #41631

Új Válasz 2019-08-22 15:48:57 #41633
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41631 üzenetére

Dehogynem, hát írtam, hogy a 3. sortól vannak az adatok, alatta a sort után már jól is van.
Köszi, ezeket is kipróbálom. Sokat tanultam köszi a gyors reagálást.
#41630 MasterMark titán Delila_1 #41626

Új Válasz 2019-08-22 12:12:43 #41630
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41626 üzenetére

Köszi szépen, kicsit belekontárkodtam sikerült megcsinálni amit akartam. (a sortolást nem jó helyről kezdte.)
Scripttel tudok formázást átvinni? Illetve még egy olyat szeretnék, hogy első oszlopban a számokat lecserélni 1-től számolóra az összes lapon a harmadik sortól. (1,2,3,4,stb.)
Az autoszűrőt be lehet kapcsolni az összes lap második sorára scripttel?
Köszi szépen előre is.
#41625 MasterMark titán Delila_1 #41624

Új Válasz 2019-08-20 15:49:02 #41625
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41624 üzenetére

Köszi. A lapnev-ből ki tudod trimmelni a space-eket és levágni 30 karakterre? Szerintem elakad azért mert túl hosszú ami benne van.
#41623 MasterMark titán Delila_1 #41622

Új Válasz 2019-08-20 14:55:24 #41623
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41622 üzenetére

Ja látom már az a szokás, hogy te írod meg, nekem iránymutatás is elég lett volna, abból talán kitalálom.
De akkor pontosan:
1. sor összevonva A-J között. Ide kerülne az "album címe", ami egyenlő a lap címével is. Ez van benne:
=JOBB(CELLA("filenév";A1);HOSSZ(CELLA("filenév";A1))-SZÖVEG.KERES("]";CELLA("filenév";A1)))
2. sor A-J a táblázat első sora itt vannak az oszlopok nevei.
3. - 363. sor A-J között maguk az adatok.
A "J" oszlopban vannak ami alapján szét kellene válogatni őket. Az "album címe".
#41621 MasterMark titán Delila_1 #41619

Új Válasz 2019-08-20 12:28:10 #41621
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #41619 üzenetére

Egyszer kell.
Úgy 400 összesen, 70 különböző adattal az oszlopban.
Igen, a szűrést és másolást szeretném automatizálni, mert nincs kedvem kézzel másolgatni egy különböző lapra.
Hogy érted, hogy melyik oszlop szerint? Nem mindegy?
Példa: Zeneszámok vannak, az egyik oszlopban az album címével. Amelyik albumban több szám is van, azt külön szeretném tenni egy külön lapra az album címe szerint.
#41618 MasterMark titán

Új Válasz 2019-08-19 22:48:30 #41618
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

Üdv, egy kis segítséget kérnék.
Van egy rakás adat, azokat szeretném lapokra szétbontani úgy, hogy az egyik oszlopban lévő érték legyen a lap címe, illetve csak azok kerüljenek külön lapra, amiből több is van ezen értékből.
#13662 MasterMark titán Delila_1 #13661

Új Válasz 2012-05-06 19:18:39 #13662
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

válasz Delila_1 #13661 üzenetére

Én is így próbáltam, formátumra év/hónap/nap kellene.
#13660 MasterMark titán

Új Válasz 2012-05-06 18:38:25 #13660
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MasterMark

titán

Üdv
Segítséget szeretnék kérni életkor kiszámításában. Csak évre találtam számítást a google-n, de nekem hónapra, ha lehet napra pontosan kéne.
Köszönöm előre is.