Keresés: - Microsoft Excel topic - GAMEPOD.hu Hozzászólások

Hirdetés

Legfrissebb anyagok

GAMEPOD.hu témák

PROHARDVER! témák

Mobilarena témák

IT café témák

LOGOUT.hu témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#54009 Mutt senior tag Win-T #53982

Új Válasz 2025-01-31 18:15:12 #54009
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Mutt

senior tag

válasz Win-T #53982 üzenetére

Szia,
=SZUM(HAHIBA(1/DARABTELI(Table1;Table1);0))

üdv
#54006 Fferi50 Topikgazda Win-T #54004

Új Válasz 2025-01-31 11:53:57 #54006
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #54004 üzenetére

Szia!
Mivel makró működik, ezért nem lehet visszavonni amit beírtál.
Üdv.
#54001 Fferi50 Topikgazda Win-T #53999

Új Válasz 2025-01-31 10:45:28 #54001
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53999 üzenetére

Szia!
Ehhez nem kell gomb! Az eseménykezelő mindig indítja az újraszámolást, ha változtatsz a táblázatban levő adatokon!
Ha gombot szeretnél, akkor az első makrót (Worksheet_Change) ki kell törölnöd!
Gombot a Fejlesztőeszközök menücsoport - Beszúrás megnyitása után tudsz beszúrni, ha az Űrlap csoportból választasz, azonnal ki tudod hozzá választani a makrót.
Ha ott nem sikerült, akkor a gombon állva jobb egérgomb, makró hozzárendelés.
DE a makróhoz rendelhetsz billentyű kombinációt is:
Fejlesztőeszközök - Makrók - kiválasztod a makrót - egyebekben megtalálod a billentyű hozzárendelést.
Üdv.
#53998 Fferi50 Topikgazda Win-T #53995

Új Válasz 2025-01-30 22:41:32 #53998
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53995 üzenetére

Szia!
Közben elkészült a makró.
Ezt másold be az adatokat tartalmazó munkalapod kódlapjára, a következők szerint:
A munkalap fülön jobb egérgomb - Kód megjelenítése - a General fülbe másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.ListObjects(1).DataBodyRange) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
egyedidb
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub egyedidb()
Dim rrange As Range, frange As Range, i As Integer
Set rrange = ActiveSheet.ListObjects(1).DataBodyRange
Set frange = Cells(1, Munka1.ListObjects(1).Range.Columns.Count + 3)
For i = 1 To rrange.Columns.Count
If i = 1 Then
rrange.Columns(i).Copy frange
Else
rrange.Columns(i).Copy frange.End(xlDown).Offset(1, 0)
End If
Next
Range(frange, frange.End(xlDown)).RemoveDuplicates 1, xlNo
frange.offset(0,-1).Value = frange.End(xlDown).Row
Range(frange, frange.Offset(rrange.Cells.Count, 0)).Clear
End Sub
Az első makró eseménykezelésre szolgál, azt nézi, hogy a táblázatodban van-e a változás. Ha igen, akkor megszámolja az egyedi értékeket, ha nem, akkor nem történik semmi.
A második makró (egyedidb) számol ténylegesen: A táblázattól jobbra a 3. oszlopba kigyűjti az értékeket egymás alá és utána a jobbra 2. cellába beírja az eredményt. A számolásokat nem fogod látni.
FONTOS! Ha a táblázatot lefelé bővíted, azt is beszámolja a makró. Az egyes oszlopokba nem szabad üres cellákat hagyni, akkor tudja beszámolni.
A munkafüzetet makróbarátként kell mentened és a makrókat engedélyezned kell a beállítások - biztonság fülön.
Remélem sikerül, ha gondod lenne, írj bátran.
Üdv.
#53996 Fferi50 Topikgazda Win-T #53995

Új Válasz 2025-01-30 21:45:48 #53996
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53995 üzenetére

Szia!
Hát ez egyenlőre szívás... nálam is.
Megjegyezném, hogy én szabad szemmel úgy számoltam, hogy 18 egyedi gyümölcsnév van a mintádban.
Tesztelem a makrót.
Üdv.
#53994 Fferi50 Topikgazda Win-T #53993

Új Válasz 2025-01-30 21:12:26 #53994
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53993 üzenetére

Szia!
Bocsánat, már teljesen összezavarodtam én is...
Természetesen meg is kellene számolni az értékeket. Vagyis a helyes képlet:
=DARAB2(EGYEDI(G1:G24))-1
A -1 azért kell, mert a 0-t is beszámolja az EGYEDI függvény.
Ez így már remélem jó lesz nálad is.
A makrón dolgozom. (Nem kell félni, nem fog fájni...)
Üdv.
#53992 Fferi50 Topikgazda Win-T #53991

Új Válasz 2025-01-30 19:27:04 #53992
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53991 üzenetére

Szia!
Ezt a képletet javasoltam az oszlopok egymásra írása után:
=EGYEDI(segédoszlop tartomány)-1
A segédoszlop nálad a G1:G24 tartomány
Ezt a képletet nem a G oszlopba kell írnod, hanem az E oszlop egy cellájába.
Ha nem szeretnél "állandóan" másolni, akkor makrót kell használnod.
Nem tudom, ez lehet-e opció nálad.
Üdv.
#53990 Delila_1 veterán Win-T #53989

Új Válasz 2025-01-30 18:32:03 #53990
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Win-T #53989 üzenetére

Egy új oszlopba másold egymás alá a 3 oszlopodat. Az Adatok | Ismétlődések eltávolítása kigyomlálja a többször szereplő értékeket. Az új oszlop darabszáma adja az eredményt.
Az EGYEDI függvényt is alkalmazhatod az ismétlődések eltávolítása helyett.

[ Szerkesztve ]
#53983 Fferi50 Topikgazda Win-T #53982

Új Válasz 2025-01-30 10:09:31 #53983
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53982 üzenetére

Szia!
Ettől tartottam... Sajnos az EGYEDI függvény ebben az esetben csak egy-egy oszlopra alkalmazható, ezért kell hozzá egy segédoszlop. Ebben egymás alá tesszük az EGYEDI függvénnyel kinyert értékeket:
=EGYEDI(Táblázat1[Oszlop1])
az adatok alá:
=EGYEDI(Táblázat1[Oszlop2])
majd ez alá
=EGYEDI(Táblázat1[Oszlop3])
Itt azt fogod látni, hogy megjelenik egy 0 érték, ami az üres cellák miatt van.
Ezután a kívánt értéket megkapod:
=EGYEDI(segédoszlop tartomány)-1
Másik lehetőség, hogy egyszerűen kimásolod egymás alá egy segédoszlopba a 3 oszlop értékét, erre adod meg az EGYEDI függvényt.
Üdv.
#53981 Fferi50 Topikgazda Win-T #53980

Új Válasz 2025-01-30 08:28:15 #53981
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53980 üzenetére

Szia!
Nem kell azért kétségbe esned. Az új és még újabb függvények alkalmazása nekünk tapasztaltabbaknak is fejtörést okoz.
Az EGYEDI függvény esetedben csak egy egy oszlop esetén alkalmazható szerintem. De talán segítene, ha pár soros - semleges - adattal, de a szerkezetet megtartva feltennél egy mintát, amire rá lehetne nézni.
Üdv.
#53979 Fferi50 Topikgazda Win-T #53978

Új Válasz 2025-01-29 17:34:42 #53979
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53978 üzenetére

Szia!
Próbáld először egy üres területre az Egyedi függvényt - úgy, hogy konkrétan kijelölöd azt a két oszlopot. (Persze az Excel majd a saját szájíze szerint átírja táblázatos képletre... )
Ekkor ki kellene írnia az egyedi értékeket 2 oszlopban.
Ha ez megvan, akkor az így felirt függvényt foglald bele a DARAB2 függvénybe.
Üdv.
#53968 Fferi50 Topikgazda Win-T #53964

Új Válasz 2025-01-29 10:21:06 #53968
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53964 üzenetére

Szia!
Szerintem a DARAB2(EGYEDI( Táblázat3[[Oszlop1]:[Oszlop2]])) elegendő a számláláshoz, mert több oszlopot is vizsgál az EGYEDI és a DARAB2 függvény is.
Üdv.
Ps. Bocs, ha a zárójelezés nem korrekt.
#53965 föccer nagyúr Win-T #53964

Új Válasz 2025-01-29 08:07:42 #53965
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #53964 üzenetére

Nekem a 2021-be nincs benne a függ.halmozás :-/
#53963 föccer nagyúr Win-T #53962

Új Válasz 2025-01-28 22:34:00 #53963
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #53962 üzenetére

Milyen verzióban?
O365-ben nagyon egyszerű
Darab2(egyedi(függ.halmozas())) kombináció megadja. A függ.halmozás sajnos az office 2021-ben sincs benne (vagy éppen ebben van, és az o365-ben nincs Grrr, 3 különböző excel verziót hazsnálok)
#53735 Fferi50 Topikgazda Win-T #53734

Új Válasz 2024-12-23 11:04:52 #53735
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53734 üzenetére

Szia!
"Klasszisokkal hatékonyabb lenne, ha minden adat látszana kinyitva."
Mi történjen akkor, ha olyan hosszú a lista, hogy lelóg a munkalapról? Így legalább átlátható.
Egyébként szerintem ha "beleállsz", akkor működik az egér görgő, sőt a nyíl billenyűk is.
Üdv.
#53733 Fferi50 Topikgazda Win-T #53732

Új Válasz 2024-12-23 10:39:25 #53733
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz Win-T #53732 üzenetére

Szia!
1.A feltételes formázás képletében rögzíteni kell a feltételt tartalmazó sor számát, pl.
=H$3="19:00-7:00"
A formázandó területet pedig terjeszd ki a megfelelő sorokra.
2.Ha jól látom ez Adatok - érvényesítés eredménye. Itt sajnos nem lehet a legördülő méretét megváltoztatni. Viszont akinek van szeme, látja a gördítősáv állásából, hogy van még tovább is.
Üdv.
#52781 föccer nagyúr Win-T #52780

Új Válasz 2024-06-03 15:04:56 #52781
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52780 üzenetére

Szóval lehetne-e olyant, hogy:

Igen, lehet. Viszont ha dinamikusan változik a listád, akkor kicsit jobban össze kell rakni a makrót, hogy "bolondbiztos legyen".
Számon kell tartani, hogy pontsan mennyi név van, szépen sorba másolni, lértehozni a szükséges cuccokat, nyomtatást elvégezni, majd törölni azokat a WS-eket, amik már nem kellenek.
Ez már egy pár órás feladat. Nem túl bonyolult, de neki kell ülni és összerakni kitesztelni.
#52778 föccer nagyúr Win-T #52777

Új Válasz 2024-06-03 14:20:00 #52778
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52777 üzenetére

1x kell megcsinálni, helyesen és utána bármennyiszer jól fogja megcsinálni.
Jelenleg is megcsinálja a 80 pdf-et, amit 3 kattintással nyomtatási sorba tudsz tenni.
Sőt, azt is meg lehet cisnálni, hogy egy makró megcsinálja a 80 munkapalot, lemásolgatva és sorszámozva őket, kijelöli az összes munkalapot és úgy nyomtatja. Akkor is egy doksiként fog kijönni, de ahhoz meg kell lennie az összes adatnak, egyszerre (vagy 1 munkalapon, vagy 80 munkapaon külön, az mindegy. Maga a nyomtatás az 1 eljárás, a kinyomtatott dokumentumokat az excel nem tudja összefűzni, de a különböző munkalapokat egyszerre kijelölve értelmezi, hogy 1 dokumentumba kell kinyomtatni.
üdv, FG
#52776 föccer nagyúr Win-T #52775

Új Válasz 2024-06-03 13:46:00 #52776
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52775 üzenetére

Sheets("16-32").Range("X2").Value = Sheets("Seged").Cells(i, 1).Value
ez a sor csinálja a név másolását,
Sheets("16-32").Range("X28").Value = Sheets("Seged").Cells(i, 1).Value
kell neked berakni alá. Ez az X28-ba is bemásolja a segéd A oszlopából az aktuális sor nevét.
A Sheets utáni paraméter a munkafüzet neveve, a Range után a cella hivatokzás van. Az = jeltől balra lévő Cells(i,1) cella tartalmazza a nevet (az aktuális, i-edik sorból veszi az értéket).
Mivel minden oldalt külön "generálsz lesz", így nem nagyon tudod összefűzni, max utólag. Simán filekezelőből viszont az összes fájlt kijelölve, helyi menüből lehet nyomtatni, és akkor sorba kinyomtatja az összeset.
1 pdf legenerálásához, egy munkalapon össze kellene szerkeszteni az összes dokumentumot, szépen tördelve és úgy nyomtatni. Meg lehet csinálni, de az macerás.
üdv, fg

[ Szerkesztve ]
#52774 föccer nagyúr Win-T #52773

Új Válasz 2024-06-03 12:01:45 #52774
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52773 üzenetére

Seged munkalap igy nézzen ki.
Mentst a munkafüzetet xlsm-be, makróbarátként. Fejlesztőeszközök menüből adj hozzá egy sima gombot. Alt+F11-el nyisd meg a VBA editort. Jobb klikk a fájl alatt az object-en, insert modul. A megjelent Module1-en dupla klikk, majd a lenti kódot szúrd be.
A beillesztett gombon jobb klikk, makró hozzá rendelése és válaszd ki a megírt Nevek_kitoltese makrót, majd futtasd.
Ha minden jól megy, akkor a fájl mellé lenyomja pdf-ben az összes formanyomtatványt úgy, hogy a fájl nevébe beteszi a nevet. Nem lehet 2 azonos név.
Sub Nevek_kitoltese()
Dim i As Integer
Dim Answer
Dim Fajl_neve As String
Dim Futvonal As String
Dim Nyomtato As String
MsgBox "Kérlek válaszd ki a pdf nyomtatót"
Application.Dialogs(xlDialogPrinterSetup).Show
Nyomtato = Application.ActivePrinter
MsgBox "Nyomtató beállítva: " & Nyomtato

For i = 2 To Sheets("Seged").Range("F2").Value
Sheets("16-32").Range("X2").Value = Sheets("Seged").Cells(i, 1).Value
Sheets("16-32").Range("X2").Calculate
Answer = MsgBox("Mehet a pdf generálása?", vbQuestion + vbYesNo + vbDefaultButton2, "Biztos?")
If Answer = vbYes Then
Fajl_neve = ActiveWorkbook.Path & "/" & Sheets("Seged").Cells(i, 1).Value & ".pdf"
Sheets("16-32").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Nyomtato, PrintToFile:=True, PrToFileName:=Fajl_neve
Else
MsgBox "Nyomtatás megszakítva..."
Exit Sub
End If
Next
End Sub
#52772 föccer nagyúr Win-T #52771

Új Válasz 2024-06-03 11:14:57 #52772
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52771 üzenetére

Munkalap neveket ha meg tudnád mutatni, az még jó lenne.
Kelleni fog egy Segéd munkalap, ami tartalmazza a neveket.
üdv, föccer

[ Szerkesztve ]
#52770 föccer nagyúr Win-T #52769

Új Válasz 2024-06-03 11:01:12 #52770
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz Win-T #52769 üzenetére

Makróban sima-liba megoldani. Több formanyomtatvány kezelőt is csináltam már.
Összerakod a név listát egy munkalapon, egy másikon egy formanyomtatványt.
A név darabszámhoz kötötten egy sima for ciklussal végig mész a neveken, beilleszted a formanyomtatványba és pdf-be lementet.
Ha mutatsz mintát, akkor segítünk megírni.
Ha van outlook kliens, akkor direktbe ki is tudja küldeni a vba
üdv, FG

[ Szerkesztve ]
#52082 Mutt senior tag Win-T #52081

Új Válasz 2024-01-21 10:41:50 #52082
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Mutt

senior tag

válasz Win-T #52081 üzenetére

Szia,
Rögzítsd a lapon az első sor(okat) - szerintem érdemes azon sorokig ahol a táblázat/kimutatás fejléce van -,
esetleg növeld meg a sor magasságát hogy a szeletelők jól elférjenek és húzd a rögzített sorokba őket.
üdv
#51918 Fire/SOUL/CD félisten Win-T #51917

Új Válasz 2023-12-06 18:16:18 #51918
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz Win-T #51917 üzenetére

Azért írtam, hogy 2021/365, mert a 2019 és korábbiak nem ismerik.
#51915 Fire/SOUL/CD félisten Win-T #51914

Új Válasz 2023-12-06 17:09:09 #51915
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz Win-T #51914 üzenetére

Excel 2021/365 esetén
=XKERES("x";A2:D2;$A$1:$D$1;"Nincs";0;1) (másolva lefelé)
#6448 Fehér Mancs tag Win-T #6447

Új Válasz 2010-03-03 13:24:16 #6448
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fehér Mancs

tag

válasz Win-T #6447 üzenetére

Random függvényt melléteszed egy másik oszlopba és eszerint rendezed le az állományt (ha nagyon sok van, akkor random*random-ot is lehet, hogy az azonos véletlenértékek ne kavarjanak be annyira).