- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
- GoodSpeed: AMD Ryzen 7 7700X vs AMD Ryzen 9 9900X Cinebench R23 & R24 Benchmarkokban mérve
- bambano: Bambanő háza tája
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Krisztianby: Íróasztal STAUNING 80x160 jobb mint gondoltam.
- Klaus Duran: Youtube AI szinkron
-
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
-
#37300
lappy
őstag
dellfanboy
#37299
lappy
őstag
válasz
dellfanboy
#37299
üzenetére
Tömbképlettel lehetne megpróbálni
-
#37299
dellfanboy
őstag
Fferi50
#37298
dellfanboy
őstag
válasz
Fferi50
#37298
üzenetére
az fkeres-es működött a Ha fv-be túlságosan belebonyolódtam.
máslenne egy olyan kérdésem hogy
van 4 oszlopom szöveggel és az ötödikbe szeretném a 4 szöveg átlagát írni
pl. ha
jó- jó-jó- közepes van akkor az ötödik oszlopba jó kerüljön
jó közepes közepes közepes akkor az ötödik oszlopba közepes kerüljön stb.ezt ti milyen fv-vel oldanátok meg?
még 1xköszöönm
-
#37298
Fferi50
Topikgazda
dellfanboy
#37297
Fferi50
Topikgazda
válasz
dellfanboy
#37297
üzenetére
Szia!
1.A Ha függvényeket bátran ágyazhatod egymásba több szinten is.
2.Egyszerűbb megoldás:
Egy segédtáblát csinálsz az alábbiak szerint:
0 elégtelen
1 elégtelen
2 elégséges
3 közepes
4 jó
5 kiválóEzután a képlet a B1 cellába:
=FKERES($A1;$F$1:$G$6;2;1) ' nálam az F1:G6 cellákban van a táblázat, ezt módosítsd a tiedre.A képletet húzhatod végig a B oszlopon. Az A oszlopban tizedestört értékek (pl. 2,3 is szerepelhetnek).
Üdv.
-
#37297
dellfanboy
őstag
dellfanboy
őstag
bocs, hogy zavarok de tudnátok segíteni az alábbi fv problémával
adva van a1 cella ahol az értékek 1-5 között lehetnek
b1 cellába kellene bírnom hogy 0-1 elégtelen,1,1-2 elégséges, 2,1-3 közepes, 3,1-4, jó, 4,1-5 kiváló érdemjegy van
próbáltam ha fv-vel de csak odáig jutottam hogy 2 érdemjegyet tudtam lefedni...
tudnátok segíteni hogy mi lehetne a jó képlet -
Delila_1
veterán
válasz
Teejay83
#37291
üzenetére
A Munka2 lap A oszlopába felviszed a 30 helységnevet, helyesen.
A példámban a hosszú címek az egyik lap A oszlopában vannak. Ezen a lapon egy üres oszlopba beírod a képletet
=HA(DARABTELI(Munka2!A:A;BAL(A1;SZÖVEG.KERES(",";A1)-1))=0;"Hiba";"Rendben")és lemásolod a többi címed mellé.
-
-
Teejay83
tag
Sziasztok
Segítsetek Excel guruk légyszíves
Arra kellene valami ötlet, hogy az alábbi formátumban megadott települések ha rosszul vagy hiányosan vannak beírva az excel dobjon valami hibaüzenetet. Csak a vesszőig kell, hogy figyeljen az utána lévő karakterek már nem fontosak.
-
oke
senior tag
Már annyi is elég lenne, ha azonos munkafüzetbe meg lehetne oldani a nyíllal való jelölést:
Így kellene az összehasonlítás
B6 --> M6 ---> B6-ba kerüljön a nyíl
B7 --> M7---> B7-be kerüljön a nyíl
.
.
B40 --> M40Illetve
C6 --> N6
C7 --> N7
.
.
C40 --> N40Sajnos az nem működik, hogy megcsinálom 1x feltételes formázással, majd formátumot választok. Nem enged relatív hivatkozást. Megpróbáltam név megadással "átverni", kijelöltem a M6-M40-ig a cellákat, Az abszolút hivatkozást átállítottam relatívra és feltételes formázásnál képletként behívtam, úgy tűnt működik is, de a nyilak össze vissza vannak, ha valahova belekattintok, átállítódnak
.
-
oke
senior tag
Sziasztok!
Van egy napi értékeket tartalmazó,azonos felépítésű táblázatom, amit minden nap elkészítek, Mindig külön táblázatban kerülnek elmentésre. Szeretném az aznapin megjelölni az egyes cellákban lévő adatokat "nyíllal", hogy az előző naphoz képest történt e változás, ha igen és pozitív, akkor legyen a szám mellett egy felfele nyíl, ha negatív, akkor meg lefele mutató. Hogy lehetne ezt megoldani? Próbálkoztam a feltételes formázás ikonkészletével, de nem jött össze, nem tetszett neki, hogy másik excelben van a másik érték.
Excel 2007
-
Delila_1
veterán
Írtam hozzá egy makrót. Nem mondom, hogy villámgyors lesz 40 k adatnál, de gyorsabb, mint "gyalogosan".
Az adatok az A:D oszlopokban vannak, és címsor van az első sorban.
Az A oszlopot átmásolja a G-be, ott megszünteti a duplikációkat. Az összevont B-D adatokat a H oszlopba írja, pontosvesszővel elválasztva.
A körlevélben a G lesz a cím, a H a szöveg.Sub Korlevelhez()
Dim sor As Long, tartomanyA As Range, tartomanyG As Range
Dim CVA As Range, CVG As Range, oszlop As Integer, szoveg As String
Columns("A:A").Copy Range("G1") 'másolás a G oszlopba
'Duplikációk megszüntetése
ActiveSheet.Range("$G:$G").RemoveDuplicates Columns:=1, Header:=xlNo
Set tartomanyA = Range("A2" & ":A" & Range("A2").End(xlDown).Row)
Set tartomanyG = Range("G2" & ":G" & Range("G2").End(xlDown).Row)
'Összevonás a H oszlopba
For Each CVG In tartomanyG
For Each CVA In tartomanyA
If CVA = CVG Then
szoveg = ""
For oszlop = 2 To 4
szoveg = szoveg & Cells(CVA.Row, oszlop) & ";"
Next
Cells(CVG.Row, "H") = Cells(CVG.Row, "H") & szoveg
End If
Next
Next
End Sub -
Vééé
csendes tag
válasz
Fferi50
#37283
üzenetére
Szia!
Igen, a körlevél arra való, hogy címlistából a címzettet behelyettesítse. A gond az, hogy nem egy-egy adat van, hanem 4. Kicsit próbálom érthetőbben. Gondolj egy olyan adatbázisra (pontosabban táblázat), ahol 4 oszlop van, valahogy úgy, hogy az első oszlop az étel neve, a második a hozzávaló mennyiség, a harmadik a mértékegység, negyedik a hozzávaló fajtája.
Tehát van 40e ilyen sorunk:palacsinta 1 kg liszt
palacsinta 4 db tojásés még rengeteg olyan sor, ami palacsinta, rengeteg olyan nem palacsinta, amihez liszt kell, vagy amihez 1 kg bármi.
Ez az egész halmaz egy táblázatban van.És ebből szeretnék én egy 300+ oldalas szakácskönyvet, ami felírja az oldal tetejére hogy palacsinta, alá pedig felsorolja a hozzávalókat. A kettő között pedig szöveg van, minden oldalon ugyanaz.
A körlevél annyit tud, hogy az xls oszlopait beszúrja, és minden sor külön levél lesz. De itt 40e+ sor van, magyarán 300 oldal helyett 40e oldalas lesz a szakácskönyvünk.
Ez egyébként egy nagyon egyszerű, logikailag jól leírható probléma, kizártnak tartom, hogy ne legyen rá valamilyen szoftveres megoldás, akár access-en keresztül.
-
Fferi50
Topikgazda
Szia!
Értékké átalakításhoz nem kell copy - paste makró esetén, egyszerűen ez a sor megoldja:
Range("a1:aq50000").Value=Range("a1:aq50000").ValueFontos, hogy ugyanoda szeretnéd az értéket visszaírni. Szerintem nem lehet nagy az időigénye sem, mivel csak a meglevő cellaértéket kell visszaírni.
Üdv.
-
Fferi50
Topikgazda
Szia!
A Word körlevélben az adatforrás - jelen esetben az Excel - egy sora egy rekordnak felel meg. Ha azt szeretnéd, hogy a szőrös összes előfordulása egy levélben jelenjen meg, akkor valamennyi hozzá kapcsolódó tételt egy Excel sorba kell betenni, pl. így:
Szőrös;kutya;négylábú;kétszemű;kutya;kétlábú;négyszemű;macska;kétlábú;ötszemű
Természetesen az egyes oszlopokat mezőknek kell elnevezned.
Ebben az esetben a körlevélben már az összes oszlopot fel tudod venni egy mintalevélben.Üdv.
-
Delila_1
veterán
Az "ok" szövegek az AF oszlopban vannak. Ez a táblázat első oszlopa? Ha nem akkor az
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"sorban a mezőszámot át kell írnod 1-ről annyira, ahányadik az AF a teljes táblázatban. A feloldásra is érvényes az átírás. Pl. ha AA az első oszlop, akkor a Field:=6
ActiveSheet.Range(tartomany).AutoFilter Field:=1 -
spe88
senior tag
válasz
Delila_1
#37280
üzenetére
Csak úgy nagyjából mondom ez egy darabjegyzék, ez tartalmazza egy adott elem szintjét, cikkszámát, revízióját, rajszámát, annak a revízióját, szabványnevét, angol nevét, német nevét, anyagát, tömegét, felületkezelését, jóváhagyás dátumát, jóváhagyás típusát, elem típusát, összeállítás beépülést, klasszifikációt meg még egy halom másik dolgot. Ezek mindegyikével dolgozik a a fájl adott füle. Egy halom oszlopot már kigyomláltam. Azért írtam csak le ezeket, mert nem véletlenül van benne ennyi.
Már megbékéltem ezzel a másolós mókával, hogy lassú, amúgy az is lehet, hogy itt a rendszer ilyen tetű, mert hiába van 32 GB RAM a gépben, meg 100k-s proci, akkor is siralom minden.
Viszont ezt a fejléc kiszedős makrót nem értem miért nem megy. Ez van a makróban:
Most az AF oszlopba került az, amire az OK-ot kell szűrni.
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
Dim tartomany As String, usor As Long
tartomany = Range("AF1").CurrentRegion.Address
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"
usor = Range("AF" & Rows.Count).End(xlUp).Row
Rows("2:" & usor).Delete Shift:=xlUp
ActiveSheet.Range(tartomany).AutoFilter Field:=1
End With
End SubKöszönöm
-
spe88
senior tag
válasz
Delila_1
#37278
üzenetére
Nincs benne kép, csak rengeteg adat, viszont, abban igazad volt, hogy nagy a fájl. Egy okosabb képletezéssel 20Mb-ra csökkentettem, de ez alá nem hiszem, hogy tudok menni.
A másik , hogy az a rész, amit értékre akarok állítani az a fájlméret csökkentése előtt is ugyanakkora adattartomány volt, mint most. Tehát olyan 50000 sor függően az importált adattól és olyan 40 oszlop.
Ezt iszonyat sok idő míg a copy paste értékkel megpróbálom megoldani, ezért kellett volna az előzőekben említett megoldás, de ha nincs ilyen, akkor kénytelen vagyok várni.Sokat.A szűrős megoldásra van valami ötleted miért csak a fejlécet távolítja el a makró?
Köszönöm
-
Delila_1
veterán
Valami baj van a fájloddal, mert a makrónak jól kell működnie.
Valószínű, hogy tele van egy halom felesleges adattal, képlettel, esetleg rajz objektumokkal, ha ilyen hatalmas méretű. Ekkora fájl esetén ne várj gyors műveleteket – ez az értékek beillesztésére is vonatkozik.
-
Vééé
csendes tag
válasz
föccer
#37273
üzenetére
A körlevéllel sehogy sem tudtam adatot leválogatni. Már az is gond, hogy az A oszlop lenne a címzett, de ott minden címzertt töbször szerepel. Tehát tudok minden "szőrös"nek levelet küldeni az összes soráról, de én azt szeretném, ha a szőrös egy levelet kapna, amiben fel vannak sorolva a sorai.
-
spe88
senior tag
válasz
Delila_1
#37264
üzenetére
A makró, amit linkeltél lefut végre, nem úgy, mint az enyém, viszont annyit csinál, hogy a fejlécet kitörli - amiben amúgy nincs benne az 'OK' szó, tehát nem kéne törölnie. A többi sor ugyanúgy megmarad. Szóval a fejléccel kevesebb sor marad meg annak ellenére, hogy az adott oszlopban van egy csomó OK, aminek a sorát törölni kéne.
A második kérdés: tudom, hogy nem kell hozzá makró csak elég bonyolult fájllal dolgozom. 150 MB. És gyorsra kell csinálni nem jelölgetek semmit, hanem megnyomom a gombot lefut a makró és boldog vagyok.
Azért kérdeztem, hogy nincs-e olyan megoldás, ami nem vágólapra teszi ezt az adat mennyiséget és utána bemásolja értékként, cellánként, hanem a cellákat értékre állítja.
Van-e ilyen? Erre irányult a kérdés, mert így nagyon lassú.@vgyuri: az előző bekezdés vonatkozik erre is
Köszönöm a segítséget!
-
Vééé
csendes tag
Sziasztok!
Segítséget szeretnék kérni excel/word témakörben.
Elég bonyolult a dolog, remélem van rá valami egyszerű megoldás:
Egy körlevelet szeretnék készíteni 300+ címzettnek.
A körlevélben a szövegen kívül lennie kell egy felsorolásnak, amiben adatsorok szerepelnek.
Az egész forrása egy 40.000 soros xls, ami a következőképp néz ki adatszinten (pontosvesszővel az oszlopokat választom el):
1 Szőrös;kutya;négylábú;kétszemű
2 Szőrős;kutya;kétlábú;négyszemű
3 Szőrös;macska;kétlábú;ötszemű
4 Csupasz;elefánt;négylábú;ormányos
és így továbbAz "A" oszlopból 300+ fajta adat van, mindegyik adathoz további x B,C,D adat tartozik. A oszlop egyben a körlevél címzettje, tehát a kimenet így nézne ki:
"Tisztelt Szőrös!
szöveg-szöveg-szöveg
És a "szőrős" melletti összes rekord felsorolása:
kutya;négylábú;kétszemű
kutya;kétlábú;négyszemű
macska;kétlábú;ötszeműLevél vége"
Van esetleg valami ötletetek, hogy lehet ezt 1-2 gombnyomással megoldani?
Köszönöm!
-
-
GreenIT
tag
válasz
GreenIT
#37266
üzenetére
Webes keresessel "serial total", vagy "account" fuggvenyeket ir a support office weboldal, de az excel ezeket nem ismeri.:-(
Ezt talaltam:
SERIAL TOTAL function
Scope: Excel 2016 Excel 2013 Excel 2010 Excel 2007 Mac Excel 2016 More ...
This topic presents the formula syntax and usage of the Microsoft Excel SPEAKER function.Description
Multiply the corresponding elements of the specified arrays and then calculate the amount of the products.Syntax
TABLE OF CONTENTS (array1; [array2]; [array3]; ...)The syntax of the FUNCTION function includes the following arguments:
Block1: Required to enter. The first block argument to calculate the product sum.
Block2, array3, ...: Not mandatory. Figures 2-255. an array argument that you want to estimate the product sum.
Notes
Arrays between arguments must be of the same size. If this is not the case, the CONTRACTOR is # VALUE! returns error value.THE COUNTRY CONNECTION considers non-numeric elements of arrays to be zero.
Example
Copy the sample data from the table below and paste them into a new Excel worksheet A1 cell. If you want the formulas to display the result, highlight them and press F2 then Enter. If necessary, you can change the width of the columns to see all the data visible.Block 1
Block 2
3
4
2
7
8
6
6
7
1
9
5
3
Formula
Description
Result
= ACCOUNT (A2: B4; D2: E4)
Combine the components of the two blocks and add the items together. Value: 3 * 2 + 4 * 7 + 8 * 6 + 6 * 7 + 1 * 5 + 9 * 3 (156)
156
-
Delila_1
veterán
Az első kérdésedre:
Sub Szures_Torles()
Dim tartomany As String, usor As Long
tartomany = Range("AH1").CurrentRegion.Address
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"
usor = Range("AH" & Rows.Count).End(xlUp).Row
Rows("2:" & usor).Delete Shift:=xlUp
ActiveSheet.Range(tartomany).AutoFilter Field:=1
End SubA másodikhoz nem kell makró. Kijelölöd a területet. Ha nincsenek a területen belül teljes üres sorok, vagy teljes üres oszlopok, akkor a tartomány bármelyik celláján állva a Ctrl+a (all), vagy a Ctrl+t (táblázat) kijelöli az egészet. Másolás (Ctrl+c), jobb klikk, irányított beillesztés, értékeket.
-
spe88
senior tag
erre valakinek van ötlete?
Illetve a másik, hogy van arra ötlet, hogy hogy tudnám egy nagyobb halmazban megadni, hogy a formulákat törölje a cellákból és az értékeket tartsa meg?
Köszi
Sajnos az alább látható lenti makróval az Excel megfagyasztja a gépet, egy óra után sincs semmi.
Kösz
Sub Makró1()
'
Range("a1:aq50000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub -
lacid90
csendes tag
válasz
Delila_1
#37258
üzenetére
Ne haragudj, felületes voltam. A fehér=nincs kitöltés, a fekete= automatikus. Beirtam a kapott makrót, a dupla clik müködik, de ahhoz nem kell a színt megváltoztatnom, hogy a dupla klik után átugorjon egy másik cellába. Hol lehet megnézni, az alapszinekhez tartozó értékeket. Nekem ez úgy kellene, hogy van egy oszlop amiben különböző értékek vannak, és van még pl. 3 cella (piros, zöld, kék) amibe a betűszín megváltoztatása után összeadná az azonos színű cellában az átszínezett értékeket. Úgy kellene, hogy az egész munkafüzetre legyen érvényes. Nem tudom hogy megoldható, vagy hagyjam abba ezt a variációt.
Segitségedet köszönöm, üdv Laci -
Delila_1
veterán
válasz
lacid90
#37253
üzenetére
A szín módosítása nem "esemény" az Excel számára. Egy makróval megoldható. Megváltoztatod a színt, majd duplaklikk a cellán, és megtörténik a másolás.
A fehér háttér igazán fehér, vagy "Nincs kitöltés? A fekete betű fekete, vagy "Automatikus"?
Az idézőjelesekhez írtam a makrót. Ez a duplaklikk hatására a cellával azonos sorba, de 5-tel jobbra másolja a cella tartalmát.Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex <> -4142 Then _
Target.Copy Range(Target.Address).Offset(, 5)
If Target.Font.ColorIndex <> -4105 Then _
Target.Copy Range(Target.Address).Offset(, 5)
End SubA laphoz kell rendelned a makrót, lásd a Téma összefoglalóban.
-
Delila_1
veterán
válasz
föccer
#37252
üzenetére
Makró.
Sub Jeloltek()
Dim CV As Range, ter As Range
Dim U As Integer, L As Integer
Set ter = Range("B1:B" & Range("B1").End(xlDown).Row).SpecialCells(xlCellTypeVisible)
For Each CV In ter
Select Case CV
Case "U", "u": U = U + 1
Case "L", "l", "i", "I": L = L + 1
End Select
Next
Range("L1") = "U: " & U & " db"
Range("L2") = "L: " & L & " db"
End Sub -
lacid90
csendes tag
Sziasztok!
A szinekkel való vezérlésben szeretnék segítséget kérni, úgy a betűszínnel, mint a cellaszínnel. Egy, az átlagosan megformázott cellába (fehér alap, fekete betű), beírt érték, másolása vagy áthelyezése a szín megváltoztatása után egy másik kiválasztott cellába. Nem tudom hogy az excelben van e alapból erre lehetőség, vagy makrót kell írni. 10-es excelt használok.
A segítséget előre is nagyon köszönöm.
Üdv Laci -
föccer
nagyúr
Jó estét!
Nem fog az agyam, segítsetek rajtam.
A megoldandó feladatrész a következő.
Van egy adathalmaz. Az egyik oszlop 2 értéket vehet fel. "L" vagy "U" (illetve kis és nagybetű, valamint a nagy i, mert sokszor a kis L-t nagy i-nek fogják fel. mindegy).
Az adathalmazban egy másik oszlopban autószűrővel szűrök.
A feladat az, hogy megszámoljam, hogy a mennyi elem van "U" vagy "L" (mindegy, a kettő aránya kell), de csak a szűrt halmazra vonatkozva, nem a teljes adatbázisra. A DARABHATÖBB figyelembe veszi a szűréssel elrejtett elemeket, az ÖSSZESÍT-be beépített darab2 pediglen nem tud kritériumnak megfeleltetést.
Az összesíttel megvan a leszűrt halmaz darabszáma, sima liba, de a szumhatöbb a teljes halmazra ad eredményt, így 1-nél (100%) nagyobb eredmény jön, ami nyilván nem jó.
=DARABHATÖBB(G7:G1007;"L")/ÖSSZESÍT(3;3;A7:A1048576)Milyen függvénnyel, vagy trükkel oldjam meg? Érzésem szeirint tömbképlettel meg lehet oldani, de sosem voltam magabiztos a tömbképlet működésében.
Köszi, föccer
-
Delila_1
veterán
válasz
allein
#37248
üzenetére
Lapfülön (amelyikre beírod az adatokat) jobb klikk, Kód megjelenítése. Beléptél a makró szerkesztőbe, ott is az aktív lapod moduljába. A jobb oldalon kapott nagy üres területre másold be az alábbi pár sort:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Sheets("Munka2").Cells(Target.Row, Target.Column) = _
Sheets("Munka2").Cells(Target.Row, Target.Column) + Target
End If
End SubKét helyen szerepel a "Munka2", ezek helyett írd be a saját lapod nevét.
Negatív szám bevitelének hatására csökken a 2. lap azonos cellájának az értéke. -
allein
addikt
válasz
Delila_1
#37242
üzenetére
Azonos helyen vannak az adatok mindkét cellában. Amit nem említettem, hogy google drive-ban vagyok. Tehát nem saját gépen. Hogyan állok neki makró készítésnek?
Mindkét cellában ugyanazok a termékek lesznek. Egyikben a kollégák beírják amit kiadtak, másik cellában pedig az adott mennyiség levonásra kerül, így mindig aktuális lesz a készletem, ezt szeretném megcsinálni.
Néha lesz bejövő termék, adott mennyiséget hozzáadom és ez akkor hozzáadódik a teljes készlethez.
-
#37246
dellfanboy
őstag
dellfanboy
őstag
a oszlopban szerepel egy név b oszlopban a lefutott km-k. a km-nek kell 5 kategóriág csinálnom (pl 0-1,1,1-5 stb) majd és bekategóriázni az embereket. ti milyen fv-t használnátok? a feladatban a ha (if) ki van zárva szóval vmi más fv kell
-
spe88
senior tag
válasz
Delila_1
#37244
üzenetére
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
.AutoFilterMode = False
.Range("ah1").AutoFilter 'Filter bekapcsolása
.Range("ah1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("2:1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A2").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With
End Subaz első sorban van maga a szűrő, ezért átírtam 1-re. De egyébként sem 1-gyel, sem 2-vel nem működik. :/
Runtime error 424 object required, debug az .AutoFilterMode = False sorban elakad.
Egyébként maga a cél, hogy szűrjön rá az adott oszlopban az OK-ra és az összes cellának a teljes sorát törölje, ami OK-ot tartalmaz. Ne csak az értéket, hanem a teljes sort. Ha van más megoldás is az is jó. Köszönöm szépen
-
-
pvt.peter
őstag
Sziasztok,
Van 2 oszlopom, az elsőben szövegek többszöri előfordulással, a másodikban pedig a hozzájuk tartozó számok. Példa rá:
Gyümölcs Darabszám
Alma 1
Körte 2
Körte 1
Alma 2
Körte 4
Narancs 1Szeretném a gyümölcsökhöz tartozó darabszámokat szummázva megjeleníteni, az alábbi szerint:
Gyümölcs Darabszám
Alma 3
Körte 7
Narancs 1Hogyan tudnám ezt megoldani Excel függvényekkel?
Előre is köszönöm a segítséget. -
spe88
senior tag
Hallo!
Kapok egy runtime erro 424-et. Reboot sem oldja meg a problémát. Mi a hiba a kódban?
Az Autofiltermode-ra dob debugot a rendszer.
Köszönöm
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
.AutoFilterMode = False
.Range("ah2:ah1000000").AutoFilter 'Filter bekapcsolása
.Range("ah2:ah1000000").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:xx100000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With
End Sub -
allein
addikt
Sziasztok. Adott két excel munkalap, csatoltam fotókat. Sheet1-ben kiadjuk a terméket, benne lesz a termékneve, mennyiség. Sheet2-ben van a készlet. Azt szeretném, hogy amikor kiadunk terméket azt azonnal levonja a készletből. Erre van valami függvény, sajnos nagyon nem vágom az excelt
-
0P1
aktív tag
válasz
Firehand
#37231
üzenetére
Ez nem a táblától/makrótól függ, (az gondolom az egérkattintás eseményt figyeli)hanem az OS / Office környezettől. Igy, ha a touch koppintást egérkattintásként emulálja a környezeted, akkor "működni" fog.
De amúgy Office 2007-ben nincs nativ touch mode, az csak 2013-tól felfelé van.
Touch eventeket alapból tudtommal nem támogat nativan a VBA, (főleg nem a 2007-es verzió ) -
EmberXY
veterán
válasz
Firehand
#37231
üzenetére
Így első ránézésre ez úgy van megoldva, hogy a "+" és "-" jel alakzatként van beszúrva, és az alakzatokhoz van rendelve a megfelelő makró. Ha így van, akkor ez csak olyan helyen működik, ahol a makró futása engedélyezett és ahol egyáltalán megvan az ehhez szükséges környezet. Nem kizárt, hogy ehhez valami külön applikáció kell. (Már ha jól veszem ki a mondandódból, hogy mobil eszközön szeretnéd használni.)
-
Guseppe
tag
Sziasztok!
Segítségetek szeretném kérni, mert nem találtam rá megoldást.
Adva van egy MS excel tábla melynek egyik cellája legördülő listát tartalmaz. Azt szeretném elérni, már ha lehetséges valahogy, hogy ha a legördülő listában kiválasztom az egyik "szöveget", akkor a mellette lévő cellában is egy bizonyos mondat jelenjen meg. Ha a legördőlő listában más választok ki, akkor pedig egy másik szöveg jelenjen meg. A "megjelenő szöveg" egy másik munkalapon/cellában előre felvitt tartalom volna.
Van ötletetek, hogyan lehetne kivitelezni?
Thx,
Gus -
0P1
aktív tag
válasz
ph2012
#37226
üzenetére
Igen, szűrő. Elég sok módon be lehet kapcsolni. Álljl rá a tábla fejlécére, és kapcsold be a szűrőt, (nem rtad, hanyas exceledvan, de gondolom,, megtalálod, egy tölcsért keresss
vagy szúrj be táblát, vagy formázd tábláva a tartományt (ezek is automatikusan bekapcsolják a szűrőt)Hogy mit lehet vele csinálni? Szűrni különféle feltételekre. Hogy mikre, az adott oszlop adattpusától függ.
-
ph2012
senior tag
2005-ben végeztem számítógépes tanfolyamot, nem mindenre emlékszem már. A SZUMHA függvény példájánál az oszlopok tetejére készítettük ilyen legördülő menüt (pirossal bekarikázva):
Mi ez? Valami szűrő? Mit lehet vele csinálni a táblázatban? Hogy kell létrehozni? Már nem emlékszem rá.
Köszi a segítséget.
-
-
#37224
0P1
aktív tag
csanyiadam
#37219
0P1
aktív tag
válasz
csanyiadam
#37219
üzenetére
Szia, ez inkább MacOS kérdés, mint Excel
Az operációs rendszer alapértelmzett delimiterét álltsd vesszőre.System Preferences > Language & Region:Advanced > General.
Sajnos macOS elég gagyi , itt nem lehet külön delimitert állitani, mint windowsban. Ha a tizedes elválasztód ".", akkor "," a delimiter, ha "," , akkor ";"
-
styrex
csendes tag
Sziasztok
Excel 2007-em van és az a gondom,hogy két munkafüzet között nem tudok másolni úgy, hogy a függvények is átmásolódjanak.
Csak az aktuális cella értéke másolódik át a függvények nem.
Nálam van valamilyen beállítási hiba?
Excelből Open office-ba műküdik, de már visszafelé onnan sem.
Valami ötlet?
-
lacid90
csendes tag
Sziasztok!
Abban kérném a segítséget, hogy egy oszlopban lévő számokból a betűszín megváltoztatása után átkerüljön az érték egy másik cellába. pl. c osszlopban lévő számok feketével vannak, és ha én egy cellában átírom pirosra, akkor a cellában lévő érték jelenjen meg egy másik cellában is.
Köszönöm a segítséget. Üdv Laci
excel 10 -
#37219
csanyiadam
tag
csanyiadam
tag
Sziasztok,
Az alábbi dologban szeretném a seítségeteket kérni. Mac Excel 2016 esetében betöltök egy .csv fájlt, ahol jelenleg "," tagolások vannak az oszlopok között. Néhány dolog átalakítása után szeretném elmenteni a fájlt, de sajnos ";"-re kicseréli a tagolást. Mivel lehet ezt orvosolni? Sajnos amikor mentem a fájlt nincs olyan lehetőségem, hogy ezt megváltoztassam. Egészen biztos, hogy én nem csinálok jól valamit, csak sajnos nem tudok rájönni, hogy mit.
Nagyon szépen köszönöm a segítségeteket.
Szép napot.
Ádám -
#37218
Flowtation
őstag
Fferi50
#37205
-
Delila_1
veterán
válasz
Vladek83
#37211
üzenetére
Nem biztos, hogy jól értem. Ki akarod tölteni az üres cellákat az alattuk lévő szövegekkel?
Ha igen, jelöld ki az A9:D28 tartományt. Ctrl+g-re bejön az Ugrás menü. Ott lenyomod az Irányított gombot, majd kiválasztod az Üres cellákat.
Marad a kijelölés. Az aktív cellába írsz egy egyenlőségjelet, majd lenyomod a LE nyilat, Ctrl+Enter beviszi az összes kijelölt cellába a képletet.
Érdemes az egész tartományt újra kijelölni, másolni, majd ugyanoda értékként beilleszteni, hogy a képletek helyén az értékek szerepeljenek.
-
Vladek83
tag
Sziasztok!
Megoldható a következő makróval?
A következőt szeretném elérni / automatizálni, egyenlőre nem találtam megoldást:
- a 15.sorban lévő adatok kerüljenek a felette lévő üres sorokban 9. sorig.
- a 20.sorban lévő adatok kerüljenek a felette lévő üres sorokban 16. sorig.
- a 23.sorban lévő adatok kerüljenek a felette lévő üres sorokban 21. sorig.
stb..Ui.: remélem érthetően írtam le...
üdv,
szerk.: elnézést, csak a "D" oszlopig tartalmazó adatokra lenne szükség, nem egész sorra.
-
-
#37205
Fferi50
Topikgazda
Flowtation
#37201
Fferi50
Topikgazda
válasz
Flowtation
#37201
üzenetére
Szia!
Szerintem a napközisek külön megjelölését nem tudod elkerülni, hiszen különben honnan is tudnád, hogy valaki napközis-e vagy sem.
Ezután pedig az autoszűrő vagy speciális szűrő (ez másolni is képes egy menetben) tud segíteni. De begyűjteni laponként kell mindkét esetben.Üdv.
-
-
Fferi50
Topikgazda
válasz
m_kovacs
#37200
üzenetére
Szia!
"sajnos nagyon makacs ez a szintax error.
aid=Application.Worksheetfunction.VLookup(nev,Value,E1:F46,2,HAMIS)"Talán azért, mert a Value teljesen feleslegesen szerepel ott, így 4 paraméter helyett 5 paramétert kap a VLookup.
Mi akar lenni az a Value? Hiszen a nev változó tartalmazza a keresendő értéket!
Másrészt a tartományt nem így kell megadni!Az eredeti hozzászólásom javítva:
aid=Application.Worksheetfunction.VLookup(nev,Range("E1:F46"),2,False)Üdv.
-
lacid90
csendes tag
Hello!
Az a problémám, hogy egy cellában (c4-be) szeretnék két feltételt írni. 10-es ExcelHA(H8<>"ok";SZUM(C6
37)-C8;SZUM(C637))
HA(H21<>"ok";SZUM(C637)-C21;SZUM(C637))A c4-be szummázva van a c6:c37 tartomány, és azt szeretném, hogy ha a h8, és a h21 cellákba nincs beírva hogy ok, akkor a c8, és a c21 be írt értéket ne számolja be a szummázott cellába.
A segítséget előre is köszönöm. -
#37201
Flowtation
őstag
Flowtation
őstag
Sziasztok!
Segítség kellene. Van egy táblázatom, sok füllel, a fülek az osztályok, benne név, hiányzás, jegyek, stb. Átlag számítások a végén. Namost nekem ki kellene gyűjtenem a napköziseket, viszont ők vegyesen vannak az osztályokból, pl. 1. és 4. osztály, 2. és 3. osztály, valamint 5-8 osztályig a felsős napközi. Azt hogyan tudom megoldani, hogy csak a napközis neveket gyűjtsem ki azon sorok minden adatával? Azon kívül, hogy minden sort egyesével kimásolok.
Eső körben arra gondoltam, hogy felveszek egy oszlopot, napközi fejjel és beírom, hogy igen/nem. Ezután autoszűrő erre az oszlopra. Olyan létezik, hogy függvénnyel oldjam meg a gyűjtést? Arra gondolok, hogy: HA ezen a fülön a1=igen akkor azt a sort másolja, és így tovább...de egyszerre legalább két fülön kellene elvégezni a vizsgálatot. (viszont ebben az esetben is kell I/N oszlop, akkor meg már lehet elég az autoszűrő.Valami egyéb más ötlet lenne?
az fkeres-es működött a Ha fv-be túlságosan belebonyolódtam.
.
Új hozzászólás Aktív témák
Hirdetés
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Akciós Windows 10 pro + Office 2019 professional plus csomag AZONNALI SZÁLLÍTÁS
- Lenovo IdeaPad 3 17ITL6 - 17.3" HD+ Intel 6305 - 8GB - 256GB SSD - Win11 - MAGYAR
- Gyors, Precíz, Megbízható TELEFONSZERVIZ, amire számíthatsz! Akár 1 órán belül
- Gamer PC-Számítógép! Csere-Beszámítás! I5 12400F / RTX 3060Ti / 32GB DDR4 / 512 M.2 SSD
Állásajánlatok
Cég: FOTC
Város: Budapest