-
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!
Egy kis segítségre lenne szükségem. Nem tudom van-e olyan függvény vagy akármi beállítás ami a cella tartalmát ezer Ft-ban jelöli meg.
Tehát: 10000Ft-ot 10e Ft-nak vagy 100000Ft-ot 100e Ft-nak stb.
[ Szerkesztve ]
-
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.
-
bozsozso
őstag
Szuper nagyon köszönöm mindenkinek.
-
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
[ Szerkesztve ]
-
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!
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
-
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
válasz Fire/SOUL/CD #9588 üzenetére
biztos buta kérdés lesz, de ezt hogyan tudom használni?
[ Szerkesztve ]
-
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
[ Szerkesztve ]
-
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.
-
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
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
-
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.
-
bozsozso
őstag
válasz Fire/SOUL/CD #9707 üzenetére
Azért boldog névnapot.
-
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
[ Szerkesztve ]
-
bozsozso
őstag
válasz Fire/SOUL/CD #9713 üzenetére
mail-ben küldhetem?
-
bozsozso
őstag
válasz Fire/SOUL/CD #9715 üzenetére
ment és nem légipostán
-
bozsozso
őstag
válasz Fire/SOUL/CD #9772 üzenetére
Köszönöm. a hétvégén mindenképpen kipróbálom.
-
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.
[ Szerkesztve ]
-
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")
[ Szerkesztve ]
-
bozsozso
őstag
-
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
Delila_1
Ebben nem tudnál esetleg segíteni:[link] , mert sajnos azóta nem boldogulok vele.
[ Szerkesztve ]
-
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
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.
[ Szerkesztve ]
-
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
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
[ Szerkesztve ]
-
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.
Új hozzászólás Aktív témák
- Apple notebookok
- Autós topik
- A fociról könnyedén, egy baráti társaságban
- Sorozatok
- Kerékpárosok, bringások ide!
- Kínai, és egyéb olcsó órák topikja
- Vezetékes FÜLhallgatók
- Debrecen és környéke adok-veszek-beszélgetek
- Adatmentés - HDD - SSD - Flash
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Vírusirtó, Antivirus VPN kulcsok
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül