- sellerbuyer: Nem veszélytelen a RAM duplázás de vajon megéri?
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- pusszycat: JEYI - okos, színes, interaktív, ssd külső ház.
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- aquark: Jó platformer játékokat keresek!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: Gigabyte GA-B350M-D2 - AM4 lap 2016-ból amikor még nem volt Ryzen!
- Amazon Kindle JailBreak
-
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
-
logitechh
csendes tag
Sziasztok
Van egy táblám ami kaják receptjeit tartalmazza:
Anno valaki csinált egy makrót ami adott kaják receptjeit kilistázta.
Valaki tud segíteni?
nem csak egy kaját hanem változó mennyiségű kaját azt hiszem egy tartományba be kellett adni a kódjait és szépen kilistázta mi kell hozzá.Illetve a kilistázás után hogyan tudom megoldani hogy egy másik helyre szummázva csak az összetevők megjelenjenek.
2 lista kellene:
1. a kaják felsorolása és mellé az értéke
2. az alapanyagok összesen szóval a kilistázott kajákhoz ennyi só annyi rízs stb.
köszi előre is -
0P1
aktív tag
-
Delila_1
veterán
válasz
GreenIT
#37884
üzenetére
A Munka1 lap A1 cellájától kezdve bevittem az idei dátumokat, ez A365-ig tart.
A Munka2 lap A oszlopába az idei ünnepnapok dátumát írtam be, a C-be pedig a "ledolgozós" szombatokét.A lenti makró kitörli a Munka1 A oszlopából a megfelelő sorokat.
Sub Munkanapok()
Dim sor As Integer, WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Sheets("Munka1").Select
For sor = 365 To 1 Step -1
If WF.CountIf(Sheets("Munka2").Columns(3), Cells(sor, 1)) > 0 Then GoTo Tovabb 'szombati munkanap
If WF.CountIf(Sheets("Munka2").Columns(1), Cells(sor, 1)) > 0 Then Rows(sor).Delete Shift:=xlUp 'ünnepnap
If WF.Weekday(Cells(sor, 1), 2) > 5 Then Rows(sor).Delete Shift:=xlUp 'hétvége
Tovabb:
Next
End SubAmelyik listában nem akarod a hétvégéket törölni, annál tedd megjegyzésbe a hétvégés makrós sort úgy, hogy a sor elejére aposztrófot teszel.
-
0P1
aktív tag
Ja most olvasom, hogy 2010-hez kell, ez a funkció 2010-es PPivotban nem elérhető, csak 2016-osban.
Akkor PowerQuery bővítménnyel oldható meg.CSinálj egy új üres lekérdezést, és írd be ezt :
= List.Dates
Add meg a paramétereket (Kezdő dátum, számláló, lépés )
és invoke-old a függvényt . Alakítsd táblává a listát, majd adj hozzá egy hét napja oszlopt (Add column/ DAte/Day/Day of week - Oszlop hozzáadása / Dátum / Nap / Hét napja) . Ebben az oszlopban szűrd ki a szombatot és vasárnapot. (egyéb manipulációkat is csinálhatsz)Ezután, attól függően, hogy PowerPivot, vagy hagyományos Pivotot (kimutatást) akarsz használni, két lehetőséged van:
1. Ha PowerPivot, akkor Close and Load to (Bezárás és Betöltés ) : Only create connection (CSak kapcsolat létrehozása) és add hozzá a Data Modelhez (Add this Data to the Data Model legyen bepipálva ). És innentől ugyanaz, mint amit az előző hsz-emben írtam.
2. Ha van PowerQuery bővítmény, akkor nincs feltétlenül szükség PowerPivotra sem, hagyományos kimutatásban is használhatod ezt a testreszabott idősort. Ehhez először be kell olvasnod a fő adttábládat is PowerQuery, majd összemerge-elnéd az idősoroddal, és Close and load to / Only create connection (Ebben az esetben nem kell a Data Modelhez hozzáadni, mert hagyományos pivotban fogod használni)
Ezután Pivot létrehozásakor Use an extarnal Data Source (Külső adatforrás használata) és itt ki tudod választani a most létrehozott összemerge-elt lekérdezésedet, amiben immár benne van az egyéni idősorod is.
De én inkább az első módszert javaslom.
-
111Lujzi
újonc
EXCEL - ADATGYŰJTÉS
Sziasztok!
Kérdésem az, valaki tud-e segíteni abban, hogy egy sablonként használt excel fájlnak konkrét celláit számos alkalommal töltjük fel eltérő adatokkal, majd ezt követően lementésre kerülnek egy külön dokumentumként, -- egymástól függetlenül. Minden ilyen dokumentumban van pár tipikus cella, aminek tartalmát listaszerűen egy külön táblázatban is gyűjteni kellene. Meg lehet-e csinálni valahogy azt, hogy mikor megnyitottuk a sablon fájlt, kitöltöttük, lementettük, akár egy kattintással, egy fix helyen elmentett táblázat soron következő üres sorába, beírja, vagy behivatkozza akár automatikusan az szükséges cellák tartalmát az aktuálisan kitöltött sablonból.
Lényegében azt kellene megspórolni, hogy a minta dokumentum kitöltése és elmentése után, egy másik 'adatgyűjtő' táblázatot kelljen megnyitni, és ott számos hivatkozást létrehozni az előbb kitöltött és elmentett sablon vonatkozó celláira (vagy bemásolgatni őket). Nem fontos, hogy hivatkozás legyen, simán az adattal is töltődhetne az adatgyűjtő táblázat. A sablon kitöltés után mindenféle néven mentődik egy folyamatosan bővülő mapparendszerben -ha ez fontos. Köszönöm! -
0P1
aktív tag
válasz
GreenIT
#37884
üzenetére
Szia,
Gondolom , kimutatáshoz / diagramhoz kell az idősor. A sima Pivotban nem lehet, de PowerPivotban igen. (2010-hez külön bővítményként tölthető le) . Csak létrehozol egy dátum táblát (Dátumtáblázat/Új)
http://jegyzetek.biprojekt.hu/Datum-tabla-az-Excel-2016-ban
Majd kiszűröd hét napja oszlopban a Szombatokat és Vasárnapokat (És meg egyéb egyéni testreszabásokat is csinálhatsz). Aztán beállítod az eredeti tábládhoz a kapcsolatot a most létrehozott egyéni időtábládhoz, és onnantól kezdve ugyanolyan módon használhatod ezt egyéni idősorként, mint hagyományos pivotban.
-
#37887
0P1
aktív tag
macilaci78
#37885
0P1
aktív tag
válasz
macilaci78
#37885
üzenetére
Vagy, ha jól olvasom, mivel Excel 2016 is van:
Adatok -> Beolvasás és Átalakítás /Táblázatból. -> Oszlop felosztása > Elválasztó alapján
Add meg a vesszőt elválasztónak, majd Bezárás és betöltés. -
#37886
PistiSan
addikt
macilaci78
#37885
PistiSan
addikt
válasz
macilaci78
#37885
üzenetére
Jól értem hogy védővel van elválasztva minden egyes adat?
Adatok lap Adateszközök csoportjában kattintsunk a Szövegből oszlopok gombra.
Bővebben: [link] -
#37885
macilaci78
nagyúr
macilaci78
nagyúr
Hali!
Egy árlista elemeit akarom szétcincálni.
Pl a cellaérték:
8×50 kapupántcsavar, rozsdamentes, bal menetes, anyávalEbből akarok létrehozni olyan adatbázist, ami különszedi az egyes ismérveket. Pl csavar, azon belül metrikus csavar, azon belül kapupántcsavar, 8×50 mm méretű, 8 mm vastag, 50 mm hosszú, menet iránya, anyát adnak-e hozzá? Ezek az ismérvek külön oszlopba kerülnének.
Sajnos azért nehezíti a dolgot, hogy van itt reisser csavar, szegecs, tűzőkapocs, hilti szalag, de még ülősarok és motorolaj is, a saját ismérveik szerint, egyazon táblázatban. Nem sok, alig 2000 sor.
Köszi!
Excel 2007 és 2016 áll rendelkezésemre.
-
Pikkolo^^
addikt
Egy kis segítségre lenne szükségem. Van egy cellám amibe ha beírok egy számot 0-25 között akkor egy másik cellába vissza kellene adni egy számot arányosan melynek a tartománya 40-15 közé esik. Ha 0-t írok akkor 40-t jelenít meg, ha 25-t akkor pedig 15-t. Ha a kettő közötti értéket akkor viszont arányosan adja vissza. Képletként ez hogyan nézne ki?
-
spe88
senior tag
válasz
Fferi50
#37734
üzenetére
Szia!
Jó nagy késéssel írok vissza, de csak most jött elő megint a helyzet. Szóval rákerestem a teljes projektben a Volatile szóra, de nem talált semmit. Nagyon érdekes a helyzet, mert nem tudom megérteni, hogy egy teljesen új munkafüzetben, hogy tud egy művelet sokáig tartani, ha semmi köze a makrós fájlhoz.
Az adatok titkosak, hogy megosszam, viszont igyekszem valahogy lebutítani, aztán átküldeni privátban. Kíváncsi vagyok, hogy tud egy fájl így belassítani az egész Excelt.
Köszi
-
tpeter77
addikt
válasz
föccer
#37879
üzenetére
sziasztok,
Pár napja eltűnt a fájl betekintő előnézeti képe. Vajon mi lehet a gond?
Itt írtam róla bővebben.Win 10 education verzió, és Tisztaszoftveres Office 2016 hun változat van a gépen.
Múlt hétig rendben működött minden, majd feltűnt, hogy az Excel előnézeti kép nem jön be az Outlookban, és megnyitni sem engedi az xls fájlokat,
olyan mintha az Outlookhoz nem lenne társítva program, amivel az xls fájlokat meg tudná nyitni, ezért olyan üzenetet küld, hogy mentem le a fájlt és úgy nyissam meg.
Feltűnt, hogy a fájlkezelőben sincs már betekintési (előnézeti) kép.
Frissítési bug, vagy valami más hibával állok szemben?
köszönöm!
-
Fferi50
Topikgazda
válasz
föccer
#37877
üzenetére
Szia!
"Ez gyönyörű szépen is működik minden esetben, kivéve a dátum esetében."
Mint bizonyára te is ismered, az Excel a dátumot számként értelmezi. Ha tehát a "dátumot tartalmazó cella" valóban dátum formátumú, bármit is látsz ott, amögött szám van (!).
Ezért a feltételekben is számként kell megadni a dátumot.Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1, Criteria1:=">=" & Format(Sheets("Segédszámítások").Range("C3").Value,"###") stb.Üdv.
-
föccer
nagyúr
Erő, egészség!
Van némi zavar az erőben, kérlek segítsétek kibogozni.
Van egy munkafüzet, két munkalappal. Tulajdonságok munkalap tartalmazza az alap adatokat, vizsgálati eredményeket, a segédszámítások pediglen a kiértékelést. Utóbbiban beállíthatóak azok a paraméterek, amelyek alapján a kiértékelést el akarom készíteni
Minden paraméter választható lista, kivétel a mintavétel eleje és vége, amelyre adatérvényesítés van megadva. A tulajdonságokban az egyes adatsorok feltöltésénél szintén listából választható a paraméter, így elgépelés esete nem állhat fenn.
A képen látható Talált vizsgálatok értéke a fenti paraméterek alapján, darabhatöbb() függvénnyel megtalált vizsgálati sorok számát adja meg.
Készítettem egy makrót, ami a közvetlenül a tulajdonság munkalapon állítja be az autofiltert az adott paraméterekre (erre azért van szükség, mert az adott vizsgálati halmaz minimum és maximum értékeire is szükségem van, így a Tulajdonság munkalapon használnom kell az összesítés() függvényt is).
Sub Szurofeltetel_alk()
'
' Szurofeltetel_alk Makró
'
'
With Sheets("Tulajdonságok")
If .AutoFilterMode Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter
End If
End With
If Sheets("Segédszámítások").Range("C3").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1, Criteria1:=">=" & Sheets("Segédszámítások").Range("C3").Value, Criteria2:="<=" & Sheets("Segédszámítások").Range("D3").Value
End If
If Sheets("Segédszámítások").Range("C4").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2, Criteria1:=Sheets("Segédszámítások").Range("C4").Value
End If
If Sheets("Segédszámítások").Range("C5").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3, Criteria1:=Sheets("Segédszámítások").Range("C5").Value
End If
If Sheets("Segédszámítások").Range("C6").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4, Criteria1:=Sheets("Segédszámítások").Range("C6").Value
End If
If Sheets("Segédszámítások").Range("C7").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5, Criteria1:=Sheets("Segédszámítások").Range("C7").Value
End If
If Sheets("Segédszámítások").Range("C8").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6, Criteria1:=Sheets("Segédszámítások").Range("C8").Value
End If
If Sheets("Segédszámítások").Range("C9").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7, Criteria1:=Sheets("Segédszámítások").Range("C9").Value
End If
End SubEz gyönyörű szépen is működik minden esetben, kivéve a dátum esetében. A makró pontosan beállítja a szűrőfeltételt, amit az helyen két érték közöttinek értelmez is ahogy kell. Viszont az autoszűrő úgy veszi át a dátum paramétert, hogy a szűrőfeltételekben a végén van egy pont.
Erre viszont az autoszűrő már nem ad találatot, mert az csak pont nélkül eszi meg a dátum adatokat.
Ha nem adok meg dátum paramétert, akkor nyilván hibátlanul működik.
Mi lehet a megoldás?
Köszi, FG
-
#37876
Anonymus23
veterán
Delila_1
#37868
Anonymus23
veterán
-
PistiSan
addikt
Mitől lehet az, hogy egyes excel fájlok (office 2016, xlsx) amik táblázatokat, szövegeket tartalmaznak, hirtelen irdatlanul nagyra nőttek?
50mb az egyik excel fájlom, de ha kézzel manuálisan át másolom az adatokat másik excel fájlba, akkor lesz mondjuk 500kb az egész.
El telik egy pár nap, aztán megint el kezdenek nőni, sokszor csinálok szűrést, egyéni sorrendet, de az nem hiszem hogy változtatna a méretén. -
#37870
dellfanboy
őstag
dellfanboy
őstag
van egy excel tablam amit szeretnek levedeni. angol excelem van hogyha a ribbon-on a review majd az allow edit range-ra kattintok
es letrehozok uj szabalyokat (permisson) hozza rendelek felhasznalo neveket akkor tok random hol a szabaly szerint jol mukodik, viszont
bizonyos esetekben hiaba van lekorlatozva a user 100%-ban garazdalkodhat ossze vissza a dokumentumban.
szerintetek mi lehet a hiba?merre nezzek korul? makroval meglehet oldani hogy egy excel bizonyos tablait csak x,z lassa/olvassa/irja? -
lumpy92
aktív tag
Sziasztok!
Egy másik kérdésem is felmerült:
Hogyan oldható meg az, hogy a weblapról betöltött táblázat betöltését megvárja a program és csak utána futtassa tovább a kódot?
Application.Refresh ről több helyen írtak a neten, de nálam nem is csak frissítésről van szó, hanem egy ún. QueryTable hozzáadásáról, a célhelyen lévő cellák felülírásával. Tehát nem frissítés művelet zajlik le a makró futtatásakor, hanem táblázat hozzáadása. Ezt a makrón belül 2x csinálom meg, az elsőnél működik a dolog, de a másodiknál a letöltés utáni folyamatok hamarabb lefutnak, mint az adatok betöltése a táblázatba.
Köszönöm a tippeket!Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pelda.hu" _
, Destination:=Range("$A$5"))
' .CommandType = 0
.Name = "Table1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
' Ez át lett írva, hogy csak a táblázatokat kérjük le.
.WebSelectionType = xIAllTablesdefault
' Ez át lett írva, hogy mindet formázza.
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery = False
End With -
#37868
Delila_1
veterán
Anonymus23
#37867
Delila_1
veterán
válasz
Anonymus23
#37867
üzenetére
-
#37866
Delila_1
veterán
Anonymus23
#37865
Delila_1
veterán
válasz
Anonymus23
#37865
üzenetére
-
#37865
Anonymus23
veterán
Delila_1
#37864
-
#37864
Delila_1
veterán
Anonymus23
#37863
Delila_1
veterán
válasz
Anonymus23
#37863
üzenetére
Elemzés | Adatok | Más adatforrás megadása.
-
#37862
Delila_1
veterán
Anonymus23
#37861
Delila_1
veterán
válasz
Anonymus23
#37861
üzenetére
Nézz körül mindegyik verzió súgójában. Vagy leírjam egyenként a 5 féle megoldást?
-
#37861
Anonymus23
veterán
Delila_1
#37860
Anonymus23
veterán
válasz
Delila_1
#37860
üzenetére
Majdnem, mert amíg a válaszra vártam egy kicsit még módosítottam a formátumon (8 soros fejléc), így elszállt a kimutatás alapja, azt meg hirtelen nem találtam, hogy a forrásadatot hol is lehet újra beállítani, igazából most sem találom. Az a baj, hogy itt benn a cégnél van 2010/2013/2016-os excel is (de még igazi régi gépeken 2003/2007-es előfordul, és mindegyiknél más.
Én most egy új gépen dolgozok, ezen 2016-os van már, de úgy rémlik, hogy régebben a forrásadatot viszonylag egyszerűen lehetett állítani, de lehet most keverem az oly sokat használt fkeressel...
Egyébként működik, mert pilot jelleggel megcsináltam és azonnal mindent frissített, most már csak implementálni kell az éles fájlba
-
#37860
Delila_1
veterán
Anonymus23
#37859
Delila_1
veterán
válasz
Anonymus23
#37859
üzenetére
Remélem, a többi rész is ilyen sikeresen összejött.
-
#37857
Delila_1
veterán
Anonymus23
#37856
Delila_1
veterán
válasz
Anonymus23
#37856
üzenetére
Az Össz munkalaphoz kell rendelned a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Sheets("Stat").PivotTables("Stat").PivotCache.Refresh
End SubA táblázatod formátumát kiválaszthatod a Tervezés menüpontban a minták közül. A "Világos" csoportban az első mentes a zebráktól.
-
#37856
Anonymus23
veterán
Delila_1
#37855
Anonymus23
veterán
válasz
Delila_1
#37855
üzenetére
A kimutatás lap neve ugyanúgy a Stat
Ezt hova kellene beleírni egyébként?Viszont akkor nem biztos, hogy ez nekem jó lesz, mivel vannak formázások is az adatsorokon színek, amiknek vizuális okok miatt jelentése van, így meg, hogy a bal oldala "zebra" lett, elmegy az egész formátum
De ezen tudok változtatni, max koncepciómódosítás lesz... El kell döntenem mi ér többet, az automatizálás vagy a jelenleg kialakult formátum.Egyébként mit kellene beírni, hogy működjön a dolog?
Odáig eljutottam, hogy táblázattá alakítottam, hozzáadtam a kódot, átjavítottam 3-ra az oszlopot,
A kimutatás a "Stat" nevű lapon "Stat" néven van, az adatok pedig az ÖSSZ munkalapon. -
#37855
Delila_1
veterán
Anonymus23
#37854
Delila_1
veterán
válasz
Anonymus23
#37854
üzenetére
Az első képen lévő A1:D13 tartományt táblázattá kell alakítanod a Beszúrás | Táblázat menüponttal.
Ehhez a laphoz kell rendelned a makrót. Azt jól látod, hogy a Target.Column értékét 3-ra kell beállítanod, de az ActiveSheet helyére nem vitted be annak a lapnak a nevét, ahol a kimutatásod van. Ha a kimutatásod neve Stat, akkor az utasítás további része jó.
-
#37854
Anonymus23
veterán
Delila_1
#37853
Anonymus23
veterán
válasz
Delila_1
#37853
üzenetére
Próbáltam értelmezni, de nem megy, igazából makrót sem csináltam még.
Így néz ki az adattáblázat, aminek ÖSSZ a neve, van még benne több adat oszlop is, de amiből a kimutatás készül azok ezek az oszlopok:
Ebből készül ez a fajta kimutatás egy másik lapon, aminke a neve Stat:
Próbáltam értelmezni amit a makróval kapcsolatban írtál, de tipikusan olyan vagyok, amíg a logikájára rá nem jövök vakon vagyok teljesen
Hozzárendeltem a laphoz a kódot e szerint, de kb semmi sem történik
Az Össz lapon a 3. oszlop az, ami a változó, és ezeknek az átírásával, vagy új sor felvételével kellene nekem, hogy a Stat oldalon lévő kimutatás automatikusan frissüljön.
-
#37853
Delila_1
veterán
Anonymus23
#37852
Delila_1
veterán
válasz
Anonymus23
#37852
üzenetére
Éppen erről volt szó a 37831 hsz-től kezdve.
A válaszoknál találsz egy laphoz rendelt makrót. Ebben az ActiveSheet helyére a saját kimutatásod lapját kell megadnod Sheets("Saját_lap") formában.
-
#37852
Anonymus23
veterán
Anonymus23
veterán
Sziasztok,
Excel 2016.
Adott egy adattábla, amiből van egy másik füzetlapon egy kimutatás összegezve, ebből fkeressel pedig egy csinosított összesítő van megcsinálva ugyancsak egy másik lapon.
Amikor változtatások vannak akkor a képletek újraszámolódnak, de a kimutatást mindig kézzel kell befrissíteni (az be van állítva, hogy fájl nyitáskor frissítsen).
Erre van van valami kapcsoló, hogy a kimutatás is automatikusan frissüljön, amikor a hivatkozott adatfelületen változás történik?
Előre is köszönöm a segítséget! -
PistiSan
addikt
-
lumpy92
aktív tag
Sziasztok!
Excelben makrót írok egy weblap tartalmának betöltésére.
A makró elejét felvétellel rögzítettem. A kérdésem az, hogy a lent bemutatott képeken látható módon, én az adatbeolvasás tulajdonságainál a pipát kivettem a lekérdezésinformáció mentése boxból, azonban a makró futtatása során, szerintem ez a beállítás kimarad.
Kérdésem az, hogy milyen változóval, paranccsal tudom ezt korrigálni a makrón belül?
Előre is köszönöm a segítséget!
-
#37848
Fferi50
Topikgazda
Exportlaptop
#37846
Fferi50
Topikgazda
válasz
Exportlaptop
#37846
üzenetére
Szia!
Ha pontosan másoltad be a modul tartalmát, akkor az a gond, hogy hiányzik a végéről az utolsó sor:
End Sub.Valószínűleg véletlenül törölted.
Ha mégsem így lenne, akkor kérlek, másold ide pontosan.Üdv.
-
PistiSan
addikt
válasz
Delila_1
#37841
üzenetére
Szia!
Majdnem tökéletes, ha módosítok egy cellát akkor tényleg frissül a kimutatás, viszont én ezt úgy szoktam meg csinálni, hogy egy másik programból kigyűjtöm az adatokat, és csak simán ctrl+V-vel beillesztem az adott helyre, ilyenkor viszont nem frissül a kimutatás, gondolom a beillesztésre nem reagál a makró, csak ha kézzel át írok valamit.
A problémával tisztában vagyok, a megoldást viszont rád bíznám megint, mivel makróban egyáltalán nem vagyok jártas. -
#37846
Exportlaptop
csendes tag
Exportlaptop
csendes tag
Üdv!
Még anno segített egy kedves hölgy, talán Delila_1 az alábbi modul szerkesztésében, ami ezidáig tökéletesen működött, most viszont ezt a hibát írja ki: Compile error: Expected End Sub
És a modul:
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\MUNKA kicsinyitett2\BC adatbazis\UJ TERMEKEK 2018,04,13\COMP\KEPEK\"
sor = 1
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(10).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
LoopMi lehet a gond?
Nincs szóköz a végén vagy bármi ilyesmi, ismétlem a modul tökéletesen működött idáig.
A sorok is a helyén vannak.
Napok óta próbálkozom, sikertelenül.
Remélem tudnak segíteni.
Köszönöm előre is. -
Mutt
senior tag
válasz
Colin111
#37832
üzenetére
Szia,
Segédoszlop nélküli megoldás nem jön össze, de egy segédoszloppal igen.
Nálam a segédoszlop az M-ben van. M2 képlete:
=HA(A2<>"";HA(KIMETSZ(A2)=KIMETSZ(A1);0;1);"")Ha van a sor A-oszlopában név, akkor ha az előtte lévő sorban ugyanaz a név, akkor ismétlődés van és 0-t iratunk ki, különben 1-et. A KIMETSZ az esetleges felesleges szóközöket szűri, nem kötelező.
Ezt a képletet húzd le jó sok sorba, mondjuk 1000 sor.A Névkezelőben egy új dinamikus tartományt hoztam létre "seged" névvel Képlete:.
=ELTOLÁS(Munka1!$M$2;0;0;DARAB2(Munka1!nevsor))Ezek után a K3-ban a képlet erre változik:
=HA(K2>DARABTELI(seged;1);"Nincs több név";INDEX(nevsor;ÖSSZESÍT(15;6;SOR(INDIREKT("A1:A"&DARAB2(seged)))/seged;K2)))
A segédoszlop lehet egy rejtett lapon, vagy elrejtheted az oszlopot, akár az oszlop betű szinét fehérre is állíthatod.
üdv
-
Delila_1
veterán
válasz
PistiSan
#37840
üzenetére
A frissítést egyszerűen lehet automatizálni. A laphoz kell rendelned a lenti makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
End SubEbben 2 kell átírnod.
1. Ha a km nem a B (második) oszlopban van, akkor a Target.Column-hoz az oszlopod számát írd be a 2 helyett.2. Ha a kimutatásod neve nem Kimutatás1, akkor azt írd be.
A laphoz rendelésről olvashatsz a téma összefoglalóban.
-
PistiSan
addikt
Ki akartam próbálni ezt is, de nem igazán boldogulok vele, a másik megoldás is tökéletesen megfelel nekem, annyi hogy ott figyelni kell rá hogy frissítsek a kimutatást az új adatok beillesztése után, ennyiből tényleg jobban szeretem a képeteket, mert az adatok beillesztésekor már újra is számoldódnak az adatok.
Holnap teszek még egy próbát ezzel a megoldással is. -
Delila_1
veterán
Ha az A1:B8 tartományt táblázattá alakítod, nincs szükség az ELTOLÁS függvényes elnevezésre. Kijelölöd az A2:A8 területet, és a szerkesztőléc bal oldalán egyszerűen beírod a nevet (rendszámok).
A kimutatásos megoldásnál nem kell külön oszlopban felsorolni az esetleg változó rendszámokat.
-
Mutt
senior tag
válasz
PistiSan
#37831
üzenetére
Hello,
Alternatív megoldás.
Kimutatás mellett még használható az alábbi tömbfüggvény is az egyedi rendszámok kigyűjtéséhez.
D2-be írd be és húzd le:
=HAHIBA(INDEX(rendszamok;HOL.VAN(0;DARABTELI($D$1:$D1;rendszamok);0));"")A rendszamok legyen egy dinamikus tartomány.
=ELTOLÁS(Munka1!$A$2;0;0;DARAB2(Munka1!$A:$A)-1)Excel 2016-ban van már MAXHA függvény, Ha nincs ilyen függvényed, akkor marad a 37834-ben említett képlet.
üdv
-
Delila_1
veterán
válasz
PistiSan
#37831
üzenetére
Az eredeti adataidat alakítsd át táblázattá (beszúrás, táblázat).
Az ebből készült kimutatásban a sorcímkékhez tedd a rendszámokat, az értékekhez a megtett km-t. Itt legördíted a jobb oldali kis nyilat, az értékmező-beállításoknál kiválasztod a maximumot.Táblázattá azért érdemes alakítani a tartományodat, mert ha bővülnek az adatok, a kimutatásra csak egy frissítést kell adnod, nem kell kiegészítened a forrást az új sorokkal.
-
Colin111
csendes tag
Hi Mutt!
Köszönöm +1* a gyors és hatékony segítségedet, sikerült a saját táblázatomhoz alakítanom
Sajnos lett egy újabb kihívás ezzel a feladattal, ugyanis kiderült hogy a "nevsor" többször is tartalmazhatja ugyanazt a nevet, ha egy újabb dátummal bejegyeznek egy új eseményt.....
Minden rendben működik az eddigiekkel, csak az újonnan bekerült eseményeket kihagyja, mivel az a név már egyszer szerepelt korábban.Arra gondoltam, hogy a "nevsor" tartományt fogom dinamikusan megadni, azaz a már elmúlt/feldolgozott eseményeket már lépje át.
Üdv, Colin
-
PistiSan
addikt
Sziasztok!
Kocsi kilométer állásokat kell figyelnem.
A oszlopban ott vannak a rendszámok vegyesen, B oszlopban pedig a kilométerek amivel az adott napon lezárták őket.
A kocsi rendszámok ismétlődnek egy napon többször is, a kilométer értékek pedig nőnek értelme szerűen folyamatosan.Manuálisan ezt úgy oldom meg, hogy A és B oszlopot kijelölöm, csinálok belőle egy kimutatást, majd onnan a rendszám és kilométer táblákat bele húzom a kimutatás sorok oszlopába, és manuálisan leolvasom az értékeket.
Ezt szeretném valahogy úgy megoldani, hogy a friss adatokat bemásolva szépen kiírja valahová a rendszámokat és a maximum kilométereket amik az adott oszlopban a rendszám mellett szerepelnek.
A nehézség számomra az, hogy csak az adott rendszámon belül kell megkeresni a maximális értéket, utána ugrani a következő rendszámra, és ott is megtenni ugyan ezt.
Sajnos nem tudom megoldani, tudtok segíteni?
-
T 1000
aktív tag
Sziasztok!
Függvényhez kellene segítség. Olyan táblázatot vezetek, amelyikben jutalék nyilvántartás van. Az E oszlopban van egy legördülő lista a különböző státuszokról, a G oszlopban a jutalék mértéke százalékosan, L oszlopban az összeg, amiből a jutalék számolódik. Azt szeretném, hogy ha a legördülő menüből kiválasztom mondjuk a "szerződve" kifejezést, akkor az M oszlopban jelenjen meg a G és L oszlopok szorzata.
Előre is köszi!
-
Mutt
senior tag
válasz
swoody
#37820
üzenetére
A KÖZÉP függvény szöveg eredményt ad.
Ez onnan is látszik, hogy a kapott cella alapból balra van rendezve. Excelben a számok jobbra igazítva jelennek meg alapból. Egy szöveget (ami számnak látszik, de az Excel szövegként kezeli) hasonlítasz össze egy számmal, a típuseltérés miatt mindig hamis eredményt fogsz kapni.Konvertáld a szöveget számmá (pl. szorozd meg 1-el, vagy adj 0-t hozzá, vagy használd a kettős tagadást [--]), vagy alakítsd a másik helyen a számot szöveggé (pl. fűzd össze egy üres stringgel).
-
Fferi50
Topikgazda
válasz
swoody
#37817
üzenetére
Szia!
Ha mindenáron HA függvénnyel szeretnéd megoldani, akkor egymásba kell ágyazni azokat:
=HA(A2=1;B$8;HA(A2=2;B$9;HA(A2=3;B$10;HA(A2=4;B$11;HA(A2=5;B$12;HA(A2=6;B$13;"Nincs ilyen szám"))))))De sokkal egyszerűbb a Keres ill. később az Fkeres függvény:
Két oszlop kell, az elsőben a számok egymás alatt, a másodikban a neveik Pl a Keres függvényre:=KERES(A2;$D$8:$D$13;$B$8:$B$13)A képletet lehúzhatod a következő cellákba.
Üdv.
-
föccer
nagyúr
válasz
DeFranco
#37816
üzenetére
Van egy adattábla.
Első 7 oszlopban vannak a megrendelő, a vizsgáló labor, a vizsgálati anyag, azonosító szám, vizsgálat ideje meg ilyenek. A maradék oszlopban pedig a vizsgálati eredmények, szépen egymás mellett, vagy 20 oszlopban.
Egy másik munkalapon legördülő listában lehet kiválasztani a 7 paramétert, külön-külön, cellánként 1 paramétert. A feladat az, hogy számoljuk meg a listában beállított paramétereknek megfelelő találtok számát (és feltétellel).
Darabhatöbb pont erre van és működik is (dátumot tól-ig is működik, ha jól paraméterezzük a függvényt)), addig amíg valamelyik cella nem marad üresen. Ugyanis ha a darabhatöbb függvény kritérium értéke üres cella, akkor az 0 értéknek veszi és azt keresi, ami nyilván valóan nincs a listába, így 0 eredményt ad. Nekem arra van szükségem, hogy ha egy paraméter nincs megadva (üres cella), akkor a kritériumot ne vegye figyelembe. Erre a megodás az, hogy a kritéiumba az alábbi faék egyszerű képlet ment be HA(C5="";"<>";C5). Azaz, ha a C5 cellában lévő paraméter nincs megadva, akkor a keresett érték legyen "kisebb-nagyobb mint 0, azaz nullától különböző bármilyen érték.
üdv, föccer
-
-
swoody
senior tag
Sziasztok,
A következő függvény valamiért nem működik és nem értem, hogy miért. Tudnátok segíteni mi a baj?
Office 2007 úgy tudom a verzió.Az elképzelés az, hogy 6 szám van A1-be és azt listázza ki egymás alá (A2-A7), utánna az lenne majd, hogy ezekből a számokból HA függvénnyel valahogy kiötölni, hogy megfeleljen a B9-B14-ig.
De valamiért nem működik már az első HA függvény se. :\
Köszönöm.
-
#37810
Delila_1
veterán
Anonymus23
#37809
Delila_1
veterán
válasz
Anonymus23
#37809
üzenetére
A Te esetedben a 4:14 , valamint a 16:26 sorokat kijelölve kell bevinned a csoportosítást, tehát a címsorokat nem kell bevenni a kijelölésbe.
Ezután az Adatok | Tagolás menüben a Tagolás felirat jobb oldalán lévő kis nyílra kattintva kapsz egy ablakot, ahol kiveszed a pipát az "Összesítő sorok a részletsorok alatt " szöveg elől.
-
#37809
Anonymus23
veterán
Anonymus23
veterán
Sziasztok,
Excel2016, magyar nyelvű
Adott egy excel fájl, semmi extra, van egy fő megnevezés sor, alatta pedig adat sorok (az oszlopok itt mindegy), és azt szerettem volna, hogy 1 kattintásra elrejtse a megnevezés alatti sorokat, viszont, az összefűzés számomra ellentétes logikával működik:
Ez lenne a táblázat sematikusan:
De ugye itt az alatta lévő sorba teszi a plusz jelet, és felfelé nyitja meg a sorokat, eltüntetve ezzel a felső megnevezést, illetve (számomra) logikátlanul) amikor egy megnevezés mellett kinyitom a plusz jellel a sorokat, akkor nem annak a megnevezésnek megfelelő sorok nyílnak meg ugye, hanem ami felette van.
Meg lehet ezt oldani, hogy felülről lefelé nyissa meg, hogy a fő megnvezés mellett legyen a plusz jel és a rá "jellemző" adatsorok nyíljanak meg?
Persze meg lehet oldani, hogy az adatcsoportoknál alulra is rakok a fenti példa szerint egy Megnevezés1-et, de ez meg belerondít a kialakított külalakba, nem utolsó sorban felesleges sorok....
Előre is köszönöm ha valaki tudna segíteni, vagy ha ez van és nincs más, akkor így jártam. -
Fferi50
Topikgazda
válasz
föccer
#37807
üzenetére
Szia!
Sajnos az üres cellát "egyenlő" feltételként értelmezi a függvény.
Ha azt szeretnéd, hogy "ne vegye figyelembe", akkor az "üres" cellába ezt kell beírni <>.
Ezt úgy értelmezi, hogy nem üres a vizsgált tartomány.
(Azt ne kérdezd, hogy miért, talán Redmondban tudják.... )Üdv.
-
föccer
nagyúr
Sziasztok!
Szumhatöbb, darabhatöbb használatánál, ha több kritériumot is megadok, cella hivatkozásnál. Megoldható, hogy ha a kritérium cellája üres, akkor azt úgy vegye, mintha nem lenne megadva a feltétel? Ahogy olvastam úgy működik, hogy üres cellára 0 értéket vesz fel, ami nekem nem jó, mert így mindig 0 eredményt ad.
Azt szeretném, hogy ha nincs megadva egy cella, akkor az ahhoz a kritériumot ne vegye figyelmbe. Van erre lehetőség?
Köszi, FG
-
Fferi50
Topikgazda
válasz
Colin111
#37803
üzenetére
Szia!
Miért is nem jó a jó képlet? Ami minden egyes kattintásra a következő nevet veszi fel....
Vagy nem arra koncentrálunk, ami a feladat lenne?
Mert ezt a kérdést
"sajnos ennek sem lehet függvénnyel magadni az ugrás/lépés számot...."
nem értem, miért kellene külön lépésszámot megadni?Üdv.
-
Mutt
senior tag
válasz
Colin111
#37799
üzenetére
Szia,
Az általam küldött megoldás kiszűri az ismétlődéseket, 1 hiba van a megoldásomban, hogy K1 helyett neked K2-ben van a számlálód, így a helyes és összetett képlet amit K3-ba kell írnod:
=HA(K2>SZORZATÖSSZEG(1/DARABTELI(nevsor;nevsor));"Nincs több név";INDEX(nevsor;ÖSSZESÍT(15;6;HOL.VAN(nevsor;nevsor;0)/HA(GYAKORISÁG(HOL.VAN(nevsor;nevsor;0);SOR(INDIREKT("A1:A"&DARAB2(nevsor))))>0;1;0);K2)A képlethez kell egy dinamikus tartomány, Képletek -> Névkezelőt használd hozzá.
A képletben a
HA(GYAKORISÁG(HOL.VAN(nevsor;nevsor;0);SOR(INDIREKT("A1:A"&DARAB2(nevsor))))>0;1;0)rész szűri ki az ismétlődéseket, 1-et írva a név első megjelenéséhez, 0-t pedig az ismétlődéshez.üdv.
Új hozzászólás Aktív témák
Hirdetés
- Kerékpárosok, bringások ide!
- Azonnali alaplapos kérdések órája
- Apple iPhone 16 Pro - rutinvizsga
- PlayStation 5
- Macska topik
- AMD Navi Radeon™ RX 9xxx sorozat
- sellerbuyer: Nem veszélytelen a RAM duplázás de vajon megéri?
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Otthoni hálózat és internet megosztás
- Külső 2,5'' mobil rack-ek topikja
- További aktív témák...
- Legjobb kijelzős! ThinkPad T14s Gen 2 i5-1135G7 16GB 1000GB FHD 1 év garancia
- 8 GB-os ASUS TURBO RTX 2080 SUPER EVO - garanciával
- GYÖNYÖRŰ iPhone 11 Pro 256GB Midnight Green -1 ÉV GARANCIA - Kártyafüggetlen, MS2048, 96% Akksi
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3285
- BESZÁMÍTÁS! MSI B450 R5 5600X 32GB DDR4 512GB SSD RTX 4060Ti 16GB ZALMAN N4 Enermax 650W
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest