- Ilyen a Huawei Watch 5 és új érzékelője
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Bemutatkozott a Poco F2 Pro (már megint)
- Minden a BlackBerry telefonokról és rendszerről
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Android alkalmazások - szoftver kibeszélő topik
- Apple iPhone 16 Pro - rutinvizsga
- Hatalmas kedvezménnyel nyit az Ulefone új csúcsmodellje
Hirdetés
-
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
-
Wyll
őstag
válasz
Fferi50
#24189
üzenetére
Igen, ez a "belelátós" módszer a 3D-s névvel (nem tudtam hogy így hívják) valóban működik (és én is pont ezt szeretném, és így is csináltam), de csak amíg be nem zárom a file-t. A legközelebbi megnyitáskor viszont rákérdez, hogy frissítse-e a hivatkozásokat, és ha ekkor nincs megnyitva a hivatkozott file, már HIV! lesz a hivatkozás értéke.
Gondolom pont ezért csinálod, hogy behelyettesíted az értékével.Viszont mi van, ha időközben megváltozott az az érték? Pont ez lenne egy hivatkozás értelme, hogy mindig a aktuális értéket tartalmazza. Pl. minden megnyitáskor újrafrissítem ezeket makróból?
-
pirit28
csendes tag
-
slashing
senior tag
válasz
Fferi50
#24162
üzenetére
jaja egyértelmű hogy az egyediségre épít, egy plusz Ha függvénnyel kijátszaható úgy hogy a holvan +2-őt kap nem 1-et és még a hol.van-on bellül nem a közvetlen előtte lévőt keressük hanem a kettővel előtte lévőt.
Ez már lehet elég lesz. A célunk ezen értéknél a havi max 5-t darab a 8 az már nagyon kirívó és rossz hónap szóval ha egy nap 3 ilyen esemény van akkor az elég gáz... így módosítás után egy napon két ilyen eseményt elbír a képlet 3-t már nem de ezt is ki lehet még tólni egy újabb HA+ÉS függvénnyel
D -
slashing
senior tag
válasz
Fferi50
#24110
üzenetére
Átültettem az egyik táblázatomba ezt a szépséget. Annyi különbséggel hogy nálam nem cégnév az elsődleges szűrés hanem dátum. És bár nem valószínű hogy elő fog fordulni(90% hogy nem) de sose tudni. Szóval mi a helyzet azzal ha nekem van ismétlődő dátumom?
Vagy ha ezt a táblázatot használjuk akkor egymás alatt ismétlődő cégnevem? mert ugye ilyenkor meg fog egyezni az új keresési tartomány a régivel és feltölti végig ugyan azzal az értékkel az összeset... kijátszaható ez?
Én arra gondolok hogy esetleg még egy ha függvényt ha beleviszünk ami megvizsgálja hogy egyenlő-e az előző sorral akkor adjon hozzá még egyet az indirekthez!?
Egyéb ötlet?
-
slashing
senior tag
válasz
Fferi50
#24157
üzenetére
awhhhh köszi
amúgy azt csinálja hogy átugrik a lapra az A oszlopn csinálnál egy advance filtert és másolja az egyedi értékeket egy másik oszlopba ami kap egy nevet a névkezelővel hogy dinamikusan növekedhessen a lista mert ebből meg egy másik lapon legördülő menü van
majd a végén vissazugrik a kiinduló lapra... -
slashing
senior tag
válasz
Fferi50
#24155
üzenetére
jaja hasonlóra jutottam én is
If WS1.Visible = False Then
WS1.Visible = True
End Ifviszont a végén újra el kell rejteni ami nem is gond de úgy kéne hogy ha látható volt akkor ne rejtse csak akkor ha rejtve volt a futáskor. Szóval valahogy el kéne tárolni a kezdő értéket de hogyan?
-
Wyll
őstag
válasz
Fferi50
#24148
üzenetére
Ez az egész inicializáláskor van, tehát a gomb állapota ilyenkor még tuti 0.
És azt akarom, hogy az legyen hogy
gomb benyomva <=> látszik az oszlop
gomb felengedve <=> nem látszik az oszlopTe pedig azt mondod most, ha jól értem, hogy az oszlop láthatóságát állítsam a gombhoz (ami ebben az esetben ugye 0, tehát rejtsem el az oszlopot), ne a gombot az oszlopéhoz. Csakhogy pont azt szerettem volna elérni, hogy megnyitáskor a gomb felvegye az oszlop állapotát, az ugyanis megőrződik az elmentett file-ban.
Persze értem, hogy mi a helyzet, hogy mindenképp lefut az eventhandler, így trükközni kellene, pl meg lehet jegyezni valahogy megnyitáskor az oszlop állapotát, utána szinkronizálni a gombbal, majd "visszaállítani" a kezdeti állapotot. Csak ez nem valami elegáns szerintem - de cáfoljatok meg
------------------------------------
Delila_1:
Az én click eseményem:
Private Sub togbutTranslate_Click()
Call AngolCellakOnOff
End Sub
Private Sub AngolCellakOnOff()
Range("b_forditocellak").EntireColumn.Hidden = Not Range("b_forditocellak").EntireColumn.Hidden
End SubHa másik modulban van a sub, az min változtat?
Kérnék szépen egy kis magyarázatot a példádhoz, mert sajnos nem nagyon értem
-
-
válasz
Fferi50
#24133
üzenetére
Az X-et tudom előre, de az első 5 cellában ez az érték bárhogyan kijöhet. Lehet azt is, hogy egy cellába bevágom az X-et és a többi 4 az nulla. A lényeg, hogy ha 1 cellában már eléri az X-et, akkor ne is engedjen semmit írni a többibe, mert már elérte. Ezt szerettem volna megoldani egy felugró alert ablakkal.
-
-
nrg007
csendes tag
válasz
Fferi50
#24108
üzenetére
Igen, fontos, hogy ezek állandóan frissüljenek. Valószínű nem csak én fogom használni ezt a táblázatot. A külön szűrés minden változtatásnál nem működik.
És még egy jó hír, az EFG oszlopban lévő táblázat egy munkalap része, és úgy néz ki, hogy a lap alsó részén helyezkedik el.
Szövegek és aktív cellaértékek vannak felette és mellette is.A makró is jó lesz, ha nem nincs más megoldás.
-
nrg007
csendes tag
válasz
Fferi50
#24106
üzenetére
Köszönöm.
Ha jól látom akkor ez csak úgy működik, ha minden változtatáskor lefuttatom a speciális szűrést.
Olyan megoldás keresek, amelyik folyamatosan figyeli a "szükséges" oszlopban lévő értékeket és változás esetén automatikusan változtatja az F és G oszlop értékeit.
-
pirit28
csendes tag
válasz
Fferi50
#24017
üzenetére
igen lehet hogy abban lesz a bibi viszont van e valami megoldás ennek a megkerülésére mert kb 10 gépen nyitják meg a file-t és ezen gépek beállításának módosítására nincs lehetőség.(nem rendszergazdák,jogosutság zéro).A TEXT formátum nem kötelező ,ha ezt valami másra át tudnád válttni (pl időformátum ami kötött,és csak órára vonatkozna)az lenne a legjobb,csak azért hagytam benne mert ez a legutolsó forma amit használok jelenleg.
-
bteebi
veterán
válasz
Fferi50
#23979
üzenetére
Köszi a segítséget!
Így már (első közelítésben) működik, még ha nem is a legszebb/leggyorsabb."A select csak az aktív munkalapon használható."
Ezt nem tudtam/nem gondoltam rá, pedig logikus...Az activate/select-et amúgy nem lehet megkerülni? Próbáltam úgy, hogy
Sheets("Adatok").ChartObjects("Diagram 1").ChartArea.Copy
Sheets("Diagramok").Cells(3 + (i - 1) * 29, 2).Paste,de sajnos nem működik. Lehet valahogy "rendesen" diagramot másolni?
-
#23910
littleNorbi
aktív tag
Fferi50
#23903
littleNorbi
aktív tag
válasz
Fferi50
#23903
üzenetére
Azt hiszem nem értettél meg. Szóval ha valaki ajánlana pl. nekem egy FKERES függvényt, hogy az a megoldás a problémámra, akkor lefordítom magamnak VLOOKUP-ra... Bár nem értem, hogy miért lovagolunk ezen, hiszen Neked nem sok közöd volt a gondom megoldásához, akik viszont segítettek, nekik ez nem jelentett akadályt...
-
#23900
littleNorbi
aktív tag
Fferi50
#23899
-
slashing
senior tag
válasz
Fferi50
#23810
üzenetére
szerintem csak az első szintig tudja feldolgozni az almappákban már nem...
tehát elméletileg nem csak a fileoknál kéne addig futnia a makrónak míg <>"" az aktuális könyvtárban lévő fájlok, hanem addig míg az összes alkönyvtárban lévő fájlon lefut nem csak a gyökérben lévő fájlokon...a workbook.fullname nem fogja megadni az azon túli almappákat.
legalábbis én így értelmezem.
ha csak egy almappa van akkor az nem gond de ha több akkor arra is valami változó kell. Nekem az előbbire van egy példám:
Pathname = "C:\Valami\valami\" & knev & "\"
FileName = Dir(Pathname & "*.xls")
Do While FileName <> ""a knev az nálam egy adott cellában megadott könyvtárnév...
-
#23792
nebulo0128
csendes tag
Fferi50
#23790
nebulo0128
csendes tag
válasz
Fferi50
#23790
üzenetére
köszi,
úgy oldottam meg közbe, hogy MS Query-vel odbc adatforrásból betöltöttem, és ott új lekérdezésként annyit adtam csak meg, hogy [ ] ez után fájl>hozzáadás excelhez, és ott kéri az, hogy melyik cellát akarod megadni a paramétert.annyi bajom lenne vele, hogy ezt a lekérdezést nem lehet lefele sokszorozni, és hogy mindig a mellette lévő adatból vegye feltételt. (olyanban gondolkozok, hogy egy nagy adatbázisból dolgozna (amit egy másik forrás progival használunk), én beírom a cikkszámot napi gyártáshoz, és azonnal kilistázza nekem elektronikát, címke nyomtatáshoz linket stb.. )
ilyenre esetleg képes az excel? vagy inkább hagyjam ezt az ötletemet -
Delila_1
veterán
-
slashing
senior tag
válasz
Fferi50
#23719
üzenetére
Csak hogy tuti ne beszéljünk el egymás mellett:
Bal oldalt van 3 variáció ahogy kiköpi a kigyűjtős macrom az adatokat. A jobb oldali végeredményt szeretném elérni. Kigyűjti a macro az adatokat változó fejléccel meghívja a következő macrot ami belerakja a jobb oldali táblába ahol már fix fejléc van csak mindig oda kerül az adat amelyik alá tartozik.
-
Saua
tag
válasz
Fferi50
#23708
üzenetére
Köszönöm a segítségeteket de csak nem boldogulok.
Sajnos nagyon korlátozottak az excel ismereteim, azt szeretném ha nem kellene állandóan beírni a város nevét az i oszlopban levő DARABTELI képletbe, hanem a képlet másolható lenne és a városnevek automatikusan kerülnének az G oszlopból a feltétel helyére. Tehát az i oszlopban megjelenjen hogy például Balatonlelle hányszor szerepel az E oszlopban.
Nem világos, hogy hogy néz ki a teljes DARABTELI képlet. -
Saua
tag
-
tgumis
tag
válasz
Fferi50
#23659
üzenetére
Köszi de se a Te se a Delila makrója nem működött. Biztos ën vok bal/sz leírnàtok melyik rèsze a makrónak mit jelent hàtha megfejtem.
A spec szűrő viszont jó bàr valamièrt mindig csinàl olyat hogy az eggyik elemet de csak eggyet ²szer rak bele az első elem az. Szóval a szűrendő lista első elemèt 2szer szerepelteti -
slashing
senior tag
válasz
Fferi50
#23608
üzenetére
Én ezt vagyis 2013 már a sorok függvényt használom a sorszámozáshoz ha olyan táblázat van amit mondjuk rendszerszeresen úgy kell bővíteni hogy sorbeszúrással.
=SOROK(A$2:A2) itt kezdődik mondjuk a sorszámozás lehúzom amíg kell aztán ha közben be kell szúrni egy új sort akkor az alatta lévők automatikusan egyel nagyobbat fognak kapni és csak a beszúrt sorra kell lehúzni a képletet, nem kell a teljes oszlopon A4-től indulva újra képletezni.
-
Carasc0
őstag
válasz
Fferi50
#23586
üzenetére
Szia!
Köszi a lehetőségeket, de az elsőt nem igazán értem. Gond az hogy a nyilvántartás folyamatosan lenne feltöltve és amint valaki felvísz egy sort abban a pillanatban megindul az automatikus számolás a megfelelő helyen és íródnak át a cella értékek. Ez muszáj hogy működjön hiszen ezért csináltam. Ha kikapcsolom az automatikus számolást akkor ez megszűnik?
Amúgy én nem makrózom arra sajnos nincs időm....Hol tudom kikapcsolni az automatikus számolást?
-
#23546
m.zmrzlina
senior tag
Fferi50
#23545
m.zmrzlina
senior tag
válasz
Fferi50
#23545
üzenetére
Jól gondolom, hogy ha a munkalapra kiírós megoldást választom akkor az objektumváltozókat sem kell Public-ként deklarálni csak minden eljárás elején (persze csak ami használja ) értékadással kell kezdeni? Pl:
Dim wsOsszesito as Worksheet
.
.
Sub makro1()
Set wsOsszesito = ThisWorkbook.Worksheets("összesítő")
.....
End Sub -
-
bteebi
veterán
válasz
Fferi50
#23410
üzenetére
Nagyon köszönöm a segítséged
, már majdnem jó 
.Sub osszeir()
Dim ws As Worksheet, i As Integer, cella As Range
i = 2
For Each ws In ActiveWorkbook.Worksheets
If Left(ws.Name, 5) = "Lista" Then
For Each cella In ws.UsedRange
If cella.Interior.Color = RGB(141, 180, 226) Then
Sheets("Összefoglaló").Cells(j, 3).Value = ws.Cells(5, (cella.Column \ 2) * 2) & " - " & ws.Cells(cella.Row, 1) & " - " & ws.Cells(6, cella.Column)
i = i + 1
End If
Next
End If
Next
End SubA Sheets("Összefoglaló").Cells(j, 3).Value = ws.Cells(5, (cella.Column \ 2) * 2) & " - " & ws.Cells(cella.Row, 1) & " - " & ws.Cells(6, cella.Column) sornál akad el, "Application-defined or object-defined error"-ral. Sajnos nem megy se ws-sel, se anélkül.
#23411: Neked is köszönöm Delila
. Az összevont cellás részt egyébként megoldottam így: (cella.Column \ 2) * 2. A "\" (mint újonnan ismét megtanultam) egész osztást végez, a mod (ezt is el szoktam felejteni) pedig a maradékos osztás maradékát adja meg. Például 14\3 = 4, 14 Mod 3 = 2. -
-
-
Delila_1
veterán
válasz
Fferi50
#23329
üzenetére
A makró több formátumot módosít: a cella háttérszínét, a 4 szegély 3-3 tulajdonságát, úgy, mint stílusát, vastagságát, és színét, ami összesen 13 tulajdonság.
Igen, látszólag el lehetne tárolni ezeket, de mikor is állítanád vissza az eredeti értékeket? Mikor egy másik cellára kattint a felhasználó.
Tehát 13 publikus változóban kellene tárolni a fentieket, plusz az előzőleg kiválasztott cella címét, hogy tudjuk, melyik cella feltételes formátumát kell visszaállítani – ha egyáltalán volt rá ilyen adva. Ezeken kívül még a feltétel(eke)t is be kellene spájzolni.Eddig 1 celláról beszéltem, de a kiválasztott cellának a teljes sorát, és oszlopát módosítja a célkeresztes makró. Hány változó is kellene ehhez?
Nem tudod eltárolni az adatokat.
A célkeresztes makrót ott lehet alkalmazni, ahol nincs a lapon feltételes formázás.
-
válasz
Fferi50
#23246
üzenetére
Közben az a helyzet állt elő, hogy van amikor az új árlistában kevesebb termék van, így azokat ami a "mi" listánkba benne van és az újba nincs, azt ki szeretném listázni egy új munkalapra.
Az általad írt ciklust fordítottam vissza és 80%-ban működik is, de a két munkalap sorainak számának különbségéből látom, hogy 21 terméket vettek ki az új listából, ám az én makróm csak 17-et listáz ki.
Sajnos nem jöttem rá, hogy mi a gond. (Remélem nem bonyolítottam túl a leírást.)For i = 2 To Sheets("pm_nk_arlista").UsedRange.Rows.Count
Set ujszam = Sheets("pm_nk_arlista_uj").UsedRange.Columns(1).Find(What:=Sheets("pm_nk_arlista").Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
If ujszam Is Nothing Then
Sheets("Kiesett_termékek").Cells(a, 1).Value = Sheets("pm_nk_arlista").Cells(i, 1).Value
Sheets("Kiesett_termékek").Cells(a, 2).Value = Sheets("pm_nk_arlista").Cells(i, 2).Value
Sheets("Kiesett_termékek").Cells(a, 3).Value = Sheets("pm_nk_arlista").Cells(i, 3).Value
Sheets("Kiesett_termékek").Cells(a, 4).Value = Sheets("pm_nk_arlista").Cells(i, 4).Value
Sheets("Kiesett_termékek").Cells(a, 5).Value = Sheets("pm_nk_arlista").Cells(i, 5).Value
a = a + 1
End If
Next iVan ötletetek?
-
biker
nagyúr
-
billyjoe
csendes tag
válasz
Fferi50
#23213
üzenetére
Szia!
Köszi a választ!
Kipróbáltam hogy a pivotokat külön file-ba raktam, az alapadatokat pedig beduplikáltam, így lefutott a frissítés. A másik gond, hogy az alapadatoknál van kb 10 oszlop ahol képletekkel számolok, annak az újrahúzása nem kis időt vett igénybe, de végül megtudta csinálni. Ez egy kész riporting rendszer, ugye rengeteg adattal, a jelenlegi tudásommal nem tudnám megcsinálni pivotok nélkül sajnos.Szívesen mutatnék adatok nélkül egy mintát, de sajnos nincs rá lehetőségem. Tulajdonképpen napi sales adatok vannak benne, a pivotok segítségével kerülnek be az elemző táblázatba a szükséges adatok, ott is van kb. 15 sheet táblázatokkal, diagramokkal.
De a lényeg, hogy úgy tűnik működni fog, úgyhogy még egyszer köszönöm a segítséget.
Üdv!
-
valami ötlet?
majd a végén vissazugrik a kiinduló lapra...
Ezer köszi és hála! 
Új hozzászólás Aktív témák
Hirdetés
- Ilyen a Huawei Watch 5 és új érzékelője
- Háztartási gépek
- One otthoni szolgáltatások (TV, internet, telefon)
- Hajmeresztő ajánlat: 34,5 milliárd dollárért vinnék a Google Chrome böngészőjét
- Luck Dragon: Asszociációs játék. :)
- Renault, Dacia topik
- E-roller topik
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Nők, nőügyek (18+)
- QNAP hálózati adattárolók (NAS)
- További aktív témák...
- Játékkulcsok a legjobb áron: Steam
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Apple Air Pad 5.generácio / 32GB / Wi-fi / 12Hó garancia
- Szinte új! 3 Hónapos! Playstation 5 Slim Disc (Lemezes) Kiadás! Garancia: 2027.05.15
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- Apple iPhone 13 Kártyafüggetlen 1 év Garanciával
- GYÖNYÖRŰ iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3034, 100% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest