Hirdetés
- Luck Dragon: Asszociációs játék. :)
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- bambano: Bambanő háza tája
- sziku69: Szólánc.
-
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
-
Polllen
félisten
Szia!
Köszi! Igazából itt nem egy hetet kell összegezni, csak kiválasztani az utolsó értéket (ami pont hétvége) két táblából és összeadni.
De az ötleted alapján ez tökéletesen működik:
DATESBETWEEN(Dátum[Dátum];LASTDATE(Table1[Dátum]);LASTDATE(Table1[Dátum]))Illetve megtaláltam ugyanezt a problémát az SQLBI-n egy quiz formájában.
A megoldás az, hogy minden maradhat az eredetiben, de LASTDATE() helyett a MAX() kell...
-
Polllen
félisten
Sziasztok!
Tudna valaki segíteni DAX-ban?
Van 1 2019-ig tartó lookup táblám (Dátum) és 2 adat táblám, amiben múlt vasárnapig van adat.
Mindkét táblában van egy érték, amit egy egyszerű measure-rel összesítek.
Total = sum(tábla1[érték])+sum(tábla2[érték])Ez tökéletesen működik, viszont van több olyan chartom, ahol csak az utolsó hét adata kellene.
Dinamikus filterrel ezt meg tudom oldani, de szeretnék rá egy measure-t, ami nem igazán működik.
Arra gondoltam, hogy egy calculate függvénnyel leszűrök a dátum táblában arra a napra, ami a tábla1-ben az utolsó dátum.
Last value = CALCULATE([Total];FILTER('Dátum';'Dátum'[Nap] = LASTDATE(tábla1[Dátum])))Ez így egy filter nélküli totált eredményez. Akkor is, ha a [Totál]-t kicserélem a SUM-ra és két calculate-t adok össze, uh feltételezem a filter nem jó.
-
Polllen
félisten
Sziasztok!
Egy kis segítségre lenne szükségem.
BI-ból töltünk le adatokat, ahol a a dátumok "16.08.2019" formátumban jönnek le, az angol excel viszont (gondolom a magyar régiós beállítások miatt) nem ismeri fel dátumként. Pl. ha ebből az értékből kivonom a today() függvényt, hibára fut.
Az isdate() viszont simán elfogadja dátumnak...
Hogyan tudnék ezekkel a dátumokkal a legegyszerűbben dolgozni? Most azt csinálom, hogy Date()-tel kicserélem "2019.08.16" formátumra, de ez így elég macera. Ráadásul a csavar az, hogy ha én töltöm le az adatokat, nálam a dátum jól jelenik meg. Viszont ha broadcastelem, a szerver már így küldi ki...
-
-
Polllen
félisten
Sziasztok!
Kellene egy kis segítség pivot frissítésben.
Adott egy file, amiben 2 fülön vannak az alapadatok, erre épül 5-6 pivot.
Ezt a két fület kitörölöm teljesen és újjal helyettesítem, majd:For Each Sheet In ThisWorkbook.Worksheets
For Each Pivot In Sheet.PivotTables
Pivot.RefreshTable
Pivot.Update
NextÉs ezzel nem is történik semmi.
Kénytelen vagyok egyenként frissíteni a pivot táblákat. Miért?
-
Polllen
félisten
válasz
Delila_1
#33417
üzenetére
Szia!
Minden cikkszám exportálása szövegként történik, akkor is ha szám van benne. Az excel jelzi is, hogy ez szöveg formátum, bár szerinte szám.
vlookup, index-match kombó jól is kezeli. A sumifs az első ami nem.
Amúgy az általad javasolt megoldás és aközött, hogy aposztróffal kezdődik a számsor, van különbség?
-
Polllen
félisten
Üdv!
Kellene egy kis segítség.
Adott két cikkszám:
56116E03
56116000A sumifs ezeket ugyanannak gondolja és a hozzájuk tartozó értékeket összeadja némi duplikációt okozva a számolásban. (A cikkszám az egyik feltétel.)
Mit lehet tenni, hogy normálisan működjön és ne keverje őket?
-
Polllen
félisten
Sziasztok!
Adott ez a kód, amivel kb 50.000 sorba kerül egy képlet, a probléma az, hogy néha előbb lép tovább a következő műveletre, minthogy befejezte volna a kalkulációt, így random az utolsó x ezer sorhoz nulla érték kerül...
Range("D2:D" & req_end).FormulaR1C1 = _
"=IFERROR(RC[-1]*VLOOKUP(RC[-3],'[MRP value list rev_1.xlsm]MatMaster'!C2:C8,7,0),0)"
Range("D2:D" & req_end).Value = Range("D2:D" & req_end).ValuePróbáltam azzal, hogy beillesztek egy calculate parancsot, de ezt is simán átlépi:
Range("D2:D" & req_end).FormulaR1C1 = _
"=IFERROR(RC[-1]*VLOOKUP(RC[-3],'[MRP value list rev_1.xlsm]MatMaster'!C2:C8,7,0),0)"
Worksheets("Req").Calculate
Range("D2:D" & req_end).Value = Range("D2:D" & req_end).ValueTermészetesen debug-ban lépésenként végrehajtva tökéletesen működik.
Tudok olyan beillesztési módot, ami 100% működik, de gyors is?
Pl. Selection.Autofill?
-
Polllen
félisten
Sziasztok!
Onedrive-n elhelyezett excel-ben van lehetőség arra, hogy bizonyos cellák módosítását korlátozzuk, ha a webböngészőben nyitja meg a file-t valaki? Elméletileg ilyenkor a macro-k nem működnek.
Konkrétan arra lenne szükségem, hogy a megnyitáskori tartalmat ne lehessen módosítani, csak új sorokat hozzáadni.
-
Polllen
félisten
Sziasztok!
Ismét némi segítség kellene.
Van egy nagy file, amibe bekerül egy filter és a leszűrt tartalom egyik oszlopát át kell másolni egy másik sheet-re.
Worksheets("BOM report").Columns(5).Copy Destination:=Worksheets("Outphasing platform list").Columns(2)
Ez a kód a filter-t is bekapcsolja az új sheet-n. Megoldható, hogy ez ne történjen meg?
-
Polllen
félisten
-
Polllen
félisten
Sziasztok!
Nincs valakinek ötlete, hogyan lehetne a legegyszerűbben megoldani a következő problémát?
Van egy műszak 6:00-14:20 között.
3 szünettel:
7:50-8:00
9:40-10:00
11:50-12:00Tudom egy munkafolyamat kezdését és befejezését. Ki kellene számolni a szünetek nélkül az időtartamot...
Pl.: Kezdés: 7:40, befejezés 10:05, ebből ki kellene venni 10+20 percet.
-
Polllen
félisten
Sziasztok!
Ez a sor a változó(k) definiálása után csak akkor nem dob application defined error-t ha a Layout fül ki van választva:
Worksheets("Layout").Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")Ha helyettesítem egy változóval:
Dim ws1 As Worksheet
Set ws1 = Worksheets("Layout")
Worksheets(ws1).Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")Akkor pedig Type missmatch...
Mi a helyes megoldás anélkül, hogy beírnám elé, hogy Worksheets("Layout").select?
Még annyi, hogy az eredeti kód változó nélkül szépen lefut:
Worksheets("Layout").Range("A1:T3").Copy Destination:=Worksheets("Summary").Range("A1") -
Polllen
félisten
Sziasztok!
Kellene egy kis segítség. Van egy könyvtárstruktúra, amiben az adott hét sorszámával létre kell hozni egy mappát, ha még nincs. Pl. C:\Maki\Week 47
Ez a kódsor mindig azt dobja, hogy a mappa nem létezik és létre akarja hozni.
fpath = "C:\Maki\Week " & Format(Date, "ww")
If Dir(fpath) = "" Then MkDir (fpath)Mit rontok el?
-
Polllen
félisten
Sziasztok!
Kellene egy kis segítség.
Van egy ~16.000 soros táblázat, amiből ki kellene törölnöm azokat a sorokat, ahol a 4. oszlopban "#N/A" szerepel. A cellák tartalma különböző.
Kipróbáltam ezt, de borzasztóan lassú:
Range("A1").Select
Selection.End(xlDown).Select
lRow = ActiveCell.Row
Do While lRow >= 1
If Cells(lRow, 4).Text = "#N/A" Then Rows(lRow).EntireRow.Delete
lRow = lRow - 1
LoopNem tudtok valami gyorsabb módszert?
B tervnek az jutott eszembe, miközben ezt leírtam, hogy úgy rendezem a táblázatot, hogy az összes "#N/A" sor kerüljön előre, ezután kap egy filter-t és úgy kitörlöm az eredményt.
Mit gondoltok?
-
#28187
Polllen
félisten
ritterkrisz
#28186
Polllen
félisten
válasz
ritterkrisz
#28186
üzenetére
Az idézőjelen belülre, ahová kell, gondolom az xx-nél lemaradtat pótolnád:
="x y z -- " & ", xx: " & A1 & ", yy: " & B1 & ", zz: " & C1
-
Polllen
félisten
Sziasztok!
Volna egy kérdésem.Van egy macro, ami így kezdődik:
Application.ScreenUpdating = False
'Open file
Workbooks.Open Filename:= _...Nem végzek ellenőrzést, hogy nyitva van-e vagy sem az a file, mert probléma mentesen újra megnyitja mindenkinél. De 20+ userből van egy, akinél ez runtime error 1004-t dob és csak akkor működik, ha nincs megnyitva.
Mi lehet nála másképpen beállítva?
-
Polllen
félisten
válasz
Delila_1
#27631
üzenetére
Sziasztok!
Nekem kellene egy hasonló megoldás, csak kicsit bonyolítva.
4 oszlopban vannak adatok, az első a szállítólevélszám.
Minden szállítólevélhez kell egy worksheet a szállítólevélszámmal és oda kellene másolni a hozzátartozó sorokat fejléccel.
Természetesen a szállítólevelek darabszáma változó.
-
-
Polllen
félisten
válasz
KaliJoe
#25128
üzenetére
Szia,
az ActiveWindow.SelectedSheets.PrintPreview(wsh_Űrlap) így nem működik változó hibával, ahogy eredetileg is írtad. Mondjuk a SelectedSheets-nek elégnek kellene lennie a változó nélkül.
Viszont amit belinkeltem, az úgy működik, ahogy van, használtam többször is...A worksheets(xy) elég egyértelműen definiálja mire vonatkozik az utána következő PrintPreview...
If Worksheets(wsh_Urlap).PrintPreview = True Then vagy If Worksheets("Sheet1").PrintPreview = True Then -
Polllen
félisten
válasz
KaliJoe
#25126
üzenetére
Mindig ugyanazt a sheet-t akarod kinyomtatni?
Ez alapján, igen:
...
Dim wsh_Űrlap As Variant
wsh_Űrlap = Worksheets("Űrlap Nyomtatáshoz")
...
If ActiveWindow.SelectedSheets.PrintPreview(wsh_Űrlap) = True Then
Worksheets("Alapértékek").Select
ActiveSheet.Unprotect
Worksheets("Alapértékek").Cells(4, "J").Value = Worksheets("Űrlap Nyomtatáshoz").Cells(2, "M").Value + 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
...Próbáld meg ezt:
Dim wsh_Urlap As String
wsh_Urlap = "Űrlap Nyomtatáshoz"
...
If Worksheets(wsh_Urlap).PrintPreview = True Then
Worksheets("Alapértékek").Select
ActiveSheet.Unprotect
Worksheets("Alapértékek").Cells(4, "J").Value = Worksheets("Űrlap Nyomtatáshoz").Cells(2, "M").Value + 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End IfBár ha fix, változó sem kell.
-
Polllen
félisten
Ettől még text-ként értelmezi sajnos.
Ha visszaolvasol én pl. ilyeneket használok:
"=VLOOKUP(RC[-9],'" & utvonal & "[" & valtozo & "]Shortage'!C1:C10,10,0)"Tökéletesen működik, ha general a cellaformátum. Lehet érdemes akkor még kipróbálni a HA helyett IF-t, ahogy előttem javasolták.
-
-
Polllen
félisten
Hali,
kellene egy kis segítség vba-ban:
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-9],'[shortage old.xls]Shortage'!C1
10,10,0)"Ebben egy vagy több változóval kellene helyettesítenem a '[shortage old.xls]Shortage'!C1
10-tCsak a file név változik, a shortage old.xls...
Hogyan kellene definiálnom a változót?
Köszi előre is!
-
#23557
Polllen
félisten
m.zmrzlina
#23554
Polllen
félisten
válasz
m.zmrzlina
#23554
üzenetére
És változni is fognak, hiszen bizonyos sub-n belül dolgozol velük.
Ha mindig ugyanaz a kiinduló érték, nincs jelentősége annak, hogy egy sub-bal vagy munkafüzetben adod meg a kiinduló értéket.
Ha viszont az utolsó folyamat értéke kell, akkor is ha aktuálisan az a folyamat nem futott, tehát nem adott értéket, el kell tárolnod az előzőt és azt beolvasni.
-
#23543
Polllen
félisten
m.zmrzlina
#23542
Polllen
félisten
válasz
m.zmrzlina
#23542
üzenetére
Ha mindig az előző eljárásnál felvett érték kell az újban, akkor public változókat kell használnod. Így adott module-n belül minden sub "látja".
-
-
Polllen
félisten
Üdv,
kellene egy kis segítség, a következő sor miért nem működik?
Worksheets("Sheet3").Range("A1", Range("A1").End(xlDown).End(xlToRight)).Clear
Csak így:
Worksheets("Sheet3").Select
Range("A1", Range("A1").End(xlDown).End(xlToRight)).ClearNem különösebben okoz gondot nekem, de több fülön is mókolok, jobb lenne a váltogatás nélkül megoldani.
Köszi!
-
#9767
Polllen
félisten
antikomcsi
#9766
Polllen
félisten
válasz
antikomcsi
#9766
üzenetére
Nem olvastam vissza, de ha pl. az A1 mellé szeretnéd varázsolni a munka4 lap azonos értékéhez tartzó b oszlopban lévő értéket, akkor
Fkeres (vlookup) Ez mindig kikeresi neked a kereset cella tartalmához tartozó értéket egy táblából, adott oszloból. Nálad ez valahogy így nézne ki
=FKERES(A1;munka4!A:B;2;0)
Az A1, amit keresel, az A: B, ahol keresel (nyilván megadhatod neki, hogy csak az első 50 sorban keressen, A1: B50), a 3. érték, hogy melyik oszlopból adja meg az eredeményt (az első oszlop, amiben keres az 1), az utolsó kapcsoló pedig azért felel, hogy csak teljes egyezés esetén adjon adatot.)Így ha változtatod az A1 értékét, mindig más értéket fog megtalálni neked.
-
Polllen
félisten
Sziasztok!
Egy kis segítség kellene, bár lehet win7 issue...
Nem tudom, mi történ, de eltűntek a pin-l rögzített táblák és a history is az excel-nél... Sem a tálcán, sem a start menün nem jelenik meg és újakat sem tudok rögzíteni...
Más programoknál működik, csak innen tűnt el...
Hogy tudnám visszacsinálni?
A probléma:
10,10,0)"
Új hozzászólás Aktív témák
- Gaming notebook topik
- Milyen notebookot vegyek?
- Lenovo Thinkbook, Yoga széria
- Google Pixel 9 Pro XL - hét szűk esztendő
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- TCL LCD és LED TV-k
- Kivégezheti a kisebb VGA-gyártókat az NVIDIA döntése
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- LEGO klub
- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Fallout 4 Pip-Boy Edition
- BESZÁMÍTÁS! ASUS ROG Crosshair VIII Extreme alaplap garanciával hibátlan működéssel
- Urvolax vezeték nélküli tolatókamera és kijelző / 12 hó jótállás
- CTO Bontott 0perces TÜZES EZÜST MacBook Air 13.6" M4 10C/1G 16GB 512GB Gar.: 1 év APPLE világgar
- Gamer PC-Számítógép! Csere-Beszámítás! I7 12700E / RTX 3070Ti / 32GB DDR5 / 1 TB SSD
- HP 14 Elitebook 640 G10 FHD IPS i5-1345U vPro 10mag 16GB 512GB SSD Intel Iris XE Win11 Pro Garancia
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest