Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- bambano: Bambanő háza tája
-
LOGOUT
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
-
gurabli
őstag
válasz
gurabli
#39203
üzenetére
Hátha tudtok segíteni.
Milyen szoftverrel tudnám legjobban megoldani egy word doksi automatizált összerakását?
Fix layout, mindig egy oldal. Adott helyen van egy kép, ami mindem esetben cserélődik, ahogy kb. 5 adat, amit egy Excelbol hívna be. Utóbbira még jó is lehet a Word körlevél funkciója, úgy latom meg tudom oldani a dolgot.Utána az elkészül oldalakat egyenként kellene menteni, fájlnév pedig lehet pl. a Heading1. Erre láttam fizetős megoldást, de hátha könnyen megoldható.
Ez már Word és Excel kérdés

-
Fferi50
Topikgazda
válasz
gurabli
#39201
üzenetére
Szia!
A Word körlevél funkciója lesz neked jó. A körlevél forrása az adott Excel fájl. Ha nincs benne fejléc sor, akkor tegyél bele egyet beszúrással első sornak.
Ezután összekapcsolod a Worddel és szépen kiválogatod, hogy melyik Excel oszlop hova kerüljön a Word levélben (ezek nem labelek, hanem mezők lesznek a Wordben).
Egyszer megcsinálod a körlevél "sablont", utána csak görgetni kell a rekordokat vagy meghatározhatod azt is, hogy mettől-meddig készítse el a dokumentumot.Üdv.
-
Delila_1
veterán
-
lappy
őstag
válasz
gurabli
#15620
üzenetére
Szia!
Na most az a kérdés hogy milyen sokszor szeretnéd átmásolni azt az egy képletet!
Ha viszonylag kevés cellába akkor a következőt tedd!
1. Beilleszted a képletet a megfelelő helyre.2. kijelölöd addig a sorig ameddig nem kell a képlet (mondjuk H10 ben van képlet és a következő a H16 be kell, akkor H10-H15 kijelölöd)
3. És utána a kijelölt cellánál megfogod a kis + jelet és végighúzod az oszlopon!!
-
gurabli
őstag
válasz
gurabli
#15620
üzenetére
Sajnos már nem tudom szerkeszteni. És utána egy olyan makró kellene, ami a bekerült képlet által keletkezett eredményt átalakítja értékké és nem képlet lesz. Tehát a H10, H16, H22, és így tovább cellákban szereplő szám érték lesz és a képlet eltűnik.
Tudom, hogy sokat kérek, de nagyon kellene a segítség és nagyon hálás vagyok Nektek érte!
Közben az fkeres használatát sikerült megoldanom egy youtube videó segítségével, és még működik is, a gond csak ott van, hogy azokba a cellákba, ahol az adat táblában nem szerepel adat, hibát ír ki. No, azt törlöm manuálisan.
-
Delila_1
veterán
válasz
gurabli
#15599
üzenetére
A makró beírása úgy történik, hogy Alt + F11-gyel előcsalod a VB szerkesztőt. Bal oldalon ráállsz a füzeted nevére. Insert menü | Module. Jobb oldalon kapsz egy üres felületet, oda másold be a makrót.
Visszalépsz a füzetbe, ott Alt + F8-cal bejön a makrókat tartalmazó ablak, ahonnan indíthatod a makrót.
-
Delila_1
veterán
válasz
gurabli
#15595
üzenetére
Minden feladatra van több megoldás. Lappy válasza is biztosan jó, én mást agyaltam ki.
Úgy látom a csatolt képen, hogy azon a lapon, ahonnan másolni kell, az N oszlopban folyamatosan vannak adatok, ezért ebből az oszlopból veszem az utolsó sort.
A két Set kezdetű sorban írd át a lapok nevét.Sub Tizenhat()
Dim sorIN%, sorID%, usorIN%, WSIN As Worksheet, WSID As Worksheet
Set WSIN = Sheets("Innen")
Set WSID = Sheets("Ide")
usorIN% = WSIN.Cells(Rows.Count, "N").End(xlUp).Row 'utolsó sor az Innen lapon
sorID% = 10
Do
For sorIN% = 2 To usorIN%
WSID.Cells(sorID%, "G") = WSIN.Cells(sorIN%, "N")
sorID% = sorID% + 6
Next
Loop While sorIN% < usorIN%
End Sub -
lappy
őstag
válasz
gurabli
#15595
üzenetére
Egy hasonló macro a problémára!
Sub Makró1()
For i = 0 To 298 'ez az oszlop első 298 celláját másolja
Range("A" & i + 1).Select 'másolandó cella kijelölése (pl A1, A2, stb...)
Selection.Copy 'cella másolása
Range("B" & i * 16 + 1).Select 'célcella kijelölése (pl B1, B17, B33, stb...)
ActiveSheet.Paste 'cellába másolás
Application.CutCopyMode = False 'kijelölés megszüntetése
Next
End Sub
Új hozzászólás Aktív témák
- Formula-1
- PlayStation 5
- Milyen videókártyát?
- Lenovo Legion 5i 15 notebook: légiós fegyverzetben
- Mindenkinél több és erősebb AI gyorsítót ígér Elon Musk
- Kivégezheti a kisebb VGA-gyártókat az NVIDIA döntése
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Kicsomagoljuk és bemutatjuk a Poco F8 Ultrát
- Okos Otthon / Smart Home
- Tőzsde és gazdaság
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- 24 GB-os RTX 3090 OEM
- Samsung Galaxy A71 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Apple Watch Ultra 2 49mm Cellular okosóra garanciával hibátlan működéssel
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RX 6800 16GB / 32GB DDR5 / 1TB SSD!
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
