-
IT café
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
-
RAiN91
őstag
Sziasztok,
adott A1 cella, amiben 5-6 különböző szó van, szóközzel elválasztva. És mindig változnak a szavak, a sorrend is.
Ebből szeretnék kiragadni bizonyos szavakat akkor, ha megegyezik az általam előre definiált szavakkal.
Konkrét példa:
A1 cella jelenleg: szó1 szó7 szó3 szó4 szó5
B oszlopban egymás alatt, a szavak, amiket keresek: szó5, szó8, szó9
C1 cellában szeretném látni szó5, szó8 vagy szó9-et akkor, ha A1-ben valahol szerepelnek.
A sorrend A1-ben nem fix, ezért a "BAL" "KÖZÉP" stb. függvény sajnos nem jó. Van erre valami kereső függvény esetleg, vagy csak VBA-val tudom megoldani?
Köszömöm előre is!
-
Nixon18
senior tag
Sziasztok!
Hogyan tudok egy táblázategyik oszlopából kigyűjteni egy másik munkalapra neveket az alapján, hogy a névhez tartozó átlag 4 vagy annál nagyobb?
Köszi!
-
zsolti_20
senior tag
válasz Fferi50 #47000 üzenetére
Köszönöm szépen a jobbnál jobb kódokat.
Linkelek ide egy képet, az A oszlopban vannak az értékek, B oszlop Delila_1 gyártott kód eredménye C oszlop Fferi50 kódjának eredménye.Ahogy látom a Fferi50 a te kódodnál végülis mindegy mennyi elválasztás történik, az utolsó tömb értéke elé lesz beszúrva a "." aztán össze fűzzük a maradékot. Így a forrás lehet bármekkora, működni fog.
-
Delila_1
Topikgazda
válasz MostaPista #47010 üzenetére
Sajnos...
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Chrisluke
csendes tag
Sziasztok, Kaptam több oldalas költségvetést egyetlen munkalapon. A nyomtatás során a táblázat össze-vissza került volna a lapokra egyes tételekt el is választott volna fele erre a lapra fele a másik lapra került volna ezt megoldottam a töréspontokkal. Az utolsó lapon azonban egyetlen tétel van ezt a tételt a lap közepére akarja nyomtatni, olyan mintha lennének üres sorok elötte pedig nincsenek. Hogyan tudnám ezt a tételt a lap tetéjére igaztani?
-
zsolti_20
senior tag
Sziasztok!
Azt lehet esetleg tudni, hogy kijelentkezett windows alatt miert nem lehet hasznalni copy pastet excel VBA kodban?
Csupan egy szimpla cella masolasrol lenne szo egyik wokrbookbol a masikba. A kod le is fut szepen miko be vagyok jelentkezve, de ha nyomok egy windows + L-t akkor a kod mindig megakad a paste-nal.
Lehetseges, hogy mikor kijelentkezek, akkor pauseolja a windowst?
Bar a fura dolgo az egeszben, hogy a masik filet megnyitja, de a cella tartalom nem kerul at csak egy hibat ir.
"Run-time error '1004':
PasteSpecial method of Worksheet class failed.
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Elkepzelheto hogy ez valami vedelem reszben? Amint belepek a windowsba ujra es emgnezem, semmi nincs a vagolapon. Szoval ugy tunik a masolas sem tortenik meg. -
MostaPista
tag
Sajnos 46989-es kerdesem azota is valaszra var.
-
PistiSan
addikt
Sziasztok!
Power Query-szerkesztő-ben össze hoztam magamnak strukturáltan az adatokat.
NÉV | SZÁM1 | SZÁM2
Kacsa | 12,5 | 21
Kutya | 16 | 45Annyit szeretnék, hogy a a "Kacsa"-val kezdődő sorban a "SZÁM1" és "SZÁM2"-ból kivonjak mondjuk 5-öt.
Olyat találtam, hogy a teljes oszlopból vonjon ki egy számot, de nekem az azért nem jó, mert ez egy egyedi eset, 1 adott név melletti értékből kell kivonni 2 különböző számot. -
pigsty
aktív tag
Üdv,
olyankor mi van, ha hiányzik a "SZÖVEGÖSSZEFŰZÉS" képlet? Excel 2016
Múlt héten még megvolt.
két oszlop összeillesztéséhez kellen, óra és perc oszlopból egy oszlopba illessze össze HH:MM formába.--
A Szöveg-> Összefűznél hiányzik az elválasztó, és üreset mellőz lehetőség.[ Szerkesztve ]
Jobb ma egy veréb, mint holnap egy véreb.
-
Fferi50
őstag
válasz pigsty #47017 üzenetére
Szia!
Az Összefűzés függvényt "helyettesíti" az & . A & B =AB
Ha valóban dátum van az adott cellában, akkor a cellaformátumot kell megváltoztatnod a kívánt formára. Szerintem a dátumformátumok között ott is van ez a fajta. (Cella - jobb egérgomb - cellaformátum - dátum és ott kiválasztod. Ha nincs ilyen, akkor a cellaformátum után Egyéni és oda beírod a kívánt formátumot.)
Ha szöveg van - dátumnak kinézően, akkor a szövegdaraboló függvényeket tudod használni a forma eléréséhez:=BAL(A1;4) & "." & KÖZÉP(A1;5;2) & "." & JOBB(A1;2)
Üdv. -
Mutt
aktív tag
válasz PistiSan #47015 üzenetére
Szia,
Egy kicsit univerzálisabb megoldás, hogy egy másik táblában felsorolod hogy melyik név esetén mennyivel kell módosítani az eredményt és utána a két táblát összekapcsolod majd megint új oszlop hozzáadásával számítod a végeredményt.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
PistiSan
addikt
Mindkét verzió eszembe jutott, az általad felsoroltakból.
Felsoroltam egy külön fájlban amit le kellett vonni, de függvényt nem tudtam írni hozzá, ami amúgy így hogy már leírtad, marha egyszerűen tűnik utólag.
Mivel összesen 1 névről van szó, ezért az első verziót használtam fel az általad írt megoldások közül!
Nagyon szépen köszönöm,úgy működik, ahogy elvártam tőle.Annyira ritkán kell ilyen egyéni függvény, hogy még soha nem néztem utána rendesen, esetleg ha tudsz hozzá ajánlani egy faék egyszerű dolgokat leíró leírást amit ajánlanál, szívesen elolvasnám.
Köszi!
-
Telda
addikt
Sziasztok!
Hogyan tudnám a munkalapok tartalmát egymás alá másolni egy munkalapra?
A program ami kihozza az adatbázist, de csak 65536 sort tud kezelni, ezért mindig új munkalapot csinál.
Maga az adatbázis viszont 940ezer soros, így 15 munkalapot hoz létre.
Ezeket szeretném egy munkalapra egymás alá bemásolni. -
Mutt
aktív tag
Szia,
Ha Excel 2016-osod vagy frissebbed van, akkor a Power Query-vel lehet automatizálni.
A másik megoldás, hogy mivel az első 14 lapon mindig 65 ezer sor van fixen, akár képlettel is megoldható.
Lenne egy input.xls és egy template.xlsx nevű fájlom. Az input amit a program kiad. A template-ben pedig egy sima hivatkozás lenne egy lapon az input első lapjára, majd a 65 ezredik sor után a második lapra és így tovább. Az utolsó lap esetén pedig mivel nem lesz minden sor vmi ilyen hivatkozás lenne:
=HA([input.xls]Sheet15!A1<>"";[input.xls]Sheet15!A1;"")Ezek után csak az input fájlt kell cserélgetned és a template-ben kapott eredményt elmenteni értékek beillesztése után.
Mindkét megoldás hátránya, hogy formátumokat nem másol.
Ha kell formátum, akkor VBA.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz PistiSan #47021 üzenetére
Szia,
Alapokhoz nekem sokat segített az "M is for Data Monkey" nevű könyv. Régi, de jól elmondja a dolgokat.
Microsoft hivatalos doksija segít a függvényekben eligazodni.
Youtube-on pedig Mike Girvin csatornája kiváló forrás, illetve Mynda csatornája.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Telda
addikt
Köszi!
Közben találtam rá egy makrót.Sub munkafuzetmasolas()
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select
For i = 1 To Sheets.Count - 1
Sheets(i).Select
Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub -
lappy
őstag
Sziasztok!
hol lehet beállítani hogy egy munkafüzet mérete ne kisebb méretű legyen (a képernyő 1/4-ben létszik csak?Bámulatos hol tart már a tudomány!
-
user112
senior tag
Sziasztok!
Fkereshez kapcsolódóan kérdeznék.
Van valami gyors módszer arra, hogy megtudjam lenne e esetleg a másik táblában több találat -
karlkani
aktív tag
Sziasztok!
Van egy listám, .m3u8 kiterjesztéssel, ez az A1 cellában van. Szétszedtem, módosítva több csoportba, egy elég ronda képlettel, meg hozzáfűztem, cseréltem, amit kell. Lett 4x30 sornyi adatom, melyeket külön-külön fájlokba (4 darab, .m3u8 kiterjesztéssel) szeretném menteni. A név nem számít, átírom utólag, lehet 1, 2, 3, 4. Az lenne a legjobb, ha egy gombra kattintva létrehozná a listákat. A makrónak úgy kellene kinézni, hogy kiválasztja az A1 cellát, beilleszti a vágólap tartalmát, majd külön-külön fájlokba lementi az A4:A33, A36:A65, A68:A97 és A100:A129 tartományok tartalmát.
Előre is nagyon szépen köszönöm!
-
EroSennin79
újonc
Sziasztok.
Segitséget szeretnék kérni.
Van egy összefoglaló statiszikai táblázat amit készitettem a munkahelyemen.
Éves összefoglást készit megrendelőkre lebontva, elég sok megrendelőről van szó ezért sok az adat. A kérdésem az lenne hogy hogyan tudnám az alábbi formulában gyorsan kicserélni a tól-ig dátumot. Eddig megoldottam manuálisan de most kissé sürget az idő.
A formula a Januári cellában ez és ezt minden hónapban meg kell tenni (cellák egymás alatt vannak):
=COUNTIFS(Datas!I:I,"ONT01", Datas!K:K,"On time delivery",Datas!G:G,">31/12/2019",Datas!G:G,"<01/02/2020")Az aktuális érték 31/12/2020 és 01/02/2021 lenne, viszont ez minden hónap cellájában módositani kell megrendelőnként 3x a megfelelő dátumra emelkedő sorrendben. Manuálisan sajnos nagyon sok idő.
Próbáltam már a google-ban keresni megoldást de nem nagyon találtam jót.
Csatoltam egy képet a táblázat egy részletéről.
Előre is köszönöm[ Szerkesztve ]
-
Fferi50
őstag
válasz EroSennin79 #47031 üzenetére
Szia!
A Keres - cserél funkciót (Ctrl + F ) használhatod:
Először keresed a 2020 -at és cseréled 2021-re a képletekben, az összes cseréje.
Ezután keresed a 2019 -et és cseréled 2020-ra szintén a képletekben, az összes cseréje.
A december havi tételek képletében megnézed a < utáni dátumot és ha szükséges, akkor az egész dátumot cseréled a jóra.
Csak magyar képet tudok csatolni:
Üdv.[ Szerkesztve ]
-
EroSennin79
újonc
válasz Fferi50 #47032 üzenetére
Hihetetlen vagy, nagyon szépen köszönöm. Hatalmas segitség volt. El sem hiszem már készen is vagyok Póbálom magamat képezni de egyedül kissé nehézkes.
Még egy kérdésem lenne. Ha a formula eredménye 0 akkor az excel mindig #DIV/0 hibát ir. Ezt IF funkcióval szoktam nullázni. Van valami más egyszerübb módja hogy ne legyen a nullától rosszul ? Például ennél a formulánál?
=Statistic!W41/Statistic!Z41 -
Delila_1
Topikgazda
válasz EroSennin79 #47033 üzenetére
=IFERROR(=Statistic!W41/Statistic!Z41,"")
A magyar HAHIBA függvény angol megfelelője.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
3DFan
aktív tag
Sziasztok!
Az R1 cella értékét szeretném kijelölni feltételes formázással a képen látható tartományban.
Az oszlopot miként kerestessem, hogy más értékkel is helyesen működjön? Köszönettel.
[kép] -
Fferi50
őstag
Szia!
Ha az R1 cella érték hollétét szeretnéd a táblázatban feltételes formázással megmutatni, akkor elegendő az R1 cellával hasonlítani az adott cella értékét.
Állj rá az A1 cellára (vagy jelöld ki a teljesA1:O6
tartományt).
Feltételes formázás - kijelölés képlettel.
A képlet: =A1=$R$1
Az érvényesség területe pedigA1:O6
Ezzel rögzíted az R1 cellát és a tartományon belül minden cella értékét ehhez hasonlítja.
Üdv.[ Szerkesztve ]
-
szricsi_0917
tag
Sziasztok
Egy kis vba segítséget szeretnék kérni:
Erről a kis táblázatról lenne szó ami pár ezer soros lesz. A "D" oszlop lesz a feltétel oszlopa. Ha a D oszlopban pl 01H02401 található akkor az "A" oszlopban található sorszámokat tárolja el, mert egy másik szumhatöbb függvényhez majd szükségem lesz rá. Milyen kóddal oldható meg, hogy ezeket az értékeket tárolja, majd egyessével lépkedve fel tudjam tudjam használni egy for ciklusban?
Köszönöm előre is a segítséget! -
andreas49
senior tag
A mellékelt linken szereplő Excel táblázatban foglaltakhoz keresek megoldást.
Segítséget előre is köszönöm.
[link]HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Delila_1
Topikgazda
válasz andreas49 #47040 üzenetére
Az F2 cella képlete legyen
=HAHIBA(FKERES("*"&KÖZÉP(D2;3;20);A:A;1;0);"Nem szerepel az A oszlopban")
Azokat a neveket nem találja meg, amikben idegen karakterek szerepelnek, ezért tettem be a HAHIBA függvényt.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
válasz szricsi_0917 #47039 üzenetére
A másik fórumon, ahol feldobtad ugyanezt a kérdést, megadtam a választ: speciális szűrés.
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
-
zoombiee
csendes tag
Sziasztok,
Szeretnék segítséget kérni az alábbi kódhoz.Működése: Ha az "A" oszlopban van érték, akkor létrehoz gombot az "S" oszlopban.
Az automatikusan létrehozott gombban kellene szerepelnie kódnak.
A probléma az, hogy ennél a sornál:
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
Hibát generál, ha ezt a sort kiveszem, akkor minden rendben lefut, viszont így sajnos a gomb lényege elvész, mert nincs hivatkozás sor benne.Sub gomb()
Dim ws As Worksheet
Dim celLeft As Integer
Dim celTop As Integer
Dim celWidth As Integer
Dim celHeight As Integer
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set ws = Sheets("Munka1")
For i = 2 To LastRow
celLeft = ws.Range("S6").Left
celTop = ws.Range("S" & i).Top
celWidth = ws.Range("S6:S6").Width
celHeight = ws.Range("S6:S6").Height
Set objBtn = ws.OLEObjects.Add(classType:="Forms.CommandButton.1", Link:=False, _
displayasicon:=False, Left:=celLeft, Top:=celTop, Width:=celWidth, Height:=celHeight)
objBtn.Name = "S" & i
objBtn.Object.Caption = "--->"
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
N = .CountOfLines
.InsertLines N + 1, "Private Sub " & "S" & i & "_Click()"
.InsertLines N + 2, vbNewLine
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
.InsertLines N + 4, vbNewLine
.InsertLines N + 5, "End Sub"
End With
Next i
End SubElőre is köszönöm a segítséget!
Üdv: Dani -
Fferi50
őstag
válasz zoombiee #47049 üzenetére
Szia!
Az a probléma, hogy a szövegben levő idézőjelek megszakítják a szöveget, az utána következő részt (és az előtte levőt is persze) nem tudja értelmezni.
Ha idézőjeleket szeretnél a szövegben elhelyezni, akkor meg kell duplázni azokat:"ThisWorkbook.Sheets(""Munka1"").Range(""K5"") = 5"
minden olyan helyen, ahol idézőjelet akarsz.
Üdv.
Új hozzászólás Aktív témák
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- World of Warcraft Shadowlands Collectors edition EU EN
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig