Hello,
Egy kis könyvet szeretnék nyomtatni Valentin napra. A6-osméretűt.
A nyomtatóban A4 papír van.
40 darab képből állna a könyv.
2 oldalas nyomtatással szeretném, 2 oldal hajtva, tehát nem laponként, és úgy raknám egymás mellé majd ragasztanám az élét.
Hogy kell nyomtatnom, hogy ne csússzon el a fordításnál, illetve mely oldalak hova kerülnek?
4-1 8-5 az egyik oldal. 2-3 6-7 a masik? Jól gondolom?
Van ilyen sablon? Vagy tudna valaki csinálni, hogy csak be kelljen dobálnom a képeket?

Booklet módban kell nyomtatni, ha támogatja a nyomtató.
Xerox pl:

Wordben viszont nem kell nyomtató támogatás, tudja alapból is:
https://support.office.com/hu-hu/article/f%c3%bczet-vagy-k%c3%b6nyv-l%c3%a9trehoz%c3%a1sa-a-wordben-dfd94694-fa4f-4c71-a1c7-737c31539e4a?ui=hu-HU&rs=hu-HU&ad=HU

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Ezek A5 ös méretűek lesznek.
Nekem A6 kell, az a fele ennek.
Se a nyomtató, se a word.
És akkor még ott jön az elcsúszás probléma a dupla oldalnál, mivel nem hajszál pontosan ugyanakkora képek.
A kép amit küldtél az füzet, nem könyv.
Írtam, hogy 1 lapon 4+4 oldal van 1-4, 5-8..stb
Le is írtam hogy a lapfordítás miatt hogy van elrendezve szerintem.

[ Szerkesztve ]

Ebben tudna esetleg valaki segíteni?

És Excelben vannak ezek a képek?

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Megoldásként szóba jöhet, hogy lemakrózod a fájlt és veryhidden-re állítod azokat a lapokat amelyek érzékenyek (jelszavas azonosítással). Akkor kézzel nem lehet megjeleníteni őket (nem látszanak az Unhide sheets ablakban).
Persze ettől még kézzel ki hozzá lehet férni az adatokhoz "hátulról".

Én ezt mindenesetre nem excelben csinálnám...

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Amúgy erre nincs jó program (főleg az elcsúszásra nem), ezt profi módon csak nyomdában lehet megcsinálni, mert az otthoni nyomtatók nem tudnak pontosan lapbehúzást csinálni (akár 2-3 milliméter eltérés, illetve elforgás is lehet).

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Png file-ok.
Nem otthoni nyomtató, céges nagy, az nem fog elcsúszni tuti.
Azért jó az excell mert valahogy meg lehet adni a cellának a méretet hogy fix legyen bármit is teszek benne. Ezután adni kell 1,5 margot mindenhol, hogy tuti nyomtató részbe essen, majd beallitani, hogy pont középen legyen a 4 cella közép vonala.
Ennyi.
Tudom hogy hogy kell, azt is hogy meglehet, csak 15 eve használtam és nem tudom megvalósítani , mert rengeteget változott minden.
Ezért kertem ha vki tudna egy sablont kreálni pl.

Az A6 nem pontosan A6 ,csak kb akkora, lényeg hogy kicsi legyen, mert A5 nagy.

[ Szerkesztve ]

Köszönöm

Amiből lekvárt lehet főzni abból pálinkát is! A csavargó embert nem lehet munkára fogni! Samsung S23 Ultra Dual SIM | Notebook: HP Omen | Car: Volkswagen Passat B6 1.9 PD TDi BLS

Hello,

Segítene valaki elmagyarázni?
Itt leírják 5 lépésben hogyan kell, csak nem értem hogyan kell.
A fényképet értem, a hogyant nem.

Köszönöm!

Az a leírás OpenOffice Writer-hez van, Excel-ben nincs ilyen külön "brossúra nyomtatás" opció...

Excelben "kicsit" körülményesebb megvalósítani, de talán ez megoldás lehet a számodra

1. A4-es papírméret mellett létrehozod az A6-os szegmenseket illetve minden egyes oldal egy új munkalapra kerüljön

2. Ellenőrződ az oldaltörést, hogy az csak is a kitöltött szegmensek területét fedje le. (Nyilván Te majd más cellaméreteket használsz, hogy az kiadja az A6 méretet, illetve margók stb beállítás, de utána az oldaltörést mindenképp ellenőrizd le)

3. A nyomtatási képen a képen látható opciók legyenek kiválasztva minden oldalon. (Amennyiben az első munkalapod kész van, minden beállítás passzol, akkor az újabb munkalapokat az első másolataként hozd létre, akkor nem kell a nyomtatási beállításokat minden oldalon beállítgatni) Munka2 munkalap

Nem tudom, ez hasznos-e a számodra, de talán igen...

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Sziasztok!

Azt valaki meg tudja mondani, hogy hogyan lehetséges hogy ezt a számot 3086782541806230 nem tudom átírni egy excel cellában erre 3086782541806232. Csak a végi 0 -t 2 -re írom át ?

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

Szöveg formátumú legyen a cella, majd ráállsz a cellára, F2 és elméletben bármelyik számjegyét átírhatod.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Ekkora számot már lebegőpontosként tárol.
Ha nem szám kell (nem akarsz pl számolni vele), csak a szám kinézete, akkor tegyél elé egy aposztrof-ot:
'3086782541806230
vagy
'3086782541806232

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

köszönöm, így az igazi.

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

Szia!

Ha ezzel a cellával közvetlen műveletet nem végzel, de az ehhez az adathoz tartozó sorban szereplő további adatokkal végeznél bármilyen műveletet, akkor legyél óvatos, mert hibás eredményeket is kaphatsz.
Részleteket itt megtalálod.

Sikerült
Köszönöm szépen

Üdv,
Olyan gondom adódott, hogy egy pár éves gépen egy nagyobb excel táblába (54ezer sor * 13 oszlop - de még csak az induló adatokkal - függvények nélkül) az 1500 subtotal kiszámítása egy oszlopra a darabszám értékére kb. 40 percig tartott.
Gép MSI H81M alaplapban egy Intel Celeron G1840 4Gb RAM-al - WIN10 64bit+Excel 2016
Egy új gépen ez nem egészen 2 percig tartott - ezen is WIN10 64bit+Excel 2016 van
Ha valakinek van javaslata az előbbi gép bővítésére (kivéve a vegyél újat) érdekelne, hogy elég lenne-e proci+ ram bővítés, mivel minden más tökéletesen működik rajta.
Azért nem akarom lecserélni, mert ilyen feladat elég ritkán szokott előfordulni...
Előre is köszi!
Üdv,

indítsd el újra a subtotalt, úgy hogy közben feladatkezelőben nézed, hogy mit mennyire használ.

néztem, excel 100% processzor foglaltságot okozott

Sajnos nekem az automatikus számolás lenne megfelelő, ami működik is viszont ha office 365-el megnyitom néha néha a közelítési érték engedélyezését kiveszi és így nem számolja ki az időt
Szépen vissza állítom ahogy kell mentés de akik a onedrive felületen dolgoznak (~40fő) náluk sokszor nem jelenik meg a dátum míg nálam asztali felületen (o365) igen, olyan mintha ez a szinkron nem kerülne át a online felülető excelre
Valakinek ötlet?

Excelhez hozzá tudok rendelni nyomtatót? Csak excelhez 1 típusú nyomtatóra lenne szükségem így az alapértelmezett nem játszik sajnos

Szia!
Nézd meg ezt a leírást]

Üdv.

Oké ezt elengedtem más megoldás esetleg:
Mitől van az ,hogy Postscript alapú nyomtatásnál nyomtatásikép esetében "nyomtató keresése" minden kis módosítás esetén előjön 1-2 mpre ami idegesítő. Pcl alapon nincs ilyen problémám de a kulcs-soft szerverén tsclientet használnak így a távoliasztalból tapasztalataim szerint csak ps alapon megy a nyomtatás illetve beállítás (egy vagy kétoldalas).
Eredetileg ezért jött az ötlet, hogy egy azon nyomtató 2x telepítve van egyik PS másik PCL alapon és kész, vagy esetleg tiltani a ps alapút a excel részére (ezek nem sikerültek )
Ami még inkább érdekes, hogy csak excel esetében van ez.

Szia!
A másik fórumban írtam már, próbáld meg a következőt:
Beállítod az Excelben a hálózati nyomtatót a nyomtatási paramétereknél.
Ezután lekérdezed és elteszed egy változóba.
pl. a=Application.ActivePrinter
Majd ezzel a változóval állítod be az Application.ActivePrintert.
Application.ActivePrinter=a
Ha elsőre hibát jelez, próbáld meg átállítani más nyomtatóra kézzel. Ezután vissza az Application.ActivePrinterrel. Esetleg nincs csatlakoztatva a nyomtató.
Elvileg ennek működnie kell, ismerősömnél működik rendesen hálózaton is.
Ez a beállítás csak az Excelben érvényes, ott változtatja meg a nyomtatási kimenetet. Ha mindig erre szeretnél nyomtatni, felveheted konstansnak az értékét.
Üdv.

[ Szerkesztve ]

Szia!

Az alábbi makrót nagyon régen hoztam létre, mert különbüző dolgokat más-más nyomtatóra kellett küldenem
Az "előkészületekhez" lásd Fferi50 válaszát:
Public Function Nyomtató_Váltás(mire As String) As Boolean
Dim sorszám As Long
Dim Hiba As Boolean

Err.Clear
Hiba = True
On Error Resume Next
For sorszám = 0 To 99
Application.ActivePrinter = mire & " a(z) Ne" & Format(sorszám, "00") & ": kimeneten"
'A "mire" a nyomtató neve, az utána lévőt változtasd meg úgy, hogy
'egyezzen a rendszer által visszaadott "mintával"
'Nálam az Application.ActivePrinter ezt adja: "szv222 a(z) Ne07: kimeneten"
'Nem mindig Ne07, ezért kell "megkeresni" a jó portszámot.
If Err.Number = 0 Then
Hiba = False
Exit For
End If
Next sorszám

Nyomtató_Váltás = Hiba

Err.Clear

End Function


'Használata (pl.):
If Nyomtató_Váltás("szv222") Then
'...
'....amit szeretnél még elvégezni nyomtatás előtt...
ActiveSheet.PrintOut
Else
MsgBox "Nincs ilyen nyomtató!!"
End If

sziasztok!
Hogyan lehet megcsinálni az lábbit?

Szia!
FKERES függvényt nézd meg légy szíves.
Üdv.

E1 cella képlete
=FKERES(D1;F:G;2;HAMIS)

"G2 Kapalpács" Ez jó, a kapa meg a kalapács keresztezéséből született új célszerszám. (Bár, lehet, hogy ez az írtókapa, mert azzal lehet kapálni is, meg ütni-verni is)

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Sziasztok, szeretnék kis segítséget kérni Tőletek!
Feltételes formázást szeretnék, mégpedig dátumra.
Adott egy halom dátum egy oszlopban, mikor megnyitom az excelt, pirossal emelje ki az egy héten belüli dátumokat, ami meg már elmúlt, azt halványítsa el. Meg lehet ezt oldani szerintetek?

"Ön fél a haláltól?" "Az élettől félek."

Sziasztok

VBA-ban szeretnék egy feltételt, egy adott makró csak akkor futhasson, ha az adott számítógépen fut. Lehet ez IP alapján, vagy számítógép név alapján, mindegy. Ezt hogyan lehetne megoldani?

Köszönöm!

Private Sub CommandButton1_Click()

Dim MySpecComputerName, MyComputerName As String

MySpecComputerName = "UBUL-PC"
MyComputerName = Environ("computername")
If UCase(MyComputerName) = UCase(MySpecComputerName) Then
MsgBox (MySpecComputerName & " gépén fut a makró")
'ide kerül a makró, amit futtatni szeretnél
Else
MsgBox (MyComputerName & " gépén NEM fut a makró")
End If

End Sub

Felhasználónevet is be lehet olvasni, ha esetleg kell: UserName = Environ("username")

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Sziasztok, Újra itt
Van olyan függvény ami x érték melleti adatott ad meg? FKERES-sel az a baj, hogy ott az x értékre csak az első x érték melleti adatott adja meg.
Van egy dátumom amihez több név tartozik szükségem lenne x dátum értékhez tartozó nevekre.
pl:
2020.01.02 RL50010160117280
2020.01.02 RL50010160117293
2020.01.03 RL50010160117307
Ezek alapján az FKERES 2020.01.02 dátumra csak a RL50010160117280 értéked adja ki.
Köszönöm előre is!

Szűrd a dátumos oszlopot, és megjelenik minden hozzá tartozó név sora. Ezeket majd másolhatod máshova.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm
Lehet, de Tekervonat sem semmi

Ha azt szeretném, hogy a b oszlop celláinak tartalma megmaradjon, ha nem talál egyezést hogyan kell?

Sziasztok!
Kis segítséget szeretnék, mert egyszerűen nem jövök rá, hogy ezt hogy lehetne képletezni.
Van 5 oszlopom:
Összeg
garancia hónapok
garanciával le nem fedett hónapok
Költség %
Teljesítés
Van egy összeg oszlop, legyen mondjuk 10000 Ft
A teljesítés dátuma, ahonnan indul a garancia: 2020.02.11
Garancia: 12
A garanciával le nem fedett azt jelenti, hogy mennyi ideig akarjuk használni az eszközt gari nélkül: 36
A költség az, hogy az összeg hány %-val számolunk a le nem fedett hónapokra éves szinten: 10% (azaz 1 évre 1000Ft)
Ezen kívül van 9 oszlop, melyben évek szerepelnek: 2021; 2022 stb.
ezekbe az oszlopokba kellene kapnom egy összeget, hogy éves szinten mennyibe kerül nekünk a termék.
Itt a példában 2021-es oszlopba 11 hónapnyi Ft kell mivel a gari véget ér 2021.02.11-én (napot hagyjuk figyelmen kívül).
További oszlopokba pedig 1 évnyi egészen 2024-es oszlopig, ahova 2 hónap kerül.
Egyáltalán meg lehet ezt csinálni képlettel?

Köszönöm.

If you chase two rabbits you will lose them both.

Bocs, ha egyértelmű kérdés, de nem jut eszembe a megoldás:

VBA-ban ki akarom cserélni az összes "-" karaktert 0-ra egy adott táblában. Ezzel nincs is semmi probléma, mert lefut a program és csinálja is amit kell.

Azt hogy mondom meg neki, hogy CSAK abban a cellában cserélje ahol nincs semmi más csak "-" karakter. Tehát pl jobbra-balra az nem jobbra0balra legyen

Sajnos ezt most nem tudom elmagyarázni, de Delila_1 majd elmagyarázza...
(rohannom kell figymarángató W10 Intel Micro-Code Update miatt, döglenek a gépek)
Delila_1  szét fogja rúgni ez miatt a seggecském, mert aki siet, az ne írogasson... (imádlak hölgyemény)  

D2 cella kódja CSE, azaz Control + Shift + Enter):
=HAHIBA(INDEX($B$2:$B$15;KICSI(HA(D$1=$A$2:$A$15;SOR($A$2:$A$15)- MIN(SOR($A$2:$A$15))+1;""); SOR()-1));"")

UI: Nem ártana, ha konkrét dolgot írnál, nem pedig utólag ilyet, hogy "zárolt Excel-t" készítek...

Itt a topikban nagyon jó arcok vannak (értsd: nem ma kezdték a szakmát és segítőkészek), de utólag nem szeretünk olyan dolgokat, mint pl esetedbe, hogy "zárolt excel", mert, akkor egész megoldás megy a retekbe...

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Köszönöm szépen!
Természetesen teljesen jogos az észrevétel nem teljes körűen kérdeztem.
A képlet átíratakor sajnos átnézve az index hibára esik mert az érték nem szám
Általam használatos képlet:
=HAHIBA(INDEX('Központból kimenő posta'!$B$2:$B$21;KICSI(HA($J$4='Központból kimenő posta'!$A$2:$A$21;SOR('Központból kimenő posta'!$A$2:$A$21)- MIN(SOR('Központból kimenő posta'!$A$2:$A$21))+1;""); SOR()-1);1;1);"")
Sajnos így nem add ki értéket, hivatkoznom kell egy másik fülről, bár nem kellene számítania

Szia!
A SOR függvénynél nem kell a másik munkalapra hivatkoznod, csak legyen ugyanaz a tartomány címe, mint a másik munkalapon (bár így is jónak kell lennie), mert ez egy "segéd" a számításhoz..
Figyeltél arra, hogy Shift+Ctrl+ Enter a képlet bevitele a végén?
Mert ez egy tömbképlet és az Excel kapcsos zárójelek közé teszi.

Üdv.

Így:
if cells(sor,oszlop) ="-" then cells(sor,oszlop)=0

[ Szerkesztve ]

Szia!
Biztos, hogy valódi "-" van abban a cellában. Nem arról van szó, hogy olyan számformátumot állítottak be, ami a 0 helyett jeleníti meg a kötőjelet? Mert ebben az esetben a számformátumot kell átállítani.
VBA-ban a Range.Replace metódusával tudsz cserélni. (Előtte a Find metódussal be kell állítani, hogy csak a teljes cella értéket cserélje.)
Tovább kérdés még, hogy nincs-e más nem látható karakter (pl. szóköz, emelt szóköz) is a kötőjel mellett a cellában.

Üdv.

Sziasztok!

Tudtok arra módot, hogy egy munkalap tartalmát könnyű szerrel kimentsem .csv állományba (igazából XML, de ez most lényegtelen szerintem) és fontos, hogy utf-8 kódolással?

Amit most használok:

Dim xml_text As Variant

'Stream létrehozása az XML-hez
Set st = CreateObject("ADODB.Stream")

'Karakterkódolás beállítása
st.Charset = "utf-8"
st.Type = 2 ' adTypeText

st.Open

xml_text = GetTextFromRangeText(XMLsablon.UsedRange)

st.WriteText xml_text

'XML mentése
st.SaveToFile ThisWorkbook.Path & "\A60_bevallás_" & Application.Text(Now(), "yyyymmdd") & ".xml", 2

A GetTextFromRangeText igazából csak annyit csinál sajnos erőforrásigényesen, hogy egy változóban összeszedem a tartalmakat. A makróm feldolgozásának közel 90%-a erre megy el

Mess with the best / Die like the rest

Szia!
Megnézted már a mentés másként file opcióit? Abban van csv és xml mentés is. Makróban SaveAs illetve SaveAsXMLData.
A help segít. (VBA nézet, Object Browser kiválaszt, beírod a keresőmezőbe a fenti kulcsszavak egyikét. Utána a felső sor utolsója a kérdőjel, a VBA helphez visz az adott kulcsszóra.)
Üdv.

Bevallom a beépített Súgót nem szoktam nézni, hanem a Google-ön keresztül Stackoverflow és pár beváltabb oldal megoldásai között szoktam szemezni.

Mess with the best / Die like the rest