Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
próbálkoztam azzal is hogy szöveggé alakítsam az x-et...de nem működött.
De rájöttem miért...
Ez egy automatikus grafikon, ami oda ugrik ahova kell neki és annyi adatot ír be, ahány "napot" észlel kitöltve...
Offset, count, name range-et stb-t használ...és persze..hát én idióta ha a függvényben a count-ot használom az szöveget nem fog érzékelni :-)))...ez logikus...
idegeskedtem egy sort, de a lényeg hogy végre meg van a megoldás!!!
Sajnos még mindig lenne kérdésem :( Ez a nyomtatási terület kijelölés nagyon klasszul működik, már csak egy baj van. Ha pl beírok 9-et akkor két sor címkét jelöl ki, mert nyilván 1-el több mint a 8, ezért egy sorba már nem fér bele. Vajon lehet úgy módosítani a makrót ( belenéztem, saját kútfőből nem jöttem rá :D ) hogy pontos címke darabszámot jelöljön ki, vagy mostmár menjek a francba. :D A makróban láttam hogy minden cellát 3-al szoroz, ezért elvileg cellákat kellene kijelölnie 3-asával nem pedig sorokat, de lehet hogy rosszul értelmezem.
Elküldtem a módosított fájlt az itt található címedre.
A 3 lapra tettem 3 gombot, amik végrehajtják a makrót. Mindegyik a saját címkéi közül annyit tesz a nyomtatási képbe, ahány a BIZTn lap E4 cellájában található.
A nyomtatást nem írtam bele, a nyomtatási ikonra kattintással nyomtathatod. Azért hagytam ki, mert most sárga hátterűek lesznek a címkék, azon biztosan akarsz majd változtatni a
Range("A1:H" & usor).Interior.ColorIndex = 6 sorban a 6 átírásával.
A probléma az, hogy 3db munkafüzet van, amihez 3db címkeoldal tartozik. A " komplett darab " az a szám, ami alapján a megfelelő mennyiségű címkét kellene kijelölni. Ne haragudjatok az amatőrködés miatt de ezidáig nem nagyon foglalkoztam ilyesmivel.
Ha a címkék a Munka2 lapon több oszlopban vannak, akkor az usor változót az oszlopok számával osztani kell, és szorozni 3-mal. Az előbb ez a szorzás lemaradt.
Köszönöm a segítséget, feltöltöttem az excel file-omat megauploadra, így jobban átlátható. Természetesen a vonalkód a megfelelő betűtípus nélkül nem fog megjelenni, de az nem is lényeges.
A Munka1 lap A1 cellájába írtam a darabszámot (120-at).
A Munka2 lapon vannak a nyomtatandó címkék, a példában mind az A oszlopban.
Sub Nyomt_ter() Dim usor As Integer
Sheets("Munka2").Select Cells.Interior.ColorIndex = xlAutomatic ' az előző terület színének visszaállítása usor = Sheets("Munka1").Cells(1).Value ActiveSheet.PageSetup.PrintArea = "$A$1:$A" & usor Range("A1:A" & usor).Interior.ColorIndex = 6 End Sub
A makró a Munka!A1 cellájában található számnak megfelelő sort jelöl ki nyomtatásra, és a hátterüket sárgára festi. Szerintem a színezés elé kellene tenni a nyomtatási parancsot, hacsak nem színes címkéket akarsz nyomtatni.
Ha a címkék a Munka2 lapon több oszlopban vannak, akkor az usor változót az oszlopok számával osztani kell, és természetesen a PrintArea is ennek megfelelően módosul.
Illetve még azon gondolkodtam, hogy ha 2 lapot csinálok a címkékből 2x80=160 és az első lapra 120-at írok akkor 40 db-ot el lehet rejteni a címkékből automatikusan a 120-as szám alapján.... lehet hogy hülyeség csak eszembe jutott. :) Vagy fordítva... elrejtem a címkéket pl 3x80-at és csak annyi x3 jelenik meg amilyen számot beírok az első táblázatba.
Sziasztok ! Egy olyan problémával illetve kérdéssel fordulok hozzátok, amihez hirtelen ötletem sincs hogyan fogjak hozzá. Adott egy táblázat ( egy termékkísérő lap ) amin van egy x szám egy cellában, pl 120. Egy másik fülön van egy vonalkódos címkéket tartalmazó táblázat, ( A4-es fektetett oldal, 80 db címkével ). Egy ilyen kis címke 3db sorból, cellából áll. Egy cikkszám, egy vonalkód, egy megnevezés amit az előző táblázatból generál az excel. ( a vonalkódot makróval ). A kérdésem, megvalósítható-e az, hogy ha az első lapra a termékek számához pl 120-at beírok, annyi termékcímkét jelöljön ki / nyomtasson ki / színezzen be a másik fülön található táblázatból? ( 1 db címke 3 cella ahogy említettem, szóval annyiszor 3db pl 120 x 3 db cellát kellene hogy kijelöljön ) pfffff :)
