Excel kérdés

Jelentkezz be a hozzászóláshoz.

norbre
#1614
volna nekem is egy kérdésem..

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

** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"

norbre
#1613
mármint ha az volt a kérdés hogy cellába hogy írj képletet makróval

** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"

norbre
#1612
szia..
elvileg valahogy így mûködnie kellene:
Sheets("Munka1").Cells(1, 1).Formula = "=SUM(E:E)"

** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"

#1611
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

#1610
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?

Delila1
#1609
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.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1608
Delila
Köszönöm. De láttam olyan példát, hogy =indirekt("1:3") ez nálam nem mûködött.
A szám (1:3) csak példa
Delila1
#1607
Az =indirekt("A" & sor()) az A oszlopból a beírt függvény sorának megfelelõ értéket adja.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1606
Sziasztok!
Az INDIREKT() függvényt hogy kell használni például a SOR() függvénnyel együtt? <#nemtudom><#nemtudom>
#1605
ment a valasz PMben. valami oknal fogva nem talallak skypon
Delila1
#1604
Megkaptam, de így sem értem pontosan a feladatot.

Privátban megírtam a címem, keress meg Skype-on, hogy megbeszéljük!
Mostanában ritkán ülök a monitor elõtt, többnyire csak 17 óra után.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#1603
Azt szeretném megkérdezni, hogy a beállítások között szereplõ "Megjelenés szerinti pontosság beállítása" hogyan hangzik angolul?
#1602
Delila, elkuldtem PM-ben. Elore is koszonom a segitseged!
Delila1
#1601
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.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1600
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!
Delila1
#1599
Ez szörnyû lett, bemásolom újra a két makrót.

1.

Sub vonalkod()
Dim sor%, usor%, oszlop%, termek As Variant

usor% = Sheets("Munka1").Range("A1").End(xlDown).Row
Sheets("Munka2").Select
Range("B1:IV1") = ""
termek = Range("A1").Value

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

usor% = Sheets("Munka1").Range("A1").End(xlDown).Row
Range("B1:IV1") = ""

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

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#1598
Makróval könnyen megoldhatod, ennek is van legalább két módja.

1. Gombnyomásra – modulba másolod a makrót.

Sub vonalkod()

Dim sor%, usor%, oszlop%, termek As Variant

usor% = Sheets("Munka1").Range("A1").End(xlDown).Row
Sheets("Munka2").Select
Range("B1:IV1") = ""
termek = Range("A1").Value

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


VAGY

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.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sor%, usor%, oszlop%

If Target.Address = "$A$1" And Target <> "" Then
Application.EnableEvents = False

usor% = Sheets("Munka1").Range("A1").End(xlDown).Row
Range("B1:IV1") = ""

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


Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1597

Udv mindenkinek!

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!
#1596
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
Delila1
#1595
Szívesen.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#1594
Köszönöm. <#worship>
Delila1
#1593
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.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#1592
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?
Delila1
#1591
Igen, Neked szólt, csak elfelejtettem a "válasz"-ra kattintani.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1590
Ha nekem szólt Delila válasza, köszönöm!
Olvasgatni fogom.
üdv
Delila1
#1589

Itt olvasgass a 13667-es kérdéstõl.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1588
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!
Delila1
#1587
Szívesen.

Edd meg az egészségemre!

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1586
Sok köszönet a segítségedért! Csokit hova küldhetem?
Delila1
#1585
Igazán örülök, hogy így elnyerte a tetszésedet.
Tényleg 0,280-at írtam, szarvashiba!

A néhány m2 mogyorós csoki jó ötlet. <#circling>
(Nincs egy normális smily)

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1584
Nem is tudom, hogyan tudom megköszönni!<#worship><#worship> 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!<#taps><#taps>
Delila1
#1583

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#1582

A feltöltött fájlból nem értettem meg a feladatot.<#falbav>

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#1581
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.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1580
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?
#1579
#1578
A különféle fajta, és vastagságú anyaghoz (A1) árat rendelni egy megadott sorból ami lehet az "Adat" lapon a méretek alatt egy külön sorból.
#1577
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!
Delila1
#1576
Szívesen.

Írd meg pontosan, mit is kell tudnia az N oszlopnak.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1575
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!
Delila1
#1574
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.


Átírt változat

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1573
#1572
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.
Delila1
#1571
Szívesen, örülök, hogy sikerült.
<#wave>

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1570
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!
#1569
HÛ! Óriási köszönet érte! Nagyon gyors voltál, mindjárt próbálom!<#taps><#integet2>
Delila1
#1568
A4-be: =KARAKTER(HOL.VAN(A2;1:1)+64)
Ezt írhatod a háttér színével, hogy ne zavarjon. Ez a képlet adja meg a keresett oszlop betûjelét.

C2:
=HA(HIBÁS(FKERES(B2;INDIREKT(A4&":"&A4);1;0));INDEX(INDIREKT(A4&":"&A4);HOL.VAN(B2;INDIREKT(A4&":"&A4);1)+1);FKERES(B2;INDIREKT(A4&":"&A4);1;0))

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#1567
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]
#1566
Szia! Nagyon szépen köszönöm, majdnem így oldottam meg, de ez így sokkal korrektebb!
Delila1
#1565
Az A6 képlete:

=HA(HIBÁS(FKERES(A2;F2:F10;1;0));INDEX(F2:F10;HOL.VAN(A2;F2:F10;1)+1);FKERES(A2;F2:F10;1;0))

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.