-
Fototrend
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
-
bozsozso
őstag
Sziasztok,
Az alábbi kódrészlettel illesztek be egy word dokumentumba táblázatot valamint a végén törlöm is a forrás adatokat.
Sheets("Fej").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
.Selection.PasteAndFormat wdFormatOriginalFormatting
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("J1").ClearContents
Sheets("Fő").SelectA problémám az lenne, hogy ha a táblázat átcsúszik egy következő lapra akkor esetlegesen megtöri a cellákat és úgy folytatódik a következő oldalon. Ezt el lehet kerülni valahogy? Esetlegesen úgy kezdve a következő oldalt, hogy a forrás 1. sorával kezdjen? Így a táblázat oszlop nevei is minden oldalon látszódnának.
Előre is köszönöm a segítséget.
-
#12271
bozsozso
őstag
Fire/SOUL/CD
#12270
bozsozso
őstag
válasz
Fire/SOUL/CD
#12270
üzenetére
Köszönöm szépen erre gondoltam.
-
bozsozso
őstag
Sziasztok!
Ezzel a sorral szúrok be egy megnyitott word dokumentumba 2 dátumot:
.Selection.TypeText Text:=" " & Cells(sor, 8) & " - " & Cells(sor, 9)
A 8. és 9. oszlop tartalma is hosszú dátum formátumú. A word-be beillesztve viszont már a hónapot számmal írja. Mivel tudnám elérni, hogy a dátumot teljes hosszában kiírja tehát a hónapot betűvel.
Pl.: 2011.11.11 helyett 2011.november 11 kerülne kiírásra -
bozsozso
őstag
Biztos kezdő lesz a kérdés. Makróban a következő sorom van:
Excelben nyitok meg word-öt és azt szöveggel töltöm meg. A fejléctől kezdődően..ActiveDocument.Sections(1).Headers(1).Range = "Egy kis szöveg" & Chr(9) & Chr(9) & "Egy kis szöveg" & Cells(sor, 2) & Chr(10) & "Egy kis szöveg" & Chr(9) & Chr(9) & "Egy kis szöveg" & Cells(sor, 1) & "/" & Year(Cells(sor, 2)) & "." & Cells(sor, 3) & "Egy kis szöveg" & Chr(10) & "Egy kis szöveg" & Cells(sor, 1) & "/" & Year(Cells(sor, 2)) & "." & Chr(9) & Chr(9) &"Egy kis szöveg" & Cells(sor, 12)
Azt meg lehet valahogyan oldani, hogy a fejléc utolsó harmadába kerülő adatok mindig a harmad bal oldalán kezdődjön el így ebben a résben egymás alá íródjanak az adatok?
Valahogy így:
szöveg szöveg
szöveg szöveg
szöveg szövegMost a jobb oldalon lévő szövegek el vannak csúszva és a kezdőbetűk nem egymás alatt vannak mivel a szövegek nem egyforma hosszúságúak.
-
bozsozso
őstag
Sziasztok!
Excelben tudok olyat csinálni,hogy egy "dátumválasztó" legyen egy cellában? Mindig az adott hónapot lássam alapból, de tudjak választani másik hónapot esetleg évet is. Kiválasztva a dátumot a cella értéke ez lenne.
Formátuma teljes hosszúságú: 2011.november 29.más: makróban mivel tudom lekérdezni, hogy melyik cellán állok és annak mi az értéke?
-
-
bozsozso
őstag
Sziasztok!
Van valami képlet arra, hogy ha sorszámozni szeretnék?Azt szeretném pl.: hogy az A3-as cellától lefelé 1-től elkezdve sorszámozza a sorokat.
Eddig ezt használtam, de ha a 3-as sor elé beszúrok egy sort akkor borul az egész, tehát kényelmetlen
sor(A3)-2
Ha lenne jobb megoldás az jó lenne.
-
#11808
bozsozso
őstag
Fire/SOUL/CD
#11807
bozsozso
őstag
válasz
Fire/SOUL/CD
#11807
üzenetére
Hát ezt nem értem
Ami el volt mentve az nem ment, ahogy bemásoltam újra úgy meg igen. Nem tudom mi lehetett. -
#11806
bozsozso
őstag
Fire/SOUL/CD
#9588
bozsozso
őstag
válasz
Fire/SOUL/CD
#9588
üzenetére
Sziasztok!
A #9584-es hozzászólásban amire most is válaszolok kaptam egy tökéletesen működő kódot, elég furcsa kerekítést szerettem volna. Most ismét szükségem van rá, de nem tudom működésre bírni és nem tudom mi lehet a probléma.
A következő hibaüzenetet kapom:
Compile error:
User-defined type not defined.
Mi lehet a probléma. Először 2003-as excelben próbáltam és nem működött most pedig kipróbáltam 2010 alatt is de ott sem.
-
bozsozso
őstag
Sziasztok!
Arra van valami függvény, hogy az adott cellában mondjuk az utolsó szóköz hányadik helyen van? Szeretném az utolsó szóköz előtti karaktereket egy másik cellába helyezni.
pl.:
A1 cellában ez van:
a b c 250
A B1 cellába csak annyit szeretnék látni, hogy a b c
-
#11150
bozsozso
őstag
Fire/SOUL/CD
#11149
bozsozso
őstag
válasz
Fire/SOUL/CD
#11149
üzenetére
Hát nem konkrétan erre gondoltam, de már ebből megkaptam amit szerettem volna. Az INDIREKT függvény volt amire nekem szükségem volt csak eddig még nem ismertem.
Köszönöm a segítséget.
-
bozsozso
őstag
Sziasztok!
Azt meg tudom csinálni valahogyan, hogy egy cella tartalma alapján hivatkozzak egy munkafüzet egy munkalapjára.
Pl.:vannak január,február,március stb. nevű munkalapjaim valamint egy összesen. Ha az összesen munkalap A1 cella tartalma január és a b1 cellában úgy szeretnék megjeleníteni adatokat, hogy a tartalma =darabteli(Január!A1:M45;"találat")
Azt szeretném elkerülni, hogy a képletben található Január!-t az A1 cellából vegye
-
bozsozso
őstag
válasz
Delila_1
#10921
üzenetére
Köszönöm és bocsánat ha félreérthetően fogalmaztam.
Ez is jó lenne csak nem tudom miért, de a 2005.november 3 illetve 2005.november 16-os dátumot egyforma sorszám alá teszi.
Sőt most nézem az előzőleg használt képlet is ezt csinálja. Még csak most használom az eredeti táblázatba.
-
bozsozso
őstag
Sziasztok!
Van egy excel táblám aminek "A" oszlopában dátumok szerepelnek, de nincs minden sor kitöltve. Ez alapján szeretném a "B" oszlop dátumhoz tartozó sorába beírni, hogy az "A" oszlopban található összes dátum közül az hányadik. Tehát ha
A1 tartalma 2010.január 1
A2 mondjuk üres
A3 tartalma 2011.január 8akkor B1-be lenne 1 B2-ben pedig üres B3 tartalma pedig 2
Ha lehet akkor nem szeretnék rá makrót vagy ha úgy megvalósítható, hogy ha A oszlopba új adat kerül akkor azt vegye figyelembe a B oszlop kitöltésénél. Valószínűleg nem lesz olyan, hogy a meglévő legnagyobb dátum előtti lesz megadva.
Előre is köszönöm ha tudtok segíteni.
-
#9961
bozsozso
őstag
Fire/SOUL/CD
#9958
bozsozso
őstag
válasz
Fire/SOUL/CD
#9958
üzenetére
de akkor nállam miért nem működik? mi lehet a probléma? nekem is Win7 64bit és 2010 64bit van
-
bozsozso
őstag
Sziasztok!
Szöveg formátumot szeretnék számmá alakítani makróval. Simán úgy tudom megvalósítani, hogy pl.:A1 cellába írok egy 1-est majd A1 cella másolás kijelölöm azokat a cellákat amiket át szeretnék alakítani majd irányított beillesztés kiválasztom az értéket és a szorzást ezzel jó lesz, de hiába csináltam rá makró rögzítést nem tudom megvalósítani. Vagy erre létezik valami függévny?
Így szövegként nem tudok számolni a cella tartalommal.
Előre is köszönöm.
-
bozsozso
őstag
Miért írja ki az xls megnyitásakor a következő üzenetet?
A megnyitni kívánt fájl(fájlnév.xls) más formátumú, mint amilyet a fájlkiterjesztés jelez. A fájl megnyitása előtt ellenőrizze, hogy az nem sérült, valamint megbízható forrásból származik.Meg szeretné most nyitni?
Igen-re kattintva mind rendben megnyitja. Ezek olyan táblázatok amit makróval mentettem el. Egy munkalapot egy fájlba.
Amilyen kóddal mentettem:
usorB = Range("B5000").End(xlUp).Row
Set Wb1 = ActiveWorkbook
For a = 4 To usorB
Set Wb2 = Workbooks.Add
Wb1.Sheets("Adatlap").Range("A2") = Wb1.Sheets("Összesen").Range("D" & a)
Wb1.Sheets("Adatlap").Range("B5") = Wb1.Sheets("Összesen").Range("B" & a)
Wb1.Sheets("Adatlap").Range("B6") = Wb1.Sheets("Összesen").Range("C" & a)
Wb1.Sheets("Adatlap").Range("F6") = Wb1.Sheets("Összesen").Range("I" & a)
Wb1.Sheets("Adatlap").Range("G6") = Wb1.Sheets("Összesen").Range("H" & a)
vag = Left(Wb1.Sheets("Összesen").Range("D" & a), 15)
fnev = Replace(vag, "*", "X")
Wb1.Sheets("Adatlap").Copy Before:=Wb2.Sheets(1)
Wb2.SaveAs Filename:="E:\PC\" & vas & "\" & fnev & ".xls"
Wb2.Close False
Next aLehet vele valamit csinálni, hogy ne hozzon fel ilyen üzenetet?
Office2010
-
bozsozso
őstag
válasz
Delila_1
#9902
üzenetére
Köszönöm szépen erre gondoltam. csak most próbálom megérteni, hogy a saját kódomba át tudjam ültetni.
ha jól látom akkor csak ennyit illesztettél az erdetibe:
Range("C2:C" & usorA) = "=VLOOKUP(A2:A" & usorA & ",Munka1!A:I,8,0)"
Range("D2:D" & usorA) = "=VLOOKUP(A2:A" & usorA & ",Munka1!A:I,9,0)"
Range("A:D").Select -
bozsozso
őstag
válasz
Delila_1
#9900
üzenetére
Szia!
Az alap kód az ez lenne:
Sub Összegzés()
Dim usorA As Long, usorG As Long, usor2A As Long
Sheets("Munka1").Select
usorA = Range("A1").End(xlDown).Row 'Alsó sor a Munka1 lapon
'Irányított szűrés egyedi ('A' oszlop) értékekre a G1-be
Range("A1:A" & usorA).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("G1"), Unique:=True
'Alsó sor a G oszlopban
usorG = Range("G1").End(xlDown).Row
'Első üres sor a Munka2 lap A oszlopában
usor2A = Sheets("Munka2").Range("A5000").End(xlUp).Row + 1
'Munka1 G oszlopának másolása a Munka2 A oszlopába
Range("G2:G" & usorG).Copy Sheets("Munka2").Range("A" & usor2A)
Sheets("Munka2").Select
'Szumha képlet a Munka2!B-be
Range("B2:B" & Range("A5000").End(xlUp).Row).Select
Selection = "=SUMIF(Munka1!A:A,Munka2!A2,Munka1!B:B)"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Cells(2, 1).Select
'Munka1!G törlése
Sheets("Munka1").Columns(7).Delete
End SubAmi annyit tesz, hogy egyik munkalapról a másik munkalapra összesít azonos terméknevek mennyiségeit, de mivel ebben szerepel szerepel ár is ami az azonos termékeknél ugyan az, ezért szeretném még azt is átvinni a másik munkalapra. Ez lenne a H illetve I oszlopban.
-
bozsozso
őstag
válasz
Delila_1
#9897
üzenetére
Lehet nem láttad az előző hozzászólásom azért teszem fel mégegyszer a kérdést hátha tudsz segíteni ebben: [link]
Ez az egész makrónak már csak a vége lenne úgyhogy ha tudsz légyszíves segíts. Remélem tudsz segíteni.
Előre is köszönöm. Ha nem az sem baj akkor is köszönöm az eddigieket.
-
bozsozso
őstag
Bár még az előbbire sem találtam megoldást, de újabb problémába ütköztem
Így szeretnék másolni adott munkalapról másik munkalapra cellákat, de így az oszlopszélességek és sormagasságok nem másolódnak:Worksheets("adatlap_üres").Range("a1:I40").Copy
Cells(1, 1).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=FalseTudnnátok segíteni mit csináljak másként?
-
bozsozso
őstag
válasz
Delila_1
#9839
üzenetére
A munkalap létrehozás már sikerült, de a mondat befejezése nem.
Na ebből szeretném a termék nevekhez a "H" illetve az "I" oszlopot is hozzátenni. Az azonos termék nevekhez azonos értékű "H" illetve "I" oszlop tartozik.
Ezeket szertném még az előzőekben megadott kódoddal másolni. -
bozsozso
őstag
válasz
Delila_1
#9830
üzenetére
Tudom sok a bajom, de azt meg tudtam oldani, hogy ezekhez nevekhez vigye "magával" a hozzá tartozó sorban a közvetlen mellette levő oszlop tartalmát is, de az nem sikerül sehogyan sem, hogy pl.:az "I" vagy "K" oszlop tartalmát is
Valamint nem sikerül egy meghatározott cella tartalmával létrehoznom egy munkalapot
Ezzel próbálokoztam:
Worksheets.Add =(Range("B1")
-
bozsozso
őstag
Sziasztok!
Szeretnék egy olyan makrót ami a "Munka1" munkalap "B2" cellától lefelé amíg adatot talál a különböző megnevezéseket másolja át "Munka2" munkalap "B4" cellájától lefelé, de úgy hogy közben a "Munka1" munkalap C oszlopában található mennyiségeket összesítse a "Munka2" munkalap C oszlopában
Pl.:nem biztos, hogy sorrendben vannak a megnevezések, de ha szükséges akkor rendezem
Munka1
A 1
A 1
B 2
B 1Eredmény:
Munka2A 2
B 3Előre is köszönöm.
-
#9773
bozsozso
őstag
Fire/SOUL/CD
#9772
bozsozso
őstag
válasz
Fire/SOUL/CD
#9772
üzenetére
Köszönöm. a hétvégén mindenképpen kipróbálom.
-
#9716
bozsozso
őstag
Fire/SOUL/CD
#9715
bozsozso
őstag
válasz
Fire/SOUL/CD
#9715
üzenetére
ment és nem légipostán
-
#9714
bozsozso
őstag
Fire/SOUL/CD
#9713
bozsozso
őstag
válasz
Fire/SOUL/CD
#9713
üzenetére
mail-ben küldhetem?
-
#9710
bozsozso
őstag
Fire/SOUL/CD
#9709
bozsozso
őstag
válasz
Fire/SOUL/CD
#9709
üzenetére
Igen az első négy sor lényegtelen. Ha még azt meg tudnád oldani, hogy ne kérje be a terméknevet hanem csak összesítse az azonos terméknéven szereplő mennyiségeket. Nem akarok túl pofátlan lenni, de még majd azt is szeretném ha ezek a termékek külön munkalapon is megjelennének alatta felsorolva a telephelyeket majd mellette a mennyiségeket. Tehát új munkalap létrehozás majd pl.:a C1 cellába a terméknév utánna pedig pl. az A2-től a cellákban a telephelyek(ami fájlnév utolsó 3 karaktere) és mondjuk a B2 cellától lefelé a mennyiségek. Na de lehet ez már csak egy végső álom, mert ígyis nagyon sokat segítettél ezzel is.
Már amit eddig is csináltál azért is király vagy
Köszönöm
-
#9708
bozsozso
őstag
Fire/SOUL/CD
#9707
bozsozso
őstag
válasz
Fire/SOUL/CD
#9707
üzenetére
Azért boldog névnapot.
-
#9706
bozsozso
őstag
Fire/SOUL/CD
#9704
bozsozso
őstag
válasz
Fire/SOUL/CD
#9704
üzenetére
ok rendben jó szórakozást.
Megtaláltam a hibát. A hiba az, hogy a csv első 4 sorában olyan adatok vannak amikkel nem kellen foglalkozni, mert azok fejlécek. Vagyis 3 sor kitöltve a 4.pedig üres(excelben nézve. Ez így nagyon jó lenne ha még meg tudnád oldani hogy azokat kihagyná. Nekem nem is lenne fontos, hogy terméknevet kérdezzen hanem az összeset összesítené(csak kiszedné a terméknevet és kész). Első elgondolás az volt, hogy az összes csv-ből 1 sorba összesítse a mennyiségi értékeket, de ezt már sikerült megoldanom.
Előre is köszönöm ha holnap jelentkezel és meg tudod oldani, bár azzal ami van kis tudásom makró írásban azért bepróbálkozom addig hátha sikerülne nekem is.
-
#9698
bozsozso
őstag
Fire/SOUL/CD
#9691
bozsozso
őstag
válasz
Fire/SOUL/CD
#9691
üzenetére
most kipróbáltam és ennél a sornál megáll:
If UCase(MyStrs(4)) = UCase(UserChange) Then
runtime error'9':
Subscript out of range
-
#9696
bozsozso
őstag
Fire/SOUL/CD
#9690
bozsozso
őstag
válasz
Fire/SOUL/CD
#9690
üzenetére
igen fix helyen van benne minden adat. a termék neve mindig a 4. helyen
-
bozsozso
őstag
sziasztok!
Olyanra lenne szükségem, hogy több hasonló nevű *.csv-ből szeretném az ugyanolyan termék neveket és a hozzá tartozó adatokat kinyerni egy excelbe. A megnevezéshez mennyiségek tartoznak és ezt szeretném összesíteni belőle egy excel táblába. Valószínű de nem biztos, hogy minden csv-ben szerepel ugyanaz a megnevezés.
Ezek termék megnevezések és hozzá tartozó mennyiségek, árak. A mennyiségeket szeretném összeadni az áradatoket nem, de ha már a mennyiséget sikerülne egy táblázatba kinyernem az jó lenne. Az ár az minden telephelynél egyforma.Előre is köszönöm a segítséget.
-
#9599
bozsozso
őstag
Fire/SOUL/CD
#9596
bozsozso
őstag
válasz
Fire/SOUL/CD
#9596
üzenetére
nem tudom valamit biztosan el balfékeskedtem de nekem minden esetben 0-át ír be az adott cellába. na mindegy majd holnap megnézem mi lehet a gond.
nem is tudtam, hogy makróban ilyet is tudok írni. egyéb programokkal már próbálkoztam kisebb nagyobb sikerrel, de ezt nem tudtam, hogy ilyenre is lehet használni. na ez egy másik dolog
Köszönöm szépen ok minden rendben meg is találtam a hibát
-
#9591
bozsozso
őstag
Fire/SOUL/CD
#9588
bozsozso
őstag
válasz
Fire/SOUL/CD
#9588
üzenetére
biztos buta kérdés lesz, de ezt hogyan tudom használni?
-
#9584
bozsozso
őstag
Fire/SOUL/CD
#9582
bozsozso
őstag
válasz
Fire/SOUL/CD
#9582
üzenetére
na a 122 az nagyon jó kérdés, de mivel nem egész számokról van szó így ennek elég kicsi a valószínűsége. Az 5-re kerekítést azt meg tudtam valósítani de a 9-es az nem megy.
-
bozsozso
őstag
Sziasztok!
Ismét segítséget szeretnék kérni. Annyit szeretnék, hogy egy cella értékének kerekítése vagy 5 vagy 9 legyen.
pl.:128,75=129;131,13=129;43,1=45;46,2=45
tehát minden esetben 9-re vagy 5-re végződjön a szám attól függően, hogy melyikhez esik közelebb
Ha tudtok megoldást kérlek segítsetek.
Előre is köszönöm
-
#9487
bozsozso
őstag
Fire/SOUL/CD
#9486
bozsozso
őstag
válasz
Fire/SOUL/CD
#9486
üzenetére
köszönöm, ez szuper. A *-ot csak példának írtam nem az a karakter szerepel benne
-
bozsozso
őstag
sziasztok!
egy kis segítséget szeretnék. egy adott oszlop értékeit szeretném ősszeadni de csak akkor ha az előtte lévő oszlopban egy adott karakter szerepelpl.:
A B
* 1
* 2
- 1
* 4tehát csak azokat a B oszlop tartalmakat szeretném összeadni ami előtt A oszlopban * szerepel. Ezt meg lehet oldani valamilyen függvénnyel? tehát:1+2+4=7
a segítséget előre is köszönöm
-
#9004
bozsozso
őstag
Fire/SOUL/CD
#9003
bozsozso
őstag
válasz
Fire/SOUL/CD
#9003
üzenetére
igen csak nekem valami olyasmire lenne szükségem, hogy számolni is tudjak vele. De azért köszönöm a segítséget.
Új hozzászólás Aktív témák
Fferi50- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- BESZÁMÍTÁS! SAPPHIRE B650M R7 8700F 32GB DDR5 512GB SSD RX 6800 16GB Zalman S2 TG GIGABYTE 750W
- HP EliteBook 840 G9 i7-1265U 16GB 512GB 14" FHD+ 1 év teljeskörű garancia
- DELL Precision 5540 Workstation i7-9850H Nvidia Quadro T2000 32GB 512GB 15.6" 1év garancia
- Xiaomi Redmi Note 14 Pro+ 5G 256GB,Újszerű,Dobozaval,12 hó garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest