- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Szólánc.
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
-
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
-
#31000
Delila_1
veterán
zsoltzsolt
#30999
Delila_1
veterán
válasz
zsoltzsolt
#30999
üzenetére
Szívesen.
Van rá mód, de ahhoz makró kell.
-
#30998
Delila_1
veterán
zsoltzsolt
#30997
Delila_1
veterán
válasz
zsoltzsolt
#30997
üzenetére
Beírod a bal felsőbe (D5), és húzással másolod jobbra, ill. le.
-
#30996
Delila_1
veterán
zsoltzsolt
#30995
Delila_1
veterán
válasz
zsoltzsolt
#30995
üzenetére
Egyszerű kipróbálni. Készíts pár másolatot a Logopédia lapról – Ctrl billentyűt nyomva tartod, és a lapfület jobbra húzod. Adj nevet a lapoknak.
Írja be mindegyikre 1-1 adatot, a gyűjtő (első) lapra vidd be a képletet.
-
#30995
zsoltzsolt
addikt
Delila_1
#30994
-
#30994
Delila_1
veterán
zsoltzsolt
#30993
Delila_1
veterán
válasz
zsoltzsolt
#30993
üzenetére
Akkor nagyon egyszerű a dolog.
A lapokat L1, L2, L3, stb-nek neveztem el. A gyűjtő lap D5 cellájának (tónusos dadogás oviba nem járó gyerekeknél) képlete:
=SZUM('L1:L3'!D5)
Az egyes lapok neve lehet a pedagógusok neve is. Az első, és az utolsó lap nevét kell beírni a képletbe.
Az összegző sor képlete maradjon =SZUM(D5:D12). -
#30993
zsoltzsolt
addikt
zsoltzsolt
#30992
zsoltzsolt
addikt
válasz
zsoltzsolt
#30992
üzenetére
Tulajdonképpen nyitott vagyok bármilyen megoldásra. Vagyis gondolkoztam azon, hogy pl. egy Excel-ben csak a logopédia van, annyi lap, ahány szakember, és azon belül pl. az első lapon összesíti egy ugyanolyan táblázatban az adatokat, amiket a többi lapon a szakemberek töltenek.
-
#30992
zsoltzsolt
addikt
Delila_1
#30991
zsoltzsolt
addikt
válasz
Delila_1
#30991
üzenetére
Ez lenne az, ez a kissé bonyolultabb táblázat.
Ezt az Excel munkafüzetet küldöm ki a munkatársaknak, ők beírják az adataikat. Minden munkatárs azt a lapot tölti ki, ami rá vonatkozik.
Nálam sok logopédus dolgozik, az ő lapfülükön sok az adat, azok összesítésére keresek megoldást.
Mert tízenvalahány ilyen lapról összeírni az adatokat sok hiba lehetőséget rejt és igen macerás feladat.
A táblázatElőre is köszönöm a segítséget!
-
#30991
Delila_1
veterán
zsoltzsolt
#30990
Delila_1
veterán
válasz
zsoltzsolt
#30990
üzenetére
Tegyél ki elérhető helyre 1 füzetet a sok közül, hogy lássuk a felépítését. A valódi nevek helyett írj Név1, Név2-t, mert ezek nem publikusak.
-
#30990
zsoltzsolt
addikt
DrojDtroll
#30989
zsoltzsolt
addikt
válasz
DrojDtroll
#30989
üzenetére
Na de van olyan cella, amibe csak logopédusok írnak, mondjuk 10-en, akkor rmindenkinek hozzá kell adni a már bent lévő számhoz. Ezt akarom kikerülni. Írod, hogy másik táblában összesíteném, azt hogyan, összeadom fejben, majd beírom, Kissé elakadtam
-
#30989
DrojDtroll
veterán
zsoltzsolt
#30988
DrojDtroll
veterán
válasz
zsoltzsolt
#30988
üzenetére
És ha ő csak annyit írna egy táblába hogy 14?
Mindenki írná a dolgokat egy táblába a megfelelő helyre.
És egy másik táblában mindig összesítenéd ennek a táblának az eredményét.
Minden hónapban lehetne új tábla. Így mindenki csak a saját értékét írja, és ha nem ír be rossz számot akkor nem is ront.
-
#30988
zsoltzsolt
addikt
DrojDtroll
#30987
zsoltzsolt
addikt
válasz
DrojDtroll
#30987
üzenetére
De, volt olyan is, de akkor mindenkinek külön rovata volt. De van vagy 10 logopédus, akiknek a logopédia rovatba kéne beírni mondjuk, hogy hány gyerek vár ellátásra. Vagyis így nem tudnám ki írta már be és hogy jól adta a pl. már bent lévő adathoz, a 123-hoz pl.14-et
Az online táblázatokat én is jobb szeretem, de ebben az esetben még nem jöttem rá, hogy mi lenne a legegyszerűbb. -
#30987
DrojDtroll
veterán
zsoltzsolt
#30986
DrojDtroll
veterán
válasz
zsoltzsolt
#30986
üzenetére
Nem lehet, hogy jobb volna ha egy felhőben megosztott közös táblázaton dolgoznának?
-
#30986
zsoltzsolt
addikt
DrojDtroll
#30985
zsoltzsolt
addikt
válasz
DrojDtroll
#30985
üzenetére
Egyelőre szenvedek
Az a baj, hogy havonta kérek be Excel fájlban adatokat, gyerek várólistája. Fel van sorolva az A13 cellától lefelé a szakfeladatok elnevezései, és mindenki beírja a B13-tól lefele a nála várólistán lévő gyerekek számát. Vagyis egy igen egyszerű táblázat. Csak macerás havonta 20-40 számú táblázat adataiból összesítést (egyesével kiírogatni, stb, sokszor azt se tudom melyikből írtam ki az adatokat). Vagyis egy szerintem egyszerű, azonban nekem egyelőre megoldhatatlan feladat ez, vagyis megoldom, csak jóval egyszerűbben szeretném, mint manuális összeadásokkal.
Lehet az is, hogy valami más alap táblázatot kéne tölteniük, még nem tudom, még nem jöttem rá mi lehet a jó megoldás, pedig érdekel a dolog é jelenleg ok munkaórám megy el egy ilyenre. -
#30985
DrojDtroll
veterán
zsoltzsolt
#30984
DrojDtroll
veterán
válasz
zsoltzsolt
#30984
üzenetére
Nincs mit. Így menni fog?
-
#30984
zsoltzsolt
addikt
DrojDtroll
#30983
zsoltzsolt
addikt
válasz
DrojDtroll
#30983
üzenetére
Köszi szépen, átnézem!
-
#30983
DrojDtroll
veterán
zsoltzsolt
#30982
DrojDtroll
veterán
válasz
zsoltzsolt
#30982
üzenetére
-
#30982
zsoltzsolt
addikt
DrojDtroll
#30980
zsoltzsolt
addikt
válasz
DrojDtroll
#30980
üzenetére
Köszi, nézem. De magyar nyelvű leírás is van valahol? A videó se egy jó minőség..
-
#30980
DrojDtroll
veterán
zsoltzsolt
#30979
DrojDtroll
veterán
válasz
zsoltzsolt
#30979
üzenetére
-
#30979
zsoltzsolt
addikt
zsoltzsolt
addikt
Remélem le tudom írni érthetően a problémám.
Szóval adott x számú excel tábla, abban kész táblázatok, amibe a kollégák adatokat töltenek.
Hogy tudok ebből az x számú táblázatból egyet csinálni, vagyis, hogy a beírt adatokat (számok) összesítse és ne kelljen manuális beírogatni egy ugyanolyan üresbe, mindig hozzáadva az új értékeket? -
#30977
Fferi50
Topikgazda
DrojDtroll
#30975
Fferi50
Topikgazda
válasz
DrojDtroll
#30975
üzenetére
Szia!
Egy szép tömbképlettel kaphatod meg az eredményt:
=INDEX(A2:A9;HOL.VAN(MAX(((B2:B9="a")*C2:C9));C2:C9);0))
A tömbképletet Ctrl+Shift + Enter kombinációval kell bevinni, arról ismered meg, hogy kapcsos zárójelek közé kerül. Ha nem így viszed be, akkor Hibát fogsz eredményül kapni.
Üdv.
-
Fferi50
Topikgazda
Szia!
A titok az szerintem, hogy a feltételben szereplő dátumokat a dátum függvénnyel kell megadni:
pl. B2 cella képlete:=">=" & DÁTUM(2016;1;1), amit az excel számmá fog alakítani >=42370 (de ez ne zavarjon!, mert így biztosan működik), de használhatod a Dátumérték függvényt is a megfelelő szövegformátumban megadott dátummal.
Makróval pedig a Dateserial ill. a Date függvényt haszálhatod:
Range("B2").Formula="="">="" & DATE(2016,1,1)
Ráadásul a makrónál biztos lehetsz benne, hogy minden nyelvi környezetben megfelelően működik, mert ebben így az angol nyelvű formulákat kell alkalmazni.Üdv.
-
#30975
DrojDtroll
veterán
DrojDtroll
veterán
Hogyan nézem meg egyetlen függvény segítségével, hogy melyik név tartozik az "a" típusú elemek közül a legnagyobb értékhez? Máshogyan megfogalmazva: annak az "a" típusú elemnek a nevét keresek, amelyiknek az értéke(harmadik oszlop) a legnagyobb.
-
igort
újonc
válasz
Fferi50
#30970
üzenetére
szia !
persze próbáltam , de érdekes, néha valamiért működik nekem is, de ez a ritkább (:
http://indabox.hu/cxw7Roide tettem fel, épp olyan állapotban, amikor nem működik
a Makró1 alatt van a filter.
aztán, mivel kellett megoldás, ha lecserélem a dátumot mondjuk ilyen formára (2015u01u01),
akkor működik, de ez így röhej.
előre is köszönöm a fáradozásod -
#30972
Fferi50
Topikgazda
DrojDtroll
#30971
Fferi50
Topikgazda
válasz
DrojDtroll
#30971
üzenetére
Szia!
Hozzáfűzöd a szó után a KARAKTER(10) függvényértéket (ami a sorvéget jelenti).
Az ÖSSZEFŰZ függvény helyett bátran használd a & (ampersand) karaktert, rövidebb és egyszerűbb is:=Összefűz("Kalap";Karakter(10);"Kabát") helyett ="Kalap" & Karakter(10) & "Kabát"
Üdv.
-
#30971
DrojDtroll
veterán
DrojDtroll
veterán
Adott egy cellában egy Összefűz függvény.
Be van állítva a sortörés a cellára.
Hogyan tudom elérni, hogy egy bizonyos, de mindig változó szó mindig új sorba kerüljön?
-
Fferi50
Topikgazda
Szia!
Igen, a dátum elég kacifántos, bár nálam 2010-es excel alatt szépen elfogadta.
Szerintem tedd fel pár sorral egy elérhető helyre és megnézzük.
Az excel a dátumot egyébként számként kezeli, a keresésekben általában az angol dátumformátum a nyerő, esetleg próbáld meg úgy... (Bár nálam a magyarral ment.)Üdv.
-
#30967
Fferi50
Topikgazda
tonermagus
#30966
Fferi50
Topikgazda
válasz
tonermagus
#30966
üzenetére
Szia!
Örülök, hogy sikerült!
Üdv.
-
#30966
tonermagus
aktív tag
Fferi50
#30965
-
#30965
Fferi50
Topikgazda
tonermagus
#30963
Fferi50
Topikgazda
válasz
tonermagus
#30963
üzenetére
Szia!
Az első képedből az látszik, hogy nincsenek ott a felkiáltójelek a szövegben! A képlettel módosított szöveget kell értékként beilleszteni egy új oszlopba és azt tudod szétszedni, nem az eredetit.
Üdv.
-
#30964
maestro87
őstag
BigBadPlaYeR
#30959
maestro87
őstag
válasz
BigBadPlaYeR
#30959
üzenetére
Köszi, de ennyire nem értek hozzá.
C-ben számokat összehasonlítani nem lenne gond, de az Excel függvények elnevezését, parancsait nem vágom. (soha nem írtam még szkriptet Excel-ben)
Az URL címet sem tudom kiolvasni a link mögül.
Ezért egy teljes kódot megköszönnék.
Egyébként google táblázatokban is van szkript szerkesztésre lehetőség, meg lehet ha elkészítem excel-ben, akkor működni fog ott is, de ha mégsem akkor még mindig át lehet térni Online Excel használatra, abban talán már működne.
Amúgy jelenleg nem kell dinamikus tömb, fixen 5(sor)x60(oszlop)-as a táblázat ami a linkeket tartalmazza. -
#30963
tonermagus
aktív tag
tonermagus
#30962
tonermagus
aktív tag
válasz
tonermagus
#30962
üzenetére
-
#30961
Fferi50
Topikgazda
tonermagus
#30960
Fferi50
Topikgazda
válasz
tonermagus
#30960
üzenetére
Szia!
Csak az első oszlopot kell kijelölni, a többit "magától" kitölti.
Üdv.
-
#30960
tonermagus
aktív tag
Fferi50
#30956
-
#30959
BigBadPlaYeR
senior tag
maestro87
#30957
BigBadPlaYeR
senior tag
válasz
maestro87
#30957
üzenetére
Szia!
A rövid válasz: Excelben határozottam meg lehet csinálni.
Kicsit hosszabban:
Pont a héten csináltam ilyesmit VBA-ban:- Táblázat formátumba raktam az adatokat (így lehet relatívan hivatkozni, ha később bővül a tábla, nem kell átirogatni a makrót)
- Gomb megnyomásakor (a te esetedben a táblázat változáskor) kiolvassa a formázott táblázat sorainak számát; a sorok számának megegyező lépésben beolvassa egy dinamikus Array-be egyesével az értékeket (For..Loop). Tehát egy listában meg van, hogy milyen cikkszámok (eseteben linkek) vannak beírva.
- A frissen készített listánk minden egyes elemét összehasonlítjuk az éppen beírt cella értékével (szintén For..Loop).
- Ha nincs egyező, akkor nincs külön intézkedés.
- Ha van egyezés, akkor tetszőleges intézkedés következik. Nálam kitörli a cellát. De jöhet figyelmeztető üzenet is, vagy pirosra színezi a hátteret, stb.Google táblázatban szerintem sanszos, hogy nem megy.
-
#30958
Anonymus23
veterán
BigBadPlaYeR
#30954
Anonymus23
veterán
válasz
BigBadPlaYeR
#30954
üzenetére
Köszönöm, akkor sajnos ez 2010-es fícsör.
A 2-es megoldást csinálom, csak amikor 5-6 fájllal kell dolgozni, akkor kicsit bosszantó, hogy ide-oda kell ugrálni. Nah mindegy, ez van. Köszönöm a választ. -
maestro87
őstag
Sziasztok!
Excel 2016-ban szeretném azt megcsinálni, hogy egy tartomány celláiban url linkek szerepelnek és ha egy új már meglévő linket szeretnék felvenni egy üres cellába (ugyanazon tartomány) akkor azt ne engedje beírni még egyszer vagy térjen vissza a cellában egy hiba üzenettel vagy egy nulla karakterrel, tökmindegy de legjobb lenne ha nem engedné felvenni azt a linket.
A linkek megjelenítési nevét ne vegye számításba a függvény/szkript/makró, mert vannak megegyező nevűek és különbözőek is! Meg lehet ezt csinálni?
Egyébként google táblázatokban kellene a megoldás, de az Excel is már félsiker lenne. -
#30956
Fferi50
Topikgazda
tonermagus
#30955
Fferi50
Topikgazda
válasz
tonermagus
#30955
üzenetére
Szia!
Sajnos az derült ki, hogy az elválasztó nem egy, hanem két karakter (soremelés kocsivissza - CRLF, aminek a kódja 13 és 10 ebben a sorrendben), ezért egy kis trükköt kell alkalmazni:
Az L2 cellába írd be az alábbi képletet:
=HELYETTE(K2;KARAKTER(13)&KARAKTER(10);"!")A felkiáltójel helyett írhatsz pontosvesszőt is akár, de nekem most ez esett kézre.
A képletet végighúzod az oszlopon.
Ezután kijelölöd az egész oszlopot, másolás - irányított beillesztés értéket.Ez a halmaz már alkalmas az adatok - szövegből oszlopok végrehajtására, az elválasztó karakter egyéniben a felkiáltójel, illetve a pontosvesszőt csak be kell jelölnöd.
Üdv.
-
#30955
tonermagus
aktív tag
Fferi50
#30952
-
#30954
BigBadPlaYeR
senior tag
Anonymus23
#30947
BigBadPlaYeR
senior tag
válasz
Anonymus23
#30947
üzenetére
Szia!
Sajnos a régebbi Excel verziók még alapból ugyanabban az ablakban nyitják meg a fájlokat. De van rá 2 megoldás is:
1) Nézet menü -> Mozaik parancs. Ezen belül én az egymás mellett/alatt opciókat preferálom.
2) Ha mindenképp 2 külön ablak kell, akkor start menüből indíts egy új Excel ablakot és a megnyitás paranccsal nyisd meg a kívánt xls-t. Így már külön ablakban jelenik meg.
-
#30952
Fferi50
Topikgazda
tonermagus
#30950
Fferi50
Topikgazda
válasz
tonermagus
#30950
üzenetére
Szia!
Mondanám, hogy ennek nem lenne szabad megtörténnie ... de nyilván megtörtént.
Pár soros mintát tégy fel légy szíves valahova (pl. data.hu), ahonnan elérhető és megnézhető.Üdv.
-
#30949
Neil Watts
veterán
Neil Watts
#30945
válasz
Neil Watts
#30945
üzenetére
Túlkombináltam a feladatot illetve a megfeleő specifikáció után egy VLOOKUP megoldotta
Üdv. core2
-
#30948
Fferi50
Topikgazda
Exportlaptop
#30942
Fferi50
Topikgazda
válasz
Exportlaptop
#30942
üzenetére
Szia!
Semmi akadálya annak, hogy a képeket egy külön munkalapra betedd (Beszúrás - kép), majd erre állítsd be a hivatkozást, viszont azt tudni kell, hogy ekkor a fájlod mérete "rettenetesen" megnő, hiszen fizikailag tartalmazza a képek adatait, ami nem kevés. Ez pedig a megnyitásnál hosszadalmas.
Ha viszont ugyanabban a mappában vannak a képek is, mint az excel fájl maga, akkor gyors a megnyitás és meg is találja, ha nem abszolut hivatkozást használsz. Ekkor az egész mappát kell átadni a másik félnek.Üdv.
-
#30947
Anonymus23
veterán
Anonymus23
veterán
Egy kis segítséget szeretnék kérni megint:
Office 2010 + w7 x64.
Kaptam most egy másik monitort is, hogy több fájlt megnyitva tudjak könnyebben dolgozni, viszont egy furcsaság akadályoz ebben.
Mégpedig az, hogy nem tudom a megnyitott excel fájlokat külön monitorra tenni. Előző melóhelyen Office 2013 volt ott minden további nélkül minden fájt külön helyre rakhattam.
Először azt gondoltam, hogy a 2010 ilyen, de pl a Word fájlokat meg engedi külön monitorra tenni.Ez ilyen, vagy valami beállítást kellene átállítanom? Próbáltam keresni ilyen ablak elrendezést, de vagy kiveri a szemem és nem találom, vagy jól el van dugva, már ha egyáltalán lehet ilyet..
Előre is köszönöm ha valaki segíteni tudna!
-
igort
újonc
Kedves fórumozók !
A következő probléma megoldáshoz kérnék segítséget.
Szeretnék használni egy speciális szűrést makróban, ami nem működik,miközben ha excelben csinálom, simán leszűria Makró:
Sheets("Basic").Select
lastrowd = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:AG" & lastrowd).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("fil"), Unique:=Falsea feltétel:
Company InvoiceDate InvoiceDate InvoiceDate InvoiceDate
HUN >=2015.02.01 <=2015.02.28
HUN >=2016.02.01 <=2016.02.29az állomány:
Company Actuality Year Quarter Period Week DateInvoiced InvoiceDate ORIGSALESID
HUN AC 2015 Q1 1 1 2015.01.15 2015.01.01 SO21005161persze ilyen sorokból több mint 10000 van. a sorok is hosszabbak, de eddig érdekes.
office 2016a fil a range neve a feltételnek, ami 3sor, 5 oszlop
az InvoiceDate dátum típusu.előre is köszönöm a segítséget
sajna elcsúsznak az adatok, talán képpel
-
#30945
Neil Watts
veterán
Sziasztok!
Lenne egy kérdésem:
Vannak szöveges adataim egy oszlopban, mellette egy másik oszlopban számok melyek összetartoznak.
Pl. E2-es oszlop értéke: 10000
G2: = " = "& + $E$2/263
H2: mindig változó egy dropdown alapján.A dropdown-t már összepakoltam a szöveges adatok alapján, ám azt nem tudom hogy tudnám elérni, hogy a dropdown eleme (B oszlop) és értéke (C oszlop) összetartozzon, magyarán az értékváltásnál automatikusan változzon a végredmény.
Remélem érthetően sikerült elmagyaráznom.
Köszi!Üdv. core2.
-
#30944
igort
újonc
Exportlaptop
#30943
igort
újonc
válasz
Exportlaptop
#30943
üzenetére
Köszönöm !
-
#30940
Fferi50
Topikgazda
Exportlaptop
#30938
Fferi50
Topikgazda
válasz
Exportlaptop
#30938
üzenetére
Szia!
Szerintem az a probléma, hogy a képek nincsenek benne magában az excel fájlban, csak a rájuk mutató hivatkozás - ami viszont nyilván a te gépedre mutat. Ezért a külön képfájlt is el kellene küldeni az excel mellé ugyanabba a könyvtárba, továbbá a hivatkozást úgy lenne jó megcsinálni, hogy azonos könyvtárban van a két fájl, akkor nem kell a teljes név, elég a rövid név hozzá.
Üdv.
-
#30939
Fferi50
Topikgazda
tonermagus
#30937
Fferi50
Topikgazda
válasz
tonermagus
#30937
üzenetére
Szia!
Adatok - szövegből oszlopok - tagolt - szöveg - a következő panelen határoló jelnél egyéb - ide beteszed a soremelés karaktert :Alt + numerikus billentyűzeten 10 vagy 13 ezt próbáld ki, hogy melyik műxik. Úgy tudhatod meg legegyszerűbben, milyen számot kell bebillentyűzni, ha a mellette levő cellába beírod ezt a képletet:
=KÓD(KÖZÉP(E3;2;1))
Ezt kell a numerikus billentyűzeten megadni határoló karakternek.
Utána már csak arra kell vigyáznod, hogy ne írd felül az eredeti cellát.Üdv.
-
#30938
Exportlaptop
csendes tag
Delila_1
#30933
Exportlaptop
csendes tag
-
#30937
tonermagus
aktív tag
tonermagus
aktív tag
Halihó!
Gondom van: hogy lehetne szétszedni ezt az oszlopot? Cafeteria program generál egy xls fájlt, amibe egy cellába teszi be a szépkártyára kért összeget (E2)... Ezeket kellene szétbontanom úgy, hogy ami most egy cellában van egymás alatt (E2), az egymás mellet külön cellában jelenjen meg ? (F3-J3)
-
#30936
Exportlaptop
csendes tag
Delila_1
#30933
Exportlaptop
csendes tag
-
#30933
Delila_1
veterán
Exportlaptop
#30931
Delila_1
veterán
válasz
Exportlaptop
#30931
üzenetére
Vagy üres sor volt ott, vagy olyan képnév, amit nem talált az adott mappában.
A .Height = Rows(sor).Height
sor végére írd be: *4 -
#30931
Exportlaptop
csendes tag
Delila_1
#30930
-
#30930
Delila_1
veterán
Exportlaptop
#30929
Delila_1
veterán
válasz
Exportlaptop
#30929
üzenetére
Nem sokat kell változtatni.
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"
sor = 2
Do While Cells(sor, "H") <> ""
Kepneve = Cells(sor, "H")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(9).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End Sub -
#30929
Exportlaptop
csendes tag
Delila_1
#30928
Exportlaptop
csendes tag
válasz
Delila_1
#30928
üzenetére
Köszönöm a választ. F8-al nem indul el valamiért, az alábbit írtam be, helyes?
Ismétlem a képek neve jpg. kiterjesztéssel a H oszlopban van, én pedig az I oszlopba akarom helyezni a miniatur képeket cellánként az összeset. Kb 16 ezer sorról van szó.Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Longutvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"
sor = 2
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(8).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End Sub -
#30928
Delila_1
veterán
Exportlaptop
#30927
Delila_1
veterán
válasz
Exportlaptop
#30927
üzenetére
-
#30926
Delila_1
veterán
Exportlaptop
#30925
Delila_1
veterán
válasz
Exportlaptop
#30925
üzenetére
Másold be modulba a lenti makrót (lásd Téma összefoglaló).
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\Képek\Almappa\" '***
sor = 2
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(8).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End SubA ***-os soba a saját útvonalad kerüljön.
A *****-os sornál nem kell az & ".jpg", ha a kiterjesztést tartalmazzák a képnevek. Ha más a kiterjesztés, azt írd a jpg helyére. -
#30925
Exportlaptop
csendes tag
Delila_1
#30922
Exportlaptop
csendes tag
válasz
Delila_1
#30922
üzenetére
Közben sikerült megcsinálni, köszönöm a segítséget!
Lenne még egy olyan kérdésem, hogy hogyan lehet tömegesen beszúrni minden sorba egy egy képet a termékeimről?
Meg van adva a H oszlopba a képek neve, és be szeretném illeszteni mondjuk az I oszlopba a kepeket miniatűr formában csak épp látható legyen kicsiben. Lehetséges ez?Köszönöm mégegyszer a hasznos tippeket!
-
#30924
Delila_1
veterán
Exportlaptop
#30923
Delila_1
veterán
válasz
Exportlaptop
#30923
üzenetére
A két füzetet azonos mappába tettem, Az elsőt angol.xlsx, a másodikat (ez az érdekes, mert innen veszi az angol az adatokat) magyar.xlsx néven mentettem. A kérdéses lapok neve is Angol és Magyar.
Az angol.xlsx Angol lapján a B2 képlete:
=INDEX('[magyar.xls]Magyar'!A:C;HOL.VAN(C2;'[magyar.xls]Magyar'!C:C;0);2)Ha nem azonos mappában vannak, akkor az útvonalat is be kell írnod.
-
#30923
Exportlaptop
csendes tag
Delila_1
#30922
Exportlaptop
csendes tag
válasz
Delila_1
#30922
üzenetére
Mint már írtam, abszolút kezdő vagyok és szükségem lenne egy bővebb, butított magyarázatra amennyiben időd engedi.
Ezt a függvényt egy az egybe bemásolom a B oszlop celláiba. De hogyan fogja megtalálni a másik excelemben levő adatokat? A kettes excel egy külön excel. Vagy be kellene másolnom az egyes excelbe először?Üdv
-
#30922
Delila_1
veterán
Exportlaptop
#30921
Delila_1
veterán
válasz
Exportlaptop
#30921
üzenetére
Címsort feltételezve az első lap B2 cellája
=INDEX(Magyar!A:C;HOL.VAN(C2;Magyar!C:C;0);2)
Ezt másold le a többi adatod mellé.
-
#30921
Exportlaptop
csendes tag
Exportlaptop
csendes tag
Sziasztok!
Exceles kezdő vagyok, segítségetek szeretném kérni.
2013-as magyar excelt használok.
Van 2 excelem.
1. excelben A oszlopban angol szöveg van, B oszlop üres, C oszlop egyedi kód. Vannak további oszlopok is, jelen esetben lényegtelen.
2. excelben A oszlopban szintén angol szöveg, B oszlopban magyar fordítás, C oszlop egyedi kód.
A második excel egy része azonos az első excelben levőkkel. Ezeket C oszlopból lehet azonosítani.
Kérdés: Hogyan lehet a két excelt úgy összehasonlítani, hogy a második excel C oszlopában levő egyedi kód szerint beazonosítsa az első excelben levő adatokat és a második excel B oszlopában levő magyar fordítást áthelyezze az első excelben levő B oszlopba úgy, hogy a mellette levő egyedi kód stimmeljen?
Előreis köszi! -
fukyu
tag
válasz
cellpeti
#30917
üzenetére
Az adatexport részét nem látom át. Azt hogyan képzelted? A gépedre letöltött másik excel táblából szinkronizálná az adatokat? Így pl megoldható lenne. Ha valami másik (mondjuk webes) rendszerből kéne adatokat nyerni, az már nyilván bonyolítja.
Minden más dolog egész biztos megoldható, a PowerPivot kiegészítővel szemezgess.
-
fukyu
tag
válasz
cellpeti
#30915
üzenetére
PowerPivot-al meg lehet csinálni szvsz, legalább is azt a részét, hogy az adott kód beírását (vagy inkább kiválasztását) követően mindenféle grafikont és egyéb adatot listáz róla. Ilyet már csináltam én is, de nem 5 perc összerakni egy ilyet erre célzott a kolléga is, nem biztos, hogy valaki nekiáll ilyet csinálni neked itt most
-
cellpeti
nagyúr
sziasztok!
A következő elképzelésem lenne.
Hiperbe dolgozom. ÉS jó lenne egy olyan Excel tábla, ami hetenkénti fogyást mutatja és ezt ábrázolja grafikonon, heti lebontástban, dátumokkal együtt.
Na most.
Beírnám a 6 jegyű kódot ami a termékhez van. Ezt a 6 jegyű kódot lehúzná egy adott adatbázisból. Melléhúzná az EAN kódot, nevet, hogy milyen folyamaton jön, hogy kötelező e tartani...stb. és hogy mennyi az aktuális készlet, és mennyi fogyott az adott héten.
A következő lépcsőfok az lenne, hogy erre létre kéne hozni egy sablont és 6 jegyű kódot mindig változtatva, írja ki a dolgokat és rajzolja ki a diagramot.
Ilyen lehetséges-e?
-
-
Carasc0
őstag
válasz
Delila_1
#30906
üzenetére
Megpróbálom elmagyarázni!
Tehát van az a generáló és rendező kód, amit még az elején linkeltem, amire mondtam is hogy tök jól működik. Na most azt csináltam, hogy az A oszlopba nem sázmokat írtam hanem szavakat. Ezeket nekem a B oszlopba össze is keverte. A B oszlop kevert tagjai között van olyan amit piros betűszínnel jelöltem meg.
A B oszlop tagjait egyenként egy bizonyos cellatartományba, sima cellahivatkozással elsorakoztattam. A gond már csak azzal van, hogy amit a B oszlopban piros színnel jelöltem meg, az a megadott cellatartományban is piros színnel jelenjen meg.
Odáig eljutottam, hogy ha az A oszlopban 1-2 tagot pirossal megjelölök, azok a keverés oszlopában (B) is pirossal jelennek meg, csak nyílván más helyen hiszen ez a keverés lényege. De amikor a B oszlop tartalmát felhasználom, akkor a céltartományban nem jelenik meg pirossal az a hivatkozott cella, ahol szöveg piros.
Tehát ha egy keverés úgy jön össze, hogy mondjuk a B1-be kerül a piros színű szó, és mondjuk a D1-be azt írom hogy =B1, akkor a D1-be már nem lesz piros.
-
Delila_1
veterán
-
Delila_1
veterán
A lenti makróban meg kell adnod a keresendő dátumot, és a sor számát, ahol keresel.
Ellenőrzi a bevitt értéket. Két sort megjegyzésbe tettem, azokban megadhatod, hogy nem lehet a dátum éve kisebb, mint az idei, ill. nem lehet kisebb a mai dátumnál.
Sub DatumHelye()
Dim Kelt As String, oszlop, sor As Long
sor = Application.InputBox("Melyik sorban keressünk?", "Sorszám bekérése", , , , , , 1)
Kelt = Application.InputBox("Add meg a dátumot!", "Dátum bekérése", , , , , , 2)
'Ellenőrzés
If Len(Kelt) <> 10 Then GoTo Hiba
If Mid(Kelt, 5, 1) <> "." Then GoTo Hiba
If Mid(Kelt, 8, 1) <> "." Then GoTo Hiba
If Mid(Kelt, 6, 2) > "12" Then GoTo Hiba
If Right(Kelt, 2) > "31" Then GoTo Hiba
If Not IsNumeric(Left(Kelt, 4)) Then GoTo Hiba
If Not IsNumeric(Mid(Kelt, 6, 2)) Then GoTo Hiba
If Not IsNumeric(Right(Kelt, 2)) Then GoTo Hiba
'If Left(Kelt,4)*1 < Year(Date) Then Go To Hiba
'If CDate(Kelt) *1 < Date Then GoTo Hiba
Select Case Mid(Kelt, 6, 2)
Case "02"
If Left(Kelt, 4) / 4 <> Int(Left(Kelt, 4) / 4) And Right(Kelt, 2) > 28 Then GoTo Hiba
Case "04", "06", "09", "11"
If Right(Kelt, 2) > 30 Then GoTo Hiba
End Select
If Left(Kelt, 4) / 4 = Int(Left(Kelt, 4) / 4) And Mid(Kelt, 6, 2) = "02" _
And Right(Kelt, 2) > 29 Then GoTo Hiba
'Keresés
oszlop = Application.Match(CDate(Kelt) * 1, Rows(sor), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Kelt & " dátum a " & sor & ". sorban", vbOKOnly + vbInformation
Else
MsgBox "A " & Kelt & " dátum a(z) " & sor & ". sorban, a(z) " & oszlop & ". oszlopban található.", vbOKOnly + vbInformation
End If
Exit Sub
Hiba:
MsgBox "Hibás dátum!", vbOKOnly + vbCritical
End Sub -
gdodi
csendes tag
válasz
Delila_1
#30838
üzenetére
Kedves Delila!
Sajnos nem láttam amit küldtél, mert régóta nem voltam net közelben. Most pedig már nem hoz fel semmit a link. Megtennéd, hogy ismét elküldöd valami módon? Sajnos túl értékeltem magamat, nem tudtam megoldani a problémámat.
Makróból az InputBox függvénnyel bekérek egy dátumot, amit meg akarok keresni. A kapott dátumot a formátuma miatt nem tudom megtalálni, és akármit próbálok vele, sehogy sem sikerül. Mi lehet az oka?Köszönet a segítségért!
-
-
Fferi50
Topikgazda
válasz
PistiSan
#30899
üzenetére
Szia!
Bár nem tudom, mit jelent, hogy más képleteket is szeretnél alkalmazni, de hidd el, a legegyszerűbb a szövegből oszlopok, ahol meg tudod adni a határoló karaktert is, bármit választhatsz.
De képlettel az alábbiak szerint lehet megoldani szerintem:
Az A1 cellában van a szétbontandó szöveg.
A B1 cellába beírod a következő képletet:=KÖZÉP(A1;SZÖVEG.KERES(",";A1)+1;HOSSZ(A1))
Ezt végihúzod az első soron, egész addig, amíg az eredmény egy hiba nem lesz.
Ezután az A2 cellába beírod ezt a képletet:=HAHIBA(BAL(A1;SZÖVEG.KERES(",";A1)-1);A1)
Addig húzod jobbra, amíg van fölötte szöveg a cellában.
Üdv.
-
Carasc0
őstag
Sziasztok!
Egy apróbb megoldásra lenne szükséges. Ez már jóval könnyebb feladat mint az előző amit sikeresen teljesítettek, lehet nem is kell hozzá VBA kód, de én mégsem tudom megoldani.
Legyen A1 cella értéke "SZIA" aminek betűszíne piros. (Tartalma amúgy tök mind1)
Legyen B1 cella aminek tartalma =A1. (Vagyis hivatkozás van ott)Feladat: A B1 cella értéke ne csak az A1 cella értékét vegye fel, hanem a színét is. Tehát ha változtatom az A1 színét, vagy stílusát pl. félkövér stb, akkor a B1 cellában is változzon meg.
Ennyi lenne!
Örök hálám! Ez nagymértékben egyszerűsít!
(/IMG)[/L]](http://cdn.rios.hu/dl/upc/2016-03/11/313928_wdfmp90kigwi9xmi_1.jpg "[L:/dl/upc/2016-03/11/313928_zukxiyaidmopxktw_2.jpg](IMG:/dl/upc/2016-03/11/313928_zukxiyaidmopxktw_2.thumb.jpg)(/IMG)[/L]")
Makróból az InputBox függvénnyel bekérek egy dátumot, amit meg akarok keresni. A kapott dátumot a formátuma miatt nem tudom megtalálni, és akármit próbálok vele, sehogy sem sikerül. Mi lehet az oka?
Új hozzászólás Aktív témák
Hirdetés
- PlayStation 5
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- exHWSW - Értünk mindenhez IS
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Óra topik
- iPhone topik
- Futás, futópályák
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Xbox Series X|S
- One mobilszolgáltatások
- További aktív témák...
- Path of Exile 2 early access kulcs
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- GYÖNYÖRŰ iPhone 11 Pro 64GB Space Grey -1 ÉV GARANCIA - Kártyafüggetlen, MS2050, 100% Akkumulátor
- Bomba ár! HP EliteBook Folio 1040 G2 - i5-G5 I 8GB I 256GB SSD I 14" HD+ I Cam I W10 I Garancia!
- LG 27UN83A-W - IPS LED - 3840x2160 4K - 60Hz 5ms - USB Type-C - HDR 400 - AMD FreeSync - Hangszórók
- MacBook Pro 16 2021 M1 Max 32GB 512GB 1 év garancia
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: FOTC
Város: Budapest