- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- One mobilszolgáltatások
- Samsung Galaxy S24 - nos, Exynos
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Nem várt platformon a OnePlus Nord 5
-
Mobilarena
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
-
Mutt
senior tag
válasz
Pakliman
#42298
üzenetére
Szia,
Nézd meg újra a Windows Területi beállításait, lehet hogy lesz ott szóköz az évek - hónapok - napok között az egyiknél, míg a másiknál nem.
Nekem van szóköz, de a MA() függvény eredményében ez nem látszik. Az IsDate/CVDate pedig csak szóközzel megadott dátumokat fogad el.
üdv
-
Pakliman
tag
válasz
Fferi50
#42294
üzenetére
Céges gépek, egyformák, tulajdonképpen klónok.
A területi beállításokat a pont-pont-vesszőcskéig összehasonlítottam, egyeznek.
Az én gépemen a mai napig működik (évekkel ezelőtt megírt programok, sokan használják), soha nem volt vele gond. Most 3-4 emberke jelezte, hogy már nem úgy műxik, ahogy kellene.
Milyen munkalapfüggvényre gondolsz? -
csiben1
tag
Sziasztok,
A C3-C994 tartományban van 1-1db linkem cellánként, amik egy másik Excel file-ra mutatnak. 6 különféle link van, ezek vegyesen váltakozva és vannak olyan cellák a tartományban, amikben nincs link.
Szeretném lecserélni a linkekben szereplő file nevek kiterjesztését *.xlsx-ről *.xlsm-re a lehető legegyszerűbb módon. Van valami jó ötletetek rá?Előre is köszönöm!
-
Fferi50
Topikgazda
válasz
Pakliman
#42293
üzenetére
Szia!
Pedig nagy eséllyel Windows területi beállítási különbségek miatt van.
A VBA-ban alapvetően angol (nemzetközi) beállítások szerint kell a függvények paramétereit megadni. Magyar formátumot csak akkor fogad el. ha a Windowsban is be van állítva.
Pl. előfordulhat, hogy szóköz is van a pontok mellett, vagy nincs pont a végén.
Javaslom, nézd meg a munkalapfüggvény működik-e megfelelően mindkét helyen.
Üdv. -
Pakliman
tag
Sziasztok!
IsDate() mizéria...
Rég óta nyüstölöm az Excelt, találkoztam már pár furcsasággal, de ez szerintem eddig a legrosszabb
Találkozott már valaki hasonlóval?
Mindkettő Windows 10, Office 2016.
A windows régiós és egyéb beállítások valamint az Office verziók megegyeznek (build szám is egyforma), mégis más eredményt kapok a két (valójában több) gépen.
Mindkét képen az Office beépített IsDate függvénye fut!
Kénytelen voltam saját függvényt létrehozni, hogy minden gépen úgy működjön a kód, ahogy kell.
Valakinek esetleg ötlete, hogy mi lehet az ok?
-
-
-
dave0825
őstag
Üdv.
Lehet, hogy nektek egyszerű, de én nem bírtam vele...
Adott egy kb. 3000 soros, és kb. 10 oszlopos táblázat. A 7. oszlopban (mondjuk G) adott a jelenlegi darabszám, a 9.-ben (legyen I) a minimum. Azt szeretném, hogy mind a 3000 sorban pirossal színezze ki azt a sort, ahol a G<I. Hogy lehet úgy feltételes formázással, hogy ne keljen 3000 külön feltételt hozzáadni?
Van egy működő táblázat alapnak, de egyáltalán nem látom át, valahogy tartományokra van osztva az egész táblázat, és nem értem, miért, főleg, hogy kb. 200 különböző feltétel be van írva.
Köszi.
-
Fferi50
Topikgazda
válasz
lordring
#42286
üzenetére
Szia!
Az FKERES függvény segít(het) neked.
Én csinálnék egy "fő" munkalapot, ahova az összes adatot összegyűjteném:=FKERES("Összesen:";Munkalapnév!B:C;2;0)
Persze jó lenne, ha a munkalapok neve is valamilyen rendszert követne, mert akkor könnyebb lenne a képletet másolni.
Vagy a munkalapneveket beírni egy oszlopba és utána az=FKERES("Összesen:"; Indirekt(D1 & "!B:C");2;0)
képlet már húzható lefelé
Üdv. -
lordring
aktív tag
Sziasztok! A következőt próbálom megoldani. Van egy munkafüzetem, amiben van vagy 100 munkalap. Minden munkalapon vannak számok egy oszlopban a követkző minta szerint:
Dátum, Megnevezés, Összeg, amik rendre A,B,C oszlop. A végén az összeg szummázva van. Ezeket a szummákat akarom grafikonba betenni, de értelemszerűen a C oszlop mindig másik sorára esik a kérdéses mező. Csak annyi a közös, hogy mellette a B oszlopban az "Összesen:" szöveg van. Hú, így elmondva nagyon bonyolultnak hangzik.
És persze nem akarom kézzel kijelölni az összes szükséges cellát. -
PeLa87
aktív tag
Na a próbálkozásoknál valamit elállítottam... Felül a címsorban nem új munkafüzet van, hanem PERSONAL - EXCEL. Amikor elmentem és megnyitom megint a excel-t, akkor ugyan az a munkafüzet jön be. Nem új.. Mindig xlsb-be akarja elmenteni PERSONAL néven 
HELPMegoldódott! Bocsika
-
-
kymco
veterán
Sziasztok!
Én a global valtozókkal szenvedek mostanság.
A ThisWorkbook-ban definiálok egy globális változót:
Public Ts01 As Boolean
De a Module1-ben található függvényem nem látja.
Hogyan tudom a változót úgy deklarálni, hogy az xlsm minden eljárása, függvénye láthassa? -
bara17
tag
-
-
pentium4
senior tag
Sziasztok,
Újabb segítséget kérnék:
[google doksi]
adott egy 2 oszlop ahogy látjátok, cikkszám és hozzá tartozó mennyiség, egy cikkszám többször is előfordul különböző mennyiségekkel, és ezt szeretném egy másik lapon összesíteni!
A Google doksiba nyugodtan beleszerkeszthettek a megoldás valamelyik fülén.
KöszönömP4
-
ny.janos
tag
válasz
ny.janos
#42264
üzenetére
Hozzáteszem az általam javasolt segédoszlopos megoldás is adhat olyan eredményt, ami nem biztos, hogy megfelel az elvárásnak. Ha ugyanis egyazon dátum pl. kétszer szerepel egymás alatt, előbb 0, majd 1-es C oszlopbeli értékkel, úgy magát a keresett dátumot kapod eredményül, a másodikként szereplő C oszlopbeli 1-es miatt. Azonban lehet, hogy ilyen esetben te azt szeretnéd, hogy a következő dátumot adja vissza, ahol 1-es szerepel.
-
ny.janos
tag
válasz
bara17
#42257
üzenetére
Szia!
Tömbképletes megoldások nekem ritkán ugranak be (nem is olyan rég volt, mikor végre sikerült felfognom a lényegüket). A te esetedben attól függően, hogy mire van valójában szükséged és hogyan épül fel az adathalmazod, amiben keresel nem vagyok biztos benne, hogy tökéletesen működni fog egy ilyen megoldás.
A kérdésedet én úgy értelmeztem, hogy mindenképpen a B oszlopban szereplő keresett dátum utáni következő dátumot keressük, feltéve, hogy C oszlopban ott 1-es szerepel. Mind a te, mind Mutt tömbképletes megoldására igaz az, hogy amennyiben a B oszlopban
>=relációra keresel, úgy magát a keresett értéket (nem pedig az azt követő elemet) fogod visszakapni a táblázatodban azokban az esetekben, ha a keresett dátum mellett a C oszlopban 1-es szerepel. Ha a relációt>-ra cseréled, az pedig azzal jár, hogy amennyiben az adathalmazodban egy dátum többször is előfordul közvetlen egymás alatt, úgy szintén nem azt kapod amit szerettél volna, hanem mindenképpen minimum 1 nappal későbbi dátumot.Az alábbi képeken látod az általam vélt működésbeli hiányosságot. Kék háttérrel jelöltem a keresett értéket, zölddel pedig amely értéket eredményként kapni kellene.
-
Fferi50
Topikgazda
Szia!
Az ÉS függvény akkor ad igaz értéket, ha minden benne szereplő feltétel igaz.
Tehát csak akkor lesz igaz az értéke - ezáltal akkor érvényesül a formázás - ha az adott cella sora megegyezik az első paraméter értékével és az oszlopa pedig a második paraméter értékével.
Mivel csak ezt a metszéspontot kell színezni.
Bárhol máshol nézed, a feltétel eredménye hamis lesz, így nem fog - és nem is kell neki - színezni.A @ nem helyettesítő karakter, az csak a ? és a *. Tudomásom szerint csak az egyéni számformátumban levő szöveg helyét jelöli.
Üdv.
-
-
kymco
veterán
Sziasztok!
Létre kell hoznom egy olyan excel táblázatot, ahol a dátumbevitelt kultúrált módon kellene használni. Megtaláltam a leírást a "Microsoft Date and Time Picker" telepítésére. Meg is oldottam, Van boldogság.... De ezt a feature-t csak azon a gépen tudom használni, ahol ez "mscomct2.ocx" megtalálható és regisztrálva is van. Sajnos olyan gépeken is használnom kellene, ahol ilyen műveletek elvégzéséhez nincs jogosultságom (terminál szerveres környezet). Van olyan megoldás, ahol az excel fájlban tudom biztosítani a kultúrált dátumbevitelt és nem a futtató környezetben? -
3DFan
aktív tag
válasz
Fferi50
#42001
üzenetére
Szia!
A feltételes formázás akkor működik, ha a képlet igaz, de ennek a képletnek a kimenete hamis ( =ÉS(SOR(A1)=$N$2;OSZLOP(A1)=$O$2) ), mégis helyesen formáz. Miért?
Írtam elé egy "NEM"-et, hogy a kimenet igaz legyen, erre az egész területet formázta az eredmény kivételével. A @ használatos helyettesítő karakterként?
-
bara17
tag
válasz
ny.janos
#42247
üzenetére
Köszi, időközben megoldottam egy csodás tömbképletes megoldással
Annyi, hogy a HOL.VAN keresési értéket 1-re állítottam, a keresési tömböt pedig úgy adtam meg, hogy szorozza össze a c oszlop = 1 tömböt és a B oszlop nagyobb egyenlő, mint a kritérium érték tömböt (esetünkben ez: 2019.11.01).
=INDEX(B1:B20;HOL.VAN(1; (((B1: B20)>=H3)*1)*((C1: C20)=1)*1);0))
-
-
ny.janos
tag
válasz
Petium001
#42248
üzenetére
Ha a Fferi50 által javasolt megoldást választod, akkor ne felejtsd el a képlet második felében szereplő HA függvényben is módosítani a B5-ös cella hivatkozására vonatkozó részt.
=FKERES(ÉRTÉK(HELYETTE(B5;"kg";""));$I$1:$J$5;2;1)+HA(ÉRTÉK(HELYETTE(B5;"kg";""))<=8;C5*0,3;0) -
Mutt
senior tag
válasz
PeLa87
#42228
üzenetére
Szia,
... a főlapom, meg lehetne valahogy jeleníteni, hogy azon a napon van-e valakinek születésnapja?
Makró és segédoszlop nélkül az Excel 2010-től használható Power Query tud megoldás lenni.
Magyar olimpikonok listájából csináltam egy ilyen fájlt:
Van benne egy Fő lap és 12 hónap adatát tartalmazó lap, amelyen vannak az adatok (azonos fejléccel és azonos sorrenddel). Ezek után jöhet a Power Query.
1. Adatok fülön -> Adatok beolvasása -> Fájlból
2. Kiválasztod a fájlt ami tartalmazza az adatokat.
3. Jobb klikk a fájlnéven (esetemben Olimpikonok.xlsx) és Szerkesztés
4. Első lépésként szűréssel zárjuk ki az első lapot, ahova az eredményt akarjuk megjeleníteni. Esetemben a Fő nevű munkalapot dobjuk.
5. Csak a Data oszlopra lesz szükségünk, ezt jelöld ki és a fejlécen jobb klikk után a többi oszlop tőrlése kell.
6. A megmaradt oszlop jobb felső sarkába kattints és válaszd a kibontást.
7. Hozzunk létre egy normális fejlécet, erre a legegyszerűbb megoldás az Átalakítás -> Első sor használata fejlcéként.
8. Mivel minden lapon volt fejlécünk ezért az adatok között nem csak a neveket/dátumokat, hanem a többi lapon ismétlődő fejléceket is látjuk ezt szűréssel vegyük ki.
9. Érdemes a megmaradt oszlopok formátumát beállítani. A születési dátum legyen tényleg dátum, a kor pedig szám. Jelöld ki az oszlopot és az Átalakítás fülön válaszd ki a megfelelő Adattípust. pl. születési dátumhoz a dátum legyen.
10. Kell egy új oszlop, amelybe megnézzük hogy melyik dátum napja azonos az aktuális nappal.
Oszlop hozzáadása -> Egyéni oszlopot használd. A képlet pedig ez legyen:=Date.Day([Születési Idő])=Date.Day(DateTime.LocalNow())
11. Ebben az oszlopban a TRUE értékekre szürjél rá.
12. Utánna törölhet jobb klikkel ez az oszlop.
13. Kezdőlap -> Bezárás és betöltés -> .. adott helyre opció kell.
14. Válaszd a Kimutatás opciót és a fő lapot. Tervezd meg a Kimutatásodat ahogy neked tetszik.
15. A kimutatás beállításainál válaszd az automatikus frissítést megnyitáskort.
üdv
-
Mutt
senior tag
válasz
bara17
#42246
üzenetére
Szia,
Excel 2016-tól felfelé van MINHA függvény, amelyet használj így:
=MINHA(B:B;B:B;">"&F2;C:C;1)ahol B oszlop a dátumos oszlop, C a 0/1-et taratalmazó oszlop és F2 a cella ahol van a keresési érték.
Régebbi Excelben pedig egy tömbfüggvény tud segíteni, ezt Ctrl+Shift+Enter-rel kell lezárni.
=MIN(HA((B1:B22>F2)*(C1:C22=1)>0;B1:B22;2^99))üdv
-
logitechh
csendes tag
Sziasztok!
Táblázatként van formázva egy táblázatom. Szeretnék egy makrót ami az adatokat tartalmazó sorokat törli. Rögzítővel csináltam egy makrót de ahogy látom minden egyes sort törölt. Ez a táblázat van hogy 10000 van hogy 500 sor.Ez lett az eredmény a rögzítéssel:
Sub Makró2()
'
' Makró2 Makró
'
'
Range("anyagbiz").Select
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete -
Fferi50
Topikgazda
válasz
Petium001
#42248
üzenetére
Szia!
Úgy tűnik, hogy a B oszlopban nem számok vannak... Ha nem akarsz egyéni formázást - ami megőrzi a számokat a számoláshoz - az előző hsz. javaslata szerint, akkor a képlet:=FKERES(ÉRTÉK(HELYETTE(B5;"kg";""));$I$1:$J$5;2;1)+HA(B5<=8;C5*0,3;0)Az FKERES függvénynek 4 paramétere van. A harmadik azt az oszlopot jelöli, ahonnan az adatot kell venni. A negyedik pedig azt határozza meg, hogy pontos legyen az egyezés vagy hozzávetőleges.
Üdv.
Ps. A súgó legyen a legjobb barátod. -
ny.janos
tag
válasz
Petium001
#42248
üzenetére
Szia!
A korábbi hozzászólásod alapján a második oszlopodban szereplő értékek valószínűleg nem egyéni formátumú számok, hanem szövegek, ahol a szám után a "kg" mint szöveg is be van gépelve a cellákba. Ha valóban így van, akkor javítsd ezen oszlop adatait úgy, hogy abban csak számok szerepeljenek, a kg-ot pedig formátumként add meg.
-
ny.janos
tag
válasz
bara17
#42246
üzenetére
Szia!
Egy lehetséges megoldás, hogy felveszel egy segédoszlopot, ahol a második oszlopban szereplő 1-eseket és 0-kat összesíted. Attól függően, hogy a segédoszlopodat hova szúrod be vagy az FKERES és INDEX - HOL.VAN párossal meg tudod találni a kívánt eredményt. Előbb megkeresed az adott dátumhoz tartozó értéket a segédoszlopodban, majd a segédoszlopban ettől eggyel magasabb értékhez keresed vissza a hozzá tartozó dátumot.
D1 cella képlete:
=SZUM($C$1:C1)H4 cella képlete:
=INDEX(B1:B20;HOL.VAN(INDEX(D1:D20;HOL.VAN(H3;B1:B20;0))+1;D1:D20;0)) -
bara17
tag
Sziasztok!
Az alábbi problémám lenne és hirtelen nem jut eszembe megoldás:
Van két oszlopom az egyikben dátumok vannak, a másikban meg 0 és 1. A feladat, hogy egy adott dátumot kikeresni a dátumos oszlopban, majd azt a következő dátumot visszaadni, ahol a második oszlopban 1-es szerepel.
Kép alapján szerintem egyértűbb a kérdés, itt a 2019.11.01-et feltétel alapján szeretném megkapni a 2019.11.04-et
Köszi a segítséget!
-
Pakliman
tag
válasz
Sprite75
#42240
üzenetére
Szia!
Akkor alakítsd át:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Megosztott\Rendeles Bolt\" & worksheets("valami").cells(vmelyiksor,vmelyikoszlop) & " Rendeles." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=FalseValamiért már megint nem működnek nálam a BB kódok (félkövér, aláhúzott stb.)
-
Fferi50
Topikgazda
válasz
Petium001
#42242
üzenetére
Szia!
A hivatkozott hozzászólásban mutatott képlet pont ezt csinálja. Csak a 125-öt írd át 1250-re a táblázatban.
A súly a B oszlopban, az érték a C oszlopban van. A táblázatban az I oszlop a súly, a J oszlop a fizetendő érték.
A képlet: =Fkeres(B1;$I$1:$J$5;2;1)+Ha(B1<=8;C1*0,3;0)
A képlet első része keresi meg a súlyhoz tartozó értéket, a második része pedig 8 kg-ig hozzáadja az összeg 30 %-át. 8 kg felett nem ad hozzá semmit.Üdv.
-
-
Sprite75
tag
Sziasztok.
Van egy ilyen maróm egy táblázatban ami kimenti a munkapalot PDF-be.Sub PDFkeziment()
'
' PDFment Makró kézzel
lapnev = ActiveSheet.Name
Sheets("Rendeles").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Megosztott\Rendeles Bolt\Rendeles." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets(lapnev).Select
End SubMeg lehet azt oldani valahogy, hogy a munkalap egyik cellájába beírt szám is belekerüljön a file nevébe?
Tulajdonképpen ez egy rendelésfelvevő táblázat és jó lenne, ha az aktuális rendelés száma is bekerürne a file nevébe, a könnyebb azonosítás miatt. Most ez a file neve ami elkészül: Rendeles.2019.11.20. 07-44.pdf De jó lenne ha így nézne ki pl : 12. Rendeles.2019.11.20. 07-44.pdfHátha
-
Fferi50
Topikgazda
-
pentium4
senior tag
válasz
Delila_1
#42229
üzenetére
A jobb függvénnyel az a baj hogy nem az utolsó számot jeleníti meg, mivel Ft a formátuma a cellának, így a T betű lesz az eredmény amivel nem lehet számolni.
De ahogy írtam nekem az még jobb lenne ha összeadnánk pl az összes 3 as végződésű számot és azzal már tudok szorozni amennyivel akarok.
KösziP4
-
Fferi50
Topikgazda
válasz
PeLa87
#42228
üzenetére
Szia!
Makró nélkül is megy, ha minden hónapba beteszel egy segédoszlopot. A képlet attól függ még, hogy a hónapok neve milyen módon szerepel.
Feltételeztem, hogy a hónapok teljes neve a lapok neve is. Ha nem így van, azt hiszem át tudod nevezni. A rövidített nevekkel ennél bonyolultabb a képlet.
Továbbá azt feltételeztem, hogy a nevek az A, a születési dátumok a B, az életkor a C oszlopban van. A segédoszlopot az E oszlopba tettem minden munkalapon.
A fő lapon az első sor lehet fejléc.
Akkor az A2 cella képlete (az első születésnapos neve):=INDEX(INDIREKT(SZÖVEG(MA();"hhhh") &"!A1:C100");HOL.VAN(NAP(MA());INDIREKT(SZÖVEG(MA();"hhhh") & "!E1:E100");0);1)
A B2 cella képlete (az életkora):=INDEX(INDIREKT(SZÖVEG(MA();"hhhh") &"!A1:C100");HOL.VAN(NAP(MA());INDIREKT(SZÖVEG(MA();"hhhh") & "!E1:E100");0);1)
Az A3 cella képlete (a következő születésnapos neve):=INDEX(INDIREKT(SZÖVEG(MA();"hhhh") &"!A1:C100");HOL.VAN(A2;INDIREKT(SZÖVEG(MA();"hhhh") & "!A1:A100");0)+1;1)A B3 cella képlete (a következő születésnapos életkora):
=INDEX(INDIREKT(SZÖVEG(MA();"hhhh") &"!A1:C100");HOL.VAN(A2;INDIREKT(SZÖVEG(MA();"hhhh") & "!A1:A100");0)+1;3)
Ez a két képlet húzható lefelé. Amennyiben már nincs több születésnapos, akkor Hibaértéket fogsz kapni. Ennek elkerülésére az egészet beágyazhatod egy HAHIBA függvénybe.
Akkor is hibát kapsz az első sorba, ha nincs születésnapos, szintén HAHIBA függvénnyel kezelhető, hogy pl. azt írja ki, hogy nincs születésnapos ma.
A hibakezeléseket rád bízom.
A MA() függvények "köszönhetően" minden nap aktuális lesz az érték.Üdv.
-
Pakliman
tag
Szia!
(Egyféle) megoldás kis kiegészítéssel és makróval:
(Ez a kép már a makró általi lista, a színezés az eredeti)
Minden csoport ki lett egészítve egy új oszloppal, ami azért kell, mert egy tétel többször is szerepelhet és valahogy muszáj megkülönböztetni
P oszlopban:=DARABTELI($O$2:O2;O2)
S oszlopban:=DARABTELI($R$2:R2;R2)
V oszlopban:=DARABTELI($U$2:U2;U2)
FONTOS!!!! Figyelj a dollárjelre!!!!
(Beírod pl. a P2 cellába és "lehúzod" P16-ig)A kód:
Public Sub Rendez()
Dim o As Long
Dim s0 As Long
Dim s As Long
Dim us As Long
Dim us2 As Long
Dim bVan As Boolean
For o = 14 To 20 Step 3
us = Columns(o).Rows(Rows.Count).End(xlUp).Row
For s = 2 To us
If o = 14 Then
'1. oszlopcsoport, csak másolunk...
Cells(s, o - 12) = Cells(s, o)
Cells(s, o - 11) = Cells(s, o + 1)
Cells(s, o - 10) = Cells(s, o + 2)
Else
us2 = Columns(o - 15).Rows(Rows.Count).End(xlUp).Row
For s0 = 2 To us2
bVan = (Cells(s0, o - 15) = Cells(s, o)) And (Cells(s0, o - 14) = Cells(s, o + 1)) And (Cells(s0, o - 13) = Cells(s, o + 2))
If bVan Then Exit For
Next s0
If bVan Then
us2 = s0
Else
us2 = Application.Max(Columns(o - 12).Rows(Rows.Count).End(xlUp).Row, Columns(o - 15).Rows(Rows.Count).End(xlUp).Row) + 1
End If
Cells(us2, o - 12) = Cells(s, o)
Cells(us2, o - 11) = Cells(s, o + 1)
Cells(us2, o - 10) = Cells(s, o + 2)
End If
Next s
Next o
End Sub -
PeLa87
aktív tag
Sziasztok!
Van egy táblázatom abban egy fő lapom és van 12 lap a hónapok neveivel. Mindegyik hónapban vannak nevek, születési dátummal és, hogy hány éves.
Az lenne e kérdésem, hogy a főlapom, meg lehetne valahogy jeleníteni, hogy azon a napon van-e valakinek születésnapja? Ha lehetséges akkor makró használata nélkül? Ha túl bonyolult akkor nem kell, nem szeretnék fárasztani senkit vele. -
pentium4
senior tag
Sziasztok,
A következőt szeretném megoldani:
Adott egy cella, amiben van egy egész szám, ennek a számnak ha az utolsó számjegye pl 5-s akkor azt meg szeretném szorozni pl 2 vel, ha 4 es akkor 1,5 el, ha 3-as akkor 1,2 vel.
Ezt hogy tudnám megoldani?
KöszönömP4
-
Fferi50
Topikgazda
válasz
Richard
#42223
üzenetére
Szia!
Ha van a szűrésnek eredménye, akkor csak a szűrt értékeket másolja a DataBodyRange.Copy.
A DataBodyRange az a fejléc és összesítősor nélküli tartományt jelenti. Ha nincs a szűrésnek eredménye, akkor ennek nincs látható része, tehát a SpecialCells(xlCelltypeVisible) hibával tér vissza és ezt a hibaüzenetet az Application.DisplayAlert paranccsal sem tudod elnyomni, csak a megelőző On Error Resume Next utasítással ellenőrizheted, hogy hiba keletkezett-e .
On Error Resume NextListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).CopyIf Err<>0 Then Msgbox "Nincs mit másolni"On Error Goto 0Viszont így a teljes tartomány egyben marad, ezért a sima DataBodyRange.Copy másolja az egészet. (Lehet, hogy ez bug, mert ilyenkor hibát kellene logikusan adni, ezt igazából Redmond tudhatja, miért nem így van.)
A szűrés eredményét a táblázat teljes tartományának vizsgálatával is tudod ellenőrizni.
pl. így, ekkor nem kell hibakezelés bele:ListObjects(1).Range.SpecialCells(xlCellTypeVisible).Rows.Count
Üdv. -
ny.janos
tag
Mivel nem tudom, hogy a valós feladatban hány terméked van, aminek az alkatrészeinek az "átfedését" látni szeretnéd, próbáltam olyan megoldásban gondolkodni, ami több 10 (vagy még több) termék esetén is működhet, de a feladatnak csak egy részére sikerült viszonylag könnyen használható megoldást találnom.
A gondolatom az volt, hogy első lépésben az összes előforduló cikkszámot és hozzá tartozó nevet egymás alá teszem 2 oszlopba, majd eltávolítom az ismétléseket. (Ennek az időigénye mondjuk 100 termék esetén már igen jelentős lenne kézzel, makróhoz viszont nem értek. Képlettel pedig nem tudtam megoldani.)
Második lépésben azt kerestem meg, hogy az adott alkatrész szerepel-e az adott termék alkatrészlistájában. Ezt követően a sorbarendezés már tetszőleges.
C2 cella képlete:
=HA(DARABTELI(K$2:K$23;$A2)>0;$A2;"")D2 cella képlete:
=HAHIBA(FKERES(C2;$A$2:$B$20;2;0);"") -
válasz
Fferi50
#42212
üzenetére
Ha szűrt táblában a ListColumns(1).DataBodyRange.Copy parancsot kiadom akkor minden esetben csak a szűrt eredményt másolja?
Mert, ha a szűrés nem hoz eredményt (azaz csak fejléc van),és akkor adom ki DataBodyRange.Delete parancsot és a szűrés által rejtett részt is kitörli, azaz mindent. (rá kell szűrnöm bizonyos értékekre, amik nem kellenek a táblázatba és így törlöm ki, de nem mindig szerepel a táblában.)
Nem teljesen értem miért van ez.
Ha pedig meg akarom adni a látható cellákat akkor nem működik a databodyrange-es hivatkozás, csak a range ?!
-
ny.janos
tag
Szia!
Az valós, hogy egy cikkszám több terméket is takarhat, illetve hogy egy-egy termékhez ugyanaz a termék többször is fel van sorolva?
Az oszlopokban páronként (a1-a2, b1-b2, c1-c2) ugyanúgy háromszor szerepel a 1292092-00 banán, kétszer a 2075637-00 avokádó, a répa cikkszáma pedig azonos a banánéval (1292092-00).
-
Fferi50
Topikgazda
-
ace05
senior tag
Van egy csomó ilyen dátumom Pl: 11 18 2019 Ezt hogy tudnám átalakítani 11/18/2019 formátumra ? Ez azért kellene, hogy fel lehessen importálni Google Calendarba. A cella formázás/szám/egyéni beírtam, hogy így szeretném hh/nn/éééé de nem csinál semmit. Mit rontottam el?
-
Fferi50
Topikgazda
Szia!
Pár lépés feltételes formázással és szín szerinti rendezéssel elérhető szerintem a kívánt eredmény.
1. lépés:
Kijelölöd a teljes táblázatot - kezdőlap - feltételes formázás - cellakijelölési szabályok - ismétlődő értékek - válaszd az egyedit, mindegy milyen színű lesz. OK.
2. lépés a két utolsó oszlopot, ahol a színek vannak, kijelölöd. Adatok - rendezés - E oszlop szín szerint - nincs cellaszín felül OK.
3.Kijelölöd az A-D oszlopot. Utána feltételes formázás mint az 1. lépésben
4.Kijelölöd a C-D oszlopot. Rendezés mint a 2. lépésben.
Ekkor már tkp. látod, hogy mi az egyedi.
5.Kijelölöd az E-F oszlop "fehér celláit", a színeseket nem!. Feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel: A képlet:=DARABTELI($A$1:$D$20;$F1)>=2
Kijelölsz hozzá egy formátumot. OK
6.A kijelölt területet (E-F oszlop) rendezed szín szerint, de most a színes legyen felül.
Eredmény:
Ezután megszünteted a feltételes formázást, hisz már nincs rá szükség.
A "kilógó" tételeket úgy színezed, ahogyan akarod.
Remélem érthető.
Üdv. -
-
Sziasztok,
azt hogy oldom meg, ha van egy táblám amire autofiltert tettem és a filter nem hoz vissza adatot akkor lépjen tovább?!
Forrastabla.Worksheets("Munka1").ListObjects("adatforras").Range.AutoFilter Field:=6, Criteria1:="kritérium1"VisibleCellsCount = Forrastabla.Worksheets("Munka1").ListObjects("adatforras").Range.Cells.SpecialCells(xlCellTypeVisible).CountIf VisibleCellsCount > 1 Then........és ekkor végezné el amit akarok.
Ha kisebb mint 1 akkor pedig menjen tovább.
Jelen esetben a teljes databodyrange-et átmásolja, ha a filter nem listáz semmit a táblázatba.
Hol nézem be? A headerben is számol? DataBodyRange nem működik a Range helyett, mert akkor leáll overflow-al a program.
Előre is köszönöm
-
Zsolt_16
tag
Szaisztok,
Adott egy win 10 1909
Office pro plus 2016 (16.0.4849.1)
Excelben olyat tapasztalunk, hogy egy ~5000 soros táblában szeretnénk szűrni egy olyan oszlopban ahol lényegében m1 milyen érték van (szöveg, dátum szám) a szűrő opciónál az értékek elkezd villogni.(melléklet zöldel karikázott rész) Az a furcsa, hogy nem folyamatosan csinálja csak mikor gondol egyet.
Valaki találkozott ilyennel? Eddig ilyen hibát nem tapasztaltunk.
Köszönöm előre is!
-
huan
őstag
Sziasztok!
Segítséget szeretnék kérni az alábbi feladat megoldásában.
Vannak oszlopok cikkszámmal, névvel, ezek termékek lennének. Az a1 és a2 egy termékhez tartozna, a b1 és b2 egy másikhoz...stb.
A termékeknek vannak azonos darabjai, de vannak külömbözőek. A példában a b1,b2-jelölésű termék 5 darabbal több alkatrésze van, míg a c1,c2-jelölésűnek további 3 darabbal, összesen 8-cal több alkatrésze az a1,a2-höz képest.
Az oszlopok nincsenek sorba rendezve, alapból csak a oszlopok hosszából látni, hogy több alkatrészből állnak.
Amit szeretnék megoldani:
Az oszlopok azonos elemei egymás mellé kerüljenek (nem szükséges sorbarendezve nővekvően pl.), így a külömbözőek legalulra kerülnek és pontosan látni miben külömböznek az oszlopok.
Köszönöm!
(B-G az eredmény amit szeretnék; K-P a rendezetlen példa)
>minta<
-
Delila_1
veterán
válasz
Fferi50
#42205
üzenetére
Egy keveset módosítottam, mert X-et tett oda is, ahova nem kellett volna, no meg a kérdezőnek .png képei vannak.
For Each Pic In PicsPic.Offset(0, -1).SelectOn Error Resume NextActiveSheet.Shapes.AddPicture Filename:=Path & Pic.Value & ".png", linktofile:=msoFalse, saveWithdocument:=msoTrue, Left:=Pic.Offset(0, -1).Left + 5, Top:=Pic.Top, Width:=50, Height:=60If Pic.Value = "" Or Err <> 0 ThenPic.Offset(0, -1).Value = "X"Pic.Offset(0, -1).Font.ColorIndex = 3On Error GoTo 0ElsePic.RowHeight = 60End IfNext -
Fferi50
Topikgazda
válasz
bucihost
#42199
üzenetére
Szia!
Sajnos MS úgy intézte, hogy a felvett makró ne legyen az igazi. Ma már másként kell a képeket beilleszteni...
Ezt ókumuláltuk ki Delilával:Sub PlacePics()Dim Path As String, Pics As Range, Pic As Range, pc As ObjectOn Error Resume NextPath = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"Set Pics = ActiveSheet.Range("B2:B20")For Each Pic In PicsPic.Offset(0, -1).SelectActiveSheet.Shapes.AddPicture Filename:=Path & Pic.Value & ".png", linktofile:=msoFalse, saveWithdocument:=msoTrue, Left:=Pic.Offset(0, -1).Left, Top:=Pic.Top, Width:=50, Height:=60If Pic.Value = "" Or Err <> 0 ThenPic.Offset(0, -1).Value = "X"Pic.Offset(0, -1).Font.ColorIndex = 3ElsePic.RowHeight = 60End IfNextCells(1).SelectEnd SubÜdv.
-
-
-
És persze nem akarom kézzel kijelölni az összes szükséges cellát. 
HELP
Új hozzászólás Aktív témák
Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Vezetékes FÜLhallgatók
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Reklámblokkolók topikja
- Autós topik
- Milyen autót vegyek?
- További aktív témák...
- Samsung Galaxy J6 2018 32GB, Kártyafüggetlen, 1 Év Garanciával
- LG 45GR95QE - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
- BESZÁMÍTÁS! 1TB Western Digital SN850X NVMe SSD meghajtó garanciával hibátlan működéssel
- iKing.Hu - Honor Magic 7 Pro - Black - Használt, karcmentes
- GYÁRI TÖLTŐK DELL LENOVO HP FUJITSU TOSHIBA Macbook---------- Budapest,/MPL/Foxpost
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest