-
GAMEPOD.hu
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
-
olloczky
senior tag
Sziasztok!
A kérdésem nem függvényekkel kapcsolatos:
Melóban O365öt használunk. Van sharepointon egy excel, amit én a natív windowsos programban szeretek megnyitni. De mostanában feltűnt, hogy ha szűrök valamire és ezzel beállítok egy viewt (See just mine lehetőség), akkor a view-ból való kilépés után nem ugrik vissza az eredeti szűrési állapotra az enyém marad az aktív. Webes felületen pedig jól működik.
Találkoztatok már ilyennel? Azt sem tudom, hogy keressek erre rá googleben..
köszi!
Úgy még sosem volt, hogy valahogy ne lett volna!
-
t420s
aktív tag
Excel munkafüzetben a munkafüzet lapjait hogyan számolhatom össze az excellel ha nagyon sok lap van?
Ott a munkafüzet benne kb 50 lap. Nevük alma körte szilva szőlő stb stb
Én azt akarom hogy számolja össze hogy körte és szőlő közt hány lap van (db). Nem az összes lap számára vagyok kíváncsi. Vagyis nem elejétől a végéig hanem csak tól ig lapok száma érdekel. -
Delila_1
Topikgazda
Lehet, hogy van egyszerűbb módja is, én ezt írtam:
Sub lapok()
Dim kezd As Integer, lap As Integer
For lap = 1 To Sheets.Count
If Sheets(lap).Name = "alma" Then kezd = lap
If Sheets(lap).Name = "körte" Then Exit For
Next
MsgBox "Az alma és a körte nevű lapok között " & lap - kezd - 1 & " másik lap van.", vbInformation, "Tájékoztatás"
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Traxx
őstag
Sziasztok!
A segítségeteket szeretném kérni egy problémában. Van 3 műszakom, jó pár emberrel. Olyat szeretnék elérni, hogy ha pl. A1-be beírom, vagy még inkább listából kiválasztom az adott műszakszámot, akkor a B1-B... celláig az adott műszakban dolgozó embereket listázza ki. Természetesen nem ugyanakkorák a létszámok
Megoldható ez makró nélkül?
Köszönöm szépen!
"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)
-
lappy
őstag
meg lehet oldani ha függvénnyel pl.
amikor kiválasztod hogy "A" műszak akkor veszi a listából az első, második, sokadik elemet,
ha "B" akkor így továbbegy másik megoldás
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Traxx
őstag
Köszönöm, elsőre az első megoldás szimpatikusabb lenne Viszont ez a HA függvényes megoldás nincs előttem. meg tudnád adni, hogyan nézne ki a "veszi a listából az első, második, sokadik elemet" dolog?
"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)
-
EasyLife
aktív tag
Sziasztok!
Office 365-használok és az excellel olyan problémám van, hogy ha meg van nyitva egy excel fájl, hiába kattintok egy másik fájlra duplán addig nem nyitja meg amíg az elsőt be nem zárom, tehát nem tudok egyszerre két excel fájlt megnyitni. Random csinálja, de elég gyakran. -
BEndre34
tag
Sziasztok!
Kb 3 napja bújom a netet, de csak részmegoldásokat találtam, de azokat összefűzni nem tudom és nem is teljes a megoldás halmaz.
A feladat az lenne, hogy egy Excel (ebben indul a makró) 6 munkalapját átnevezze és a munkalapokra a dátum szerint oda tartozó Excel első munkafüzetlapját bemásolja. Mind a 7 Excel 1 adott könyvtárban van (6 jelenléti és 1 összesítő, amibe a makró fut(na)).
Ez lenne a könyvár (csak próba, mert a valóságban nem ebben a könyvtárban lesznek, hanem a hetente létrehozott (2021/1 hét, 2021/2 hét.... könyvárakba és azokba kerülne 1-1 összesítő (itt Munkafüzet1) Excel)
A cél pedig az lenne, hogy a Munkafüzet1 munkalapjait a többi, ugyanabban a könyvtárban található file nevének dátumára átnevezze és a hozzájuk tartozó Excel első munkalapját bemásolja (sima ctrl+c és ctrl+v, mert nem kell formázás megőrzése vagy más tulajdonság)
Utána van még vele pár képlet feladat, de azok már megvannak. Illetve a végén a képletek helyett majd csak érték kell, de azt már megoldottam makróval, hogy ne egyesével kelljen a munkafüzetlapokkal szenvedni.
Megköszönném, ha valaki tudna ebben segíteni.
A mintában lévő "Próba" mappa file neveit ki tudom olvasni és beírni a Munkafüzet1-re, de a munkalapok átnevezése és főleg a másolás már nem megy, pedig azt hittem a file nevek birtokában már menni fog.
-
Pakliman
tag
válasz BEndre34 #47562 üzenetére
Szia!
Egy egyszerűsített lehetőség (nincs hibakezelés):
Sub Makró1()
Dim MFName As String
MFName = Dir("x:\utvonal\Jelenléti ##.##.xlsx")
Do While MFName <> ""
Workbooks.Open Filename:="x:\utvonal\" & MFName
ActiveWorkbook.Sheets(1).Copy Before:=Workbooks("Összesítő").Sheets(1)
ActiveSheet.Name = Mid(ActiveWorkbook.Name, 11, 6)
Workbooks(MFName).Close SaveChanges:=False
MFName = Dir 'NINCS PARAMÉTER!!
Loop
End Sub -
zsolti_20
senior tag
Sziasztok!
Lehetséges azt megadni excel, hogy melyik kép legyen felül?
Van két képem excelben. Kép1 és Kép2. Először Kép1-et helyeztem a munkalapra és utána Kép2-öt. Ekkor az történik, hogy Kép2 fogja takarni Kép1-et, szóval mintha egy feljebb lévő "layeren" helyezkedne el.
Kép1-et módosítani szeretnék, de ehhez újra be kell illesztenem. Sajnos ha beillesztem Kép1 lesz felül és Kép2 alul. Lehetséges ezt beállítani valahol hogy melyik kép melyiket fedje? -
lenkei83
tag
Sziasztok!
Mi lehet a kód mögötte? [link]Public Function rgb_colorincell(Red As Integer, Green As Integer, Blue As Integer) As Long
ActiveCell.Interior.Color = rgb(Red, Green, Blue)
End FunctionItt csak annyi a baj, hogy ha lehúzom a képletet több cellára, akkor viszont nem működik. Minden egyes cellába kézzel kell betolni a képletet.
Köszi
P. -
milu
aktív tag
Szeretnék olyan grafikon(oka)t készíteni, amiben legalább 4-5 oszlopot kell megjelenítenem egyszerre.
A kérdésem az, hogy az elkülönülés és a jól láthatóság miatt milyen színeket javasoltok az oszlopok színeinek? (van erre "szakirodalmi" javaslat?)
(ha tudtok, színkódokat írjatok a színhelyesség miatt)[ Szerkesztve ]
-
Fferi50
őstag
válasz lenkei83 #47570 üzenetére
Szia!
Ez a függvény nem VBA-ban van megírva szerintem, hanem Visual Studioban. Ha elmész a szerző(k) oldalára https://www.instagram.com/knacksack_official/,fogsz találni rá példát, hogyan csinálta.
A VBA UDF értéket ad vissza és nem tudja módosítani a cellaformázást.
Üdv.[ Szerkesztve ]
-
lenkei83
tag
válasz Fferi50 #47571 üzenetére
Szia Feri!
A youtube csatornájukon kerestem volna, de az nem működik. Köszi a tippet, az instán nem néztem, de ott volt a megoldás. Excel\VBA-ban van megírva.
Gyorsan felvertem VBA-ba, működik, a lenti linkről le lehet tölteni. Próbálom értelmezni...
[https://1drv.ms/x/s!Ans3TmRiC9RGhaMx1z_INz4zg7X91Q?e=lSc26r]Üdv.:
P. -
Ribobon
tag
A törölni kívánt cellák kijelölésénél felugrik a képen látható ablak.
Office 2021-nél a "Cellák eltolás balra" jelenik meg alapértelmezésként, míg az Office 2019-nél a "Cellák eltolása felfelé" jelenik meg alapértelmezésként.Mivel nekem mindig a "Cellák eltolása felfelé" funkcióra van szükségem, így az Office 2021-nél minden egyes cellacsoport törlésénél plusz egy művelet, hogy átállítsam "Cellák eltolás balra" funkcióról "Cellák eltolása felfelé" funkcióra.
Nem vagy lusta, de amikor naponta több száz cellcsoportot kell törölni, ez plusz lépés jelentős plusz időt eredményez.
Az Office beállításait és a netet átnézve nem találtam megoldást, hogyan lehetne alapértelmezetté tenni törlés esetén a "Cellák eltolása felfelé" funkciót.
-
Delila_1
Topikgazda
válasz Ribobon #47573 üzenetére
Tedd a personalba (lásd a Téma összefoglalót) a lenti kis makrót. Tegyél ki hozzá a Gyorselérési eszköztárra egy ikont. Kijelölöd a feljebb mozgatandó cellákat, majd az ikonra kattintasz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
BEndre34
tag
válasz Pakliman #47563 üzenetére
Szia!
Köszönöm. Viszont pont az a gondom, hogy nem tudok útvonalat megadni. Illetve igen, de úgy már nincs értelme a makrónak. Kollégák fogják használni és pont az lenne a lényeg, hogy nekik ne kelljen semmin változtatni, csak a minta fájlt bemásolja az adott heti könyvtárba és lefut arra a hétre(könyvárra) vonatkozóan.
-
botond187
csendes tag
Sziasztok,
Magyar Office 2019 Professional Plus
Olyan problémám lenne, abban kérném a segítségeteket, hogy egy jó nagy adathalmazból úgy szeretnék kinyerni egy cella értékét, hogy az egyik fülből kellene kinyerni az adatot bizonyos feltétellel, melyek az eredeti fülön találhatóak.
Viszont - és ahol elakadtam -, hogy egyfelől kellene keresnie egy másik fülön lévő adathalmazból az eredeti fülön lévő azonosító szerint és dátum értéke szerint is(a dátumot átalakítom értékké).
Tehát szerepel az eredeti fülön az A3 oszlopban az azonosító, az AH 3 oszlopban meg a dátum értéke szerepel.
Meg kellene keresnie az azonosítót a másik fülön, úgy, hogy vele párhuzamosan a dátum értéke ne legyen nagyobb (tehát kisebb, vagyis korábbi legyen).
Az FKERES-el csak megtalálom, de ha tovább akarom, hogy menjen a keresés, azt nem tudom melyikkel lehetne.Hogy (remélhetőleg) érthetőbb legyen:
Azt szeretném megtudni ezzel, ahol az azonosító egy terméknek az azonosítószáma, ID-ja, és ezt szeretném megkeresni a másik fülön lévő beszerzési árát (amit úgy lehetne kinyerni, hogy korábbi, mint az eredeti fülön lévő dátumérték).
A termék többször is szerepel a másik fülön, olykor eltérő árral, eltárő dátummal, emiatt szeretném kikeresni, hogy az eredeti fülön lévő dátumhoz legközelebb eső korábbi beszerzési ára mi lehet.
Tehát pl az eredeti fülön lévő június 3.-i dátumértéknél az ennél korábbi beszerzési árat nézze, ne az utánit.Ezt milyen megoldással csinálnátok meg?
Köszönöm a segítséget előre is.
Üdv,
Bálint -
Pakliman
tag
válasz BEndre34 #47586 üzenetére
Szia!
Megoldható úgy is: az útvonalat a
ThisWorkbook.Path
fogja megadni a makróm elején:MFName = Dir(ThisWorkbook.Path & "\Jelenléti ##.##.xlsx")
De egy másik lehetőség:
A kollégák választják ki a szükséges táblázatokat (hibakezelést itt sem csináltam!).
Az összesítő munkalapra teszel egy ActiveX CommandButton-t, aminek a kódja:Private Sub CommandButton1_Click()
Dim twb As Workbook: Set twb = ThisWorkbook
Dim fd As FileDialog
Dim i As Long
Dim MFName As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Excel Files", "*.xls*"
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
If .SelectedItems(i) Like "*\Jelenléti ##.##.xls*" Then
Workbooks.Open Filename:=.SelectedItems(i)
MFName = ActiveWorkbook.Name
ActiveWorkbook.Sheets(1).Copy Before:=twb.Sheets(1)
ActiveSheet.Name = Mid(MFName, 11, 6)
Workbooks(MFName).Close SaveChanges:=False
End If
Next i
End If
End With
End Sub[ Szerkesztve ]
-
Fferi50
őstag
válasz Fferi50 #47588 üzenetére
Botond187-nek a korábbi üzenet folytatása:
Az eredeti adathalmazt alakítsd át táblázattá, az első sor a fejléc.
Ezután a tömbképlet a következő:=INDEX(Táblázat1[[#Mind];[ár]];MAX((Táblázat1[[#Mind];[azon]]=$A$3)*(Táblázat1[[#Mind];[dátum]]<$AH$3)*SOR(Táblázat1[[#Mind];[azon]])))
Táblázat1: az átalakított halmaz neve.
ár: a táblázat árakat tartalmazó oszlopának felirata
azon: a táblázat azonosítókat tartalmazó oszlopának felirata
dátum: a táblázat dátumokat tartalmazó oszlopának felirata
A3 cella tartalmazza az azonosítót
AH3 cella tartalmazza a dátumot, aminél korábbit keresel
A tömbképletet Shift+Ctrl+Enter kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
Remélem, jól értelmeztem a kérdésed.
Üdv.[ Szerkesztve ]
-
ny.janos
tag
válasz botond187 #47587 üzenetére
Szia!
Ha jól értem a problémádat, akkor arra Mutt 3,5 évvel ezelőtt javasolta nekem ExcelisFun videóit erre a témára. Itt a megoldás. A kérdést pedig itt találod hozzá.
-
Mutt
aktív tag
válasz Reinhardt #47593 üzenetére
Szia,
Office365 vagy Office 2021-ben vannak újabb függvények, amelyekkel szintén megoldható.
A feltételes formázásban ez a képlet:
=ISODD(XMATCH(A2;UNIQUE($A$2:$A$21)))üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Sziasztok!
A segítségeteket szeretném kérni.
Van két excel fájl, amit össze szeretnék fésülni. Soronként vannak és az első oszlop az egyedi azonosító.
Mindkét fájl tartalmaz ugyan olyan azonosítóval ellátott sort és azt szeretném, ha az alap xls-t felülírná a bemásolandó ezeken a pontokon, a többit pedig hozzáadná. Megoldható ez valahogyan?Előre is köszönöm a segítséget!
[ Szerkesztve ]
But who is watching the guardians?
-
-
Fferi50
őstag
Szia!
Jó az ismétlődések eltávolítása.
Egy üres munkalapra másold fel először a második munkalap adatait, majd az első munkalapét alá. Tehát azt másolod először, amivel felül szeretnéd írni az értékeket.
Kijelölöd az egész adathalmazt. Ezután ismétlődések eltávolítása csak az azonosító oszlopát kijelölve.
Mivel ez a művelet a legelőször talált tételeket hagyja meg, a többször előforduló tételeknél az első marad meg - ezért kell először a felülírásra használandó adatokat bemásolni.
Üdv.
Új hozzászólás Aktív témák
- Vodafone mobilszolgáltatások
- Diablo IV
- Befutott a Lollipop Chainsaw RePOP első előzetese
- Home server / házi szerver építése
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Vékonyabb lesz a Galaxy S24 FE
- Skoda, VW, Audi, Seat topik
- Genshin Impact (PC, PS4, Android, iOS)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Kerékpárosok, bringások ide!
- További aktív témák...