egy munkafüzetben van több hasonló munkalapom.. mindegyik munkalap más-más oldalszámra van "tördelve".. az oldalakra rá kellene hogy kerüljön (legkésõbb nyomtatáskor) hogy az adott oldal az adott munkalapon hanyadik, és hogy az adott munkalapon hány oldal van összesen..
végeredményként egyetlen PDF-et kellene nyomtatnom az összes munkalapból..
eddig az oldalbeállítás/élõláb oldalszámozását próbáltam, de az csak akkor vezet jó eredményre ha egy munkalapfület nyomtatok egyszerre.. ha az egész munkafüzetet szeretném kinyomtatni, akkor nem munkalapfülenként számolja az oldalszámozást, hanem az összes kinyomtatott oldalt veszi alapul..
szóval van-e valakinek arra ötlete hogy hogyan lehet úgy egyszerre kinyomtatni az összes oldalamat, hogy az oldalszámok munkalapfülenként számolódjanak?
köszi
mármint ha az volt a kérdés hogy cellába hogy írj képletet makróval
Sziasztok, hogy lehet makróval azt elérni, hogy az aktív cellába egy függvényt írjon bele? (tehát hogy a cella tartalma legyen a függvény, ne a makró számoljon) A cella alapesetben egy másik alapján egy listából kikeres egy értéket, de manuálisan is átírható... a makró az alapbeállításra lenne való. Köszönöm, Juci
Sziasztok, van egy fájlom, amiben van több mint 20e sor, normalizálva. Van egy fájlom, aminek külön-külön füleken szerepelnek különbözõ kimutatások az elõbbi táblából. A kérdés: mitõl függ- hogy lehet beállítani, hogy ezek a kimutatások egymástól függjenek/ne függjenek. Némelyre ha rákattintok, akkor frissül másik is, némely úgy tûnik, hogy nem. Ez még nem is lenne probléma, de az, hogy az egyiknél a dátumokat hónapra csoportosítom, másiknál pedig nem ezt szeretném, és ezt nem engedi, az gáz. Hogy lehet a kimutatásokat külön-külön kezelni? Lehet ilyet?
Nem is mûködhet, szintaktikailag helytelen.
Idézet a súgóból: "A függvény eredménye a szövegként megadott hivatkozás. A hivatkozásokat a Microsoft Excel azonnal kiértékeli és megjeleníti tartalmukat. Az INDIREKT függvényt akkor használjuk, ha egy cella hivatkozását meg szeretnénk változtatni egy képletben, de magát a képletet nem."
Vegyük, hogy az A oszlopban különbözõ értékek vannak, amik közül úgy akarsz választani, hogy a B1 cellában megadod a sor számát (ezt változtatod). Az =indirekt("A"&B1) függvény a B1 cella aktuális értékének megfelelõ sorból veszi az A oszlop értékét. A képlet nem változott, de a B1 pillanatnyi értéke szerint más-más az eredménye.
Ezt írtad: "... ha a "munka2" lapon az A1 cellaba ha kivalaszok egy termeket, ...". Itt csakis az A1 cellában történt kiválasztásról volt szó. A teljes A oszlopban érvényesítések vannak?
Küldd el a fájlt, és írd bele, hogy pontosan mit akarsz elérni.
A Munka2 lapra adj egy kiválasztott értéket, a Munka1 lapra pedig vidd be billentyûzetrõl, amit ott akarsz látni a választás után.
Delila, koszonom a macrot. Mukodik csak az a gond, hogy egyedul az A1-es cellaban es csak a Munka2-es lapon. Lehet, hogy tul nagy keres, de ha atkuldenek neked email-ben egy darabkat abbol amin dolgozok, az lehet, hogy mas kepet vetne fel. NAgyon sok minden van a fejemben evvel kapcsolatban es az igazsag az, hogy a fatol mar nem latom az erdot.
Koszonom!
Ez szörnyû lett, bemásolom újra a két makrót.
1.
Sub vonalkod() Dim sor%, usor%, oszlop%, termek As Variant
For sor% = 2 To usor% If Sheets("Munka1").Range("A" & sor) = termek Then oszlop% = Range("IV1").End(xlToLeft).Column + 1 Cells(1, oszlop%) = Sheets("Munka1").Range("B" & sor) End If Next End Sub
2.
Private Sub Worksheet_Change(ByVal Target As Range) Dim sor%, usor%, oszlop%
If Target.Address = "$A$1" And Target <> "" Then Application.EnableEvents = False
For sor% = 2 To usor% If Sheets("Munka1").Range("A" & sor) = Target Then oszlop% = Range("IV1").End(xlToLeft).Column + 1 Cells(1, oszlop%) = Sheets("Munka1").Range("B" & sor) End If Next Application.EnableEvents = True End If End Sub
For sor% = 2 To usor%
If Sheets("Munka1").Range("A" & sor) = termek Then
oszlop% = Range("IV1").End(xlToLeft).Column + 1
Cells(1, oszlop%) = Sheets("Munka1").Range("B" & sor)
End If
Next
End Sub
[szin=blue]VAGY[/szin]
2. A Munka2!A1 cellába történõ beíráskor, vagy érvényesítésbõl kiválasztáskor fut le automatikusan a makró, ezt a Munka2 laphoz kell rendelned.
[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor%, usor%, oszlop%
If Target.Address = "$A$1" And Target <> "" Then
Application.EnableEvents = False
For sor% = 2 To usor%
If Sheets("Munka1").Range("A" & sor) = Target Then
oszlop% = Range("IV1").End(xlToLeft).Column + 1
Cells(1, oszlop%) = Sheets("Munka1").Range("B" & sor)
End If
Next
Segitsegeteket kernem, egy olyan problemaban, hogy van egy adatbazisom a "munka1" lapon az adatbazis elso oszlopa tartalmazza a termek nevet, a masodik oszlop a vonalkodokat. Egy termekhez tartozik tobb vonalkod. A "munka2" lapon van az elso oszlopban a termek nevek helye amit az "ervenyesites-lista-munka1" laprol valasztok ki, a masodik oszlopban a vonalodok helye van, ezeknel a cellaknal is az ervenyesites-lista lehetoseget lattam jobbnak. Mivel tobb 100 termekrol van szo, es ez egy leltar munkalap lenne, ahol legalabb 10 munkalaprol (zonarol) van szo, nagyban megkonnyitene a munkamat, hogy ha a "munka2" lapon az A1 cellaba ha kivalaszok egy termeket, akkor a B2, B3, B4... cellaba automatikusan beirna az ahoz a termekhez tartozo vonalkodot. Kerem, aki tud segitsen ebben, elore is koszonom! Email-re vagy itt varoma valaszokat. [email protected]
Koszonom megegyszer a segitsegeteket!
Kedves hozzáértõk! :)
Egy olyan problémával fordulok hozzátok, amivel talán még Ti sem találkoztatok ;) (bár remélem mégis)
Munkahelyen, Excel 2010-rõl lenne szó. (Office Standard 2010) A helyzet az, hogy bizonyos excel táblák megnyitása esetén, miután megnyitjuk a fájlt, és bármely cellába vmilyen számot szeretnénk írni(1,2,3,4...), akkor az adott szám nem jelenik meg a cellában, hanem helyette a gyorelérési eszköztárból az adott számnak megfelelõ sorszámú funkció lép életbe... tehát ugye alapértelmezettben az elsõ funkció az eszköztárban a Mentés, így ha az 1-es gombot nyomjuk le (akár a NUM padon, akár szimpla számsornál), akkor elmenti a dokumentumot.
Ez mondjuk a kisebbik baj, mert ha elmenti semmi gond, de pl. 4.nek a nyomtatás van beállítva, és ha neadj'Isten 4-sel kezdõdik a szám amit éppen be akarunk írni, akkor elkezdi kinyomtatni a 150oldalas dokumentumot... :S
De csak a legelsõ számjegyre csinálja a hülyeséget, utána a többit már írja rendesen...
Remélem vki találkozott már hasonlóval, és tud majd segíteni, elõre is köszönöm, Üdv: Robi
A cellaformátum Védelem fülén vedd ki a pipát a Zárolt négyzetbõl azoknál az oszlopoknál (celláknál), ahol nem akarod érvényesíteni a védelmet, és csak ezután védd le a lapot.
2007-es Officom van. Szeretnék bizonyos oszlopokat lapvédelemmel ellátni. Kijelölöm õket + beállítom a jelszót, de más oszlopokat is levéd, amiket nem kéne, viszont nem az összeset. Hogyan tudom elérni, hogy csak a kijelölteket zárolja?
Igen, Neked szólt, csak elfelejtettem a "válasz"-ra kattintani.
Sziasztok! Segítséget szeretnék kérni, nem tudok vba-val adott nevû könyvtárat általam megadott könyvtárba létrehozni. Továbbá, a munkafüzet egy munkalapjának adatait szeretném havonta a létrehozott munkafüzet egy-egy munkalapjára bemásolni. Segítsetek!
Nem is tudom, hogyan tudom megköszönni! Ha van valami ötleted, pl. hány m2 mogyorós csoki,kisfröccs stb., lehet a köszönet kézzelfogható része, kérlek írd meg!
Valamikor, jó 20 évvel ezelõtt voltam egy alap EXCEL tanfolyamon, mert érdekelt, de ott jóformán csak az adatok bevitele, táblázat formázás, és nagyon kezdetleges képletek kerültek szóba. Így aztán kísérletezéssel kutakodással, fórum, súgó olvasással igyekeztem bõvíteni a tudásom, no meg külsõ segítséggel, segítségeddel, de bõven van még mit tanulnom! Köszönöm a megjegyzéseket is!
Szerintem tökéletesen megértetted a feladatot, a tökéletlenkedésembõl!
A B oszlopot elrejtheted. Igen ezt én is így gondoltam.
A C oszlop adatait nem használta egyik oszlop sem, megszüntettem, úgyis azonos volt a B oszloppal. Igen ez is jó így.
Ha túl nagy a magasság az F oszlopban, az M oszlop értéke nulla lesz, mint a 10-es sorban. Ez is rendben van, mert ha nincs ilyen kiinduló méret, akkor nem gyártható, valahogy jelezni kell.
Az Árak lap tartalmát transzponálva áttettem az Adat lapra, az N oszlop onnan veszi az árakat. Tökéletes, nekem nem sikerült, mert sorban volt és nem oszlopban, ez is tökéletes így.
Az Árak lapot megszüntettem. értelemszerû.
A PET 0,012-nek nincs ára, pótolni kell. Köszi, tudok róla, meg kell tudnom a valós értéket, nem akartam fals számot beírni.
Az anyagok méretét kiegészítettem egy nullával, ahol szükség volt rá – pl. ZSS BOPP Met. 0,280 –, így egyszerûbb lett a Vastagság képlete.
Valahogy egy másik próba lapon én is erre jutottam, kicsit vastag lett, helyesen:ZSS BOPP Met. 0,028, javítottam.
Így most-már ki tudom egészíteni a többi adattal, azzal nem lehet már gondom, remélem!
Jó lenne a JOBB függvény, ha 1. az A oszlopban mindig azonos számú lenne a számjegyek száma 2. ha a függvény számot eredményezne.
Megoldás: 1. =JOBB(A3;HOSSZ(A3)-SZÖVEG.KERES(",";A3)+1). A SZÖVEG.KERES függvény megadja a vesszõ elõfordulási helyét a szövegben, ezt vonjuk le a szöveg teljes hosszából.
2. az elõbbit szorzod 1-gyel, ami számmá alakítja az értéket, a képlet végsõ alakja =JOBB(A3;HOSSZ(A3)-SZÖVEG.KERES(",";A3)+1)*1 lesz.
Magamnak válaszolok! A oszlop méretszámait azonos karakterszámra állítva "JOBB" képlet segítségével sikerült új oszlopban megjeleníteni, ez így már jó nekem. A többi még foglalkoztat. Delila=Delila10?
Találtam még valamit. A feltételesen formázott cellák értékét nem tudom összeadni,mert szöveget is tartalmazhat, pedig van ahol kellene. Valamint az "A" oszlopban lévõ cellatartalomból a számokra is szükségem lenne szorzóként a tömeg kiszámításához. Sok a bajom! Ha terhedre vagyok, nem zaklatlak. Köszi! Üdv!
Nagyon köszönöm, szeretnék ennyire érteni az Excelhez, de ami késik.... Annyit kellett változtatnom, hogy nem a "D", hanem a "K" oszlopra kell hivatkozni, de ez már nem gond. Van még egy megoldandóm, az "N" oszlopba az "A"-hoz, vagy a "B"oszlop hoz kellene rendelnem értékeket, de ezek nem az adat lapon vannak, illetve ott is lehetnek. Még egyszer nagyon köszönöm segítõkészségedet!
Ezért kell azt a formát megadni, ahogy majd alkalmazni akarod a kapott képleteket. Jó hosszú, összetett képlet adta az eredményt, most még hosszabb lett.
Szia! Kicsit korai volt az örömöm, vagy valamit nem jól csinálok, de körkörös hivatkozás miatt nem mûködik. Már próbáltam átrakni másik munkalapra is. Ha lennél szíves megnézni, mi lehet a gond, kérlek jelezd.
Szívesen, örülök, hogy sikerült.
Kiválóan mûködik, még annyival kiegészítettem, hogy az 1. sor alá beszúrtam egy új sort, ahova az anyagméretekhez minden oszlopba 1-et írtam, így a legkisebb méretnél kisebb számok esetén a legkisebb méreteket választja ki, nem pedig #ÉRTÉK az eredmény. Még egyszer nagyon szépen köszönöm!
Ha már voltál olyan szíves,tovább bonyolítanám! Egy legördülõ menüben megjelenõ anyagfajtához és vastagsághoz kellene hozzárendelni a kiadódó méretnek megfelelõ anyagszélességet.Hogy ne legyen egyszerû többféle anyag is van, mind több vastagságban, és szélességben. Nagyot segítenél rajtam, mert pár napja agyalok, de nem igazán vagyok otthon a mûfajban, csak kísérletezek. Hálás Köszönet![IMG][/IMG]
Sziasztok! Segítséget szeretnék kérni egy nem túl bonyolult képletre, de most nincs idõm a fórumot végigolvasni, és a kísérletezgetni.Az alábbi képen látható a feladat, a lényeg az, hogy az A2 cellába mindig más kiadódó érték kerül, amit az F oszlopban lévõ értékre kellene kerekíteni. Az A6 cellában a kiválasztott értéknek kellene megjelennie. Ha igaz FKERES, de a továbbiakat nem tudom. Elõre is köszönöm! [IMG][/IMG]
Ha ezek az adatok az A1:A6 tartományban vannak, akkor =SZORZATÖSSZEG((A1:A6<>"")/DARABTELI(A1:A6;A1:A6))
szevasztok. Egy egyszerû dologban szeretném a segítségetek kérni. Nem tudom melyik függvénnyel lehetne a problémámon segíteni. pl: Dávid Béla Dávid Judit Enikõ Béla
Például van egy ilyen oszlopom, amiben ismétlõdnek a nevek, és azt szeretném kiszûrni,h hány fajta név szerepel a sorban, és nem azt hogy hányszor szerepel. Melyik függvénnyel tudnám? Le tudnátok irni a teljes formáját, ha az oszlop terjedelme A1:A10, és üres cellák is vannak benne. Köszi:)
Szívesen. Lényeg, hogy rájöttél, mit kell átírnod.
Mivel azonos helyezések is elõfordulhatnak, a kép szerint oldhatod meg. Az A oszlopot elrejtheted, vagy a karakterek színét a hátterével azonosra állíthatod, hogy ne zavarjanak.
Az elõzõhöz szeretnék hozzá szólni. Az excelböl kivágott képet nem tudom beilleszteni. Pedig jelezte, hogy feltöltötte méghozzá ide:
Sziasztok! Egy kis segítséget szeretnék kérni. Készítettem egy olyan táblázatot, amiben a futballmeccsünk eredményeit tartom. De emellett van egy összesítõ táblázat is amiben a szokásos paramétereket tartom úgymint Játszott meccs, rúgott-,kapott gól, pontszám, stb. És végül egy olyan táblázatot is amiben a pontok által elfoglalt helyet tartom, de akkor nem tudom, hogy hogyan kell kiszámolni, ha mondjuk két 3. helyezett van.
Sziasztok Egy olyan problémám, van hogy betöltök a táblázatba a netrõl adatokat és frissíteni akarom ezzel: Sheets("Sheet2").QueryTables(1).refresh BackgroundQuery:=False
természetesen ezt idõzítéshez kötöm a RunOnTime-al Elõször lefut, frissíti aztán kiadja a Script OutOfRange hibaüzenetet. Sehogy sem tudok rájönni mi hiányzik van valakinek ötlete?
Akkor ezt vidd be a lap kódlapjára (továbbra is a D oszlopot vizsgáltatom a makróval, majd átírod):
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D")) Is Nothing Then If Target = "gt" Or Target = "df" Or Target = "sd" Or Target = "as" Or Target = "er" Then m = Target usor = Sheets(m).Range("A65536").End(xlUp).Row + 1 Target.Rows.EntireRow.Copy Sheets(m).Cells(usor, 1) Else usor = Sheets("plusz").Range("A65536").End(xlUp).Row + 1 Target.Rows.EntireRow.Copy Sheets("plusz").Cells(usor, 1) End If End If End Sub
Igazából úgy van hogy a fix értékeseket megvizsgálja és akkor azt a sort copyzza a fix értékkel megegyezõ lapra. Ami ezekkel az értékekkel nem egyezik meg azok egy plusz lapra kerülnek majd.
Kipróbálom amit írtál.
Köszi.
Ha a makrónak az a dolga, hogy javítsa a cellákat, amik nem a megadott értékeket tartalmazzák, egyszerûbb, ha ezekbe a cellákba érvényesítést teszel, ami eleve nem enged más adatot bevinni.
Makróval is ellenõrizheted, amit a laphoz rendelsz (a példában a D oszlopot figyelteted):
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D")) Is Nothing Then If Target <> "gt" Or Target <> "df" Or Target <> "sd" Or Target < "as" Or Target <> "er" Then 'ide írd, mi legyen, ha a beírt érték nem felel meg az elõírásnak End If End If End Sub
Azt hogy tudom megcsinálni makróban? pl: Van egy adattáblám és adott egy oszlop melyben a cellák öt fix értéket vehetnek fel és bármi mást. Hogy vizsgáltatom meg hogy nem az az öt az hanem bármi más és csak utána fusson le az if script?
pl: fixértékek: gt df sd as er
If cella != "gt" Or "df" Or "sd" Or "as" Or "er" Then script End If
Próbáld ki ezt:
Private Sub Worksheet_Change(ByVal Target As Range) Dim lapnev$, v% v% = InputBox("Hány példányban nyomtassam az elsõ oldalt?", "Példánszám", Default) ActiveWindow.SelectedSheets.PrintOut Copies:=2 If Target.Address = "$A$1" Then lapnev$ = Cells(1) On Error GoTo Hiba Sheets(lapnev$).Select End If Hiba: End Sub
Igen látom, csak az a baj, hogy elõször a fõoldalt kell nyomtatnom kettõ vagy három példányban majd utána kell a beírt A1 szerinti oldalt nyomtatni. Ezért gondoltam a gombot mert így nem kellene elhagyni a fõoldalt.
Amint beírod valamelyik lap nevét az A1-be, átlép a megnevezett lapra, és már nyomtatja is. Hibás név beírásakor nem csinál semmit (látszólag, mert ellenõrzi).
Köszönöm holnap kipróbálom mert itt nekem sincs nyomtatóm.
Nem tudom kipróbálni, mert itt nincs nyomtatóm.
A makrót az elsõ laphoz rendeld (lapfülön jobb klikk, Kód megjelenítése – ezzel bejutsz a VB szerkesztõbe –, a jobb oldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range) Dim lapnev$ If Target.Address = "$A$1" Then lapnev$ = Cells(1) On Error GoTo Hiba Sheets(lapnev$).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If Hiba: End Sub
Sziasztok Van egy excel dokumentumom egy fõ oldallal (Munkalap1) és 15 további munkalappal (M2-M16). Azt szeretném, hogy az 1-es lapon lenne egy gomb ami figyelné mondjuk az A1-es cellát és ha abban megjelenik az M2, M3, ...M16 akkor az annak megfelelõ munkalapot kinyomtatná a gomb megnyomásakor. Köszi
Tud-e valaki olyan ingyenes online szolgáltatót, ahová Excel 2007-bõl el lehet menteni az állományokat és több helyrõl hozzá lehet férni. A SharePoint gondolom csak eredeti verzióval mûködik.
Hát igen, sokkal több angol nyelvû van, mint magyar.
Szívesen.
Delila, picit mélyebben ástam és találtam magyar nyelvû videókat a youtube-on. Most kutatók bennük. Köszönöm szépen!
Hmmmm... Elfelejtettem említeni hogy magyar nyelvû tananyag kell...
A YouTube-on keresõ szónak beírod az Excel-t, nagyon sok videó találatot kapsz.
Sziasztok! Keresek oktató anyagokat excelrõl. Fõleg videó formában. Kezdõ szintrõl haladóig. Találtam már néhányat, de azért fordulok hozzátok, mert nem szeretnék fölösleges köröket futni. Azokat keresem akik már kipróbáltak ilyen oktatóanyagokat, vagy esetleg jobban tájékozottak a témában és tudnak egy olyan tananyagot amely jó, hatékony, és sokaknak bevált.
Céges dokumentum jelszóval levédve.. :\ Ezért csak az eredetit szerkeszthetem, azzal meg ez van ami.. Különben hidd el már rég megcsináltam volna. :)
A helyedben az összes adatot, és csakis az adatok területérõl – tehát nem teljes lapokat – átmásolnám egy új füzetbe. Ha az új füzet rendesen mûködik, a régit nagy ívben kihajítanám.
Az Excelben létezõ összes releváns gombot megnyomkodtam ami csak lehetséges és összes beállítást átnézegettem, de ugyanúgy marad. Ami eleve furcsa nekem, az az ablak jobb felsõ sarkában lévõ folytonossági hiba, az ablak kontúrjában, amivel eddig maximum akkor találkoztam ha valami megjelenítési hiba volt a programban, mintha valami elromlott volna ebben a dokumentumban.. És megvan az eredeti egyébként. Amikor elõször megnyitom, még jó is, ha viszont bezárom és újból megnyitom megint ez lesz. Próbáltam még 2003-as Excelbõl megnyitni, illetve .xls-re menteni, de úgy se jó. Úgyhogy ez lesz a millió dolláros kérdés, legalábbis én egyelõre feladom, mert kiborít teljesen. :) És köszi a válaszokat!