-
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
-
Delila_1
veterán
-
Delila_1
veterán
válasz
Bazunga
#13730
üzenetére
A másik füzetet "Másik füzet"-nek neveztem el, írd át a makróban. Célszerű a Replace funkcióval, akkor nem marad ki egy sem.
A "Hetek más füzetbe" Munka1 lapján a cellák egyesítését megszüntettem, mert ezek hibát okoznak a másolásnál. Helyette a kijelölt cellák vízszintes elrendezésénél "A kijelölés közepére" formát alkalmaztam. Ez minden más füzetre is érvényes, ha csak lehet, kerüld az egyesítést.
A Module3 létrehoz egy új füzetet 53 számozott lappal (jövőre jó lesz).
-
Delila_1
veterán
válasz
Bazunga
#13684
üzenetére
Alt+F11-gyel behívod a VB szerkesztőt. Bal oldalon kiválasztod a füzetedet. Insert menü, Module. Bal oldalon a füzetedben megjelenik egy Module1 nevű modul, mikor ezt kiválasztod, jobb oldalon kapsz egy üres lapot. Na oda másold be a kódok valamelyikét, és már alakíthatod is kedvedre. F5-tel indítható.
A füzetedben Alt+F8 hozza be a makrókat, amiket indíthatsz. Tehetsz ki egy gombot pl. az űrlap eszköztárról, rajta jobb klikk, és a Makróhozzárendelés gombbal illesztheted a kitett gombhoz a kódot.
-
-
Delila_1
veterán
válasz
Bazunga
#13649
üzenetére
Az érvényesítés az A2 cellában van. A D1:J1 tartomány adja meg, hogy az aktuális hét hányadik napjának a dátumát kéred a D2:J2 tartományban.
Az L oszlopba tettem az év napjait. Az M1 képlete:
=HA(HÉT.NAPJA(DÁTUM(ÉV(L1);1;1);2)>3;WEEKNUM(L1;2)-1;WEEKNUM(L1;2))A D1 cella képlete:
=INDEX($L:$M;HOL.VAN($A$2;$M:$M;0)+D$1-1;1)
Új hozzászólás Aktív témák
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- BESZÁMÍTÁS! MSI B450 R5 5600X 16GB DDR4 512GB SSD RTX 2070 Super 8GB Rampage SHIVA Adata 600W
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- Itachi! Felsőkategóriás Gamer PC! Csere-Beszámítás! R7 9800X3D/ 9070XT / 32GB DDR5 / 2TB Nvme SSD
- BESZÁMÍTÁS! MSI B450M R3 4100 8GB DDR4 240GB SSD GTX 1050Ti 4GB Asus Vento AD DeepCool 400W
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50