-
Fototrend
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
-
#7594
Delila_1
veterán
Fire/SOUL/CD
#7593
Delila_1
veterán
válasz
Fire/SOUL/CD
#7593
üzenetére
Minden oszlop külön listaként volt formázva, így mindegyiket külön kezelte a rendezés.
-
#7561
Delila_1
veterán
Fire/SOUL/CD
#7560
Delila_1
veterán
válasz
Fire/SOUL/CD
#7560
üzenetére
Ne adj ötelteket!
-
#7549
Delila_1
veterán
Fire/SOUL/CD
#7548
Delila_1
veterán
válasz
Fire/SOUL/CD
#7548
üzenetére
Köszönöm a fáradozást.
"Beborult"? azért nem ment tönkre, ugye?
Kénytelen lennél visszatérni a 2003-hoz.
-
Delila_1
veterán
válasz
motinka
#7546
üzenetére
A lapvédelem beállításainál választhatsz, hogy milyen műveletek ellen véded a lapot.
Itt van egy felsorolás, amiből kiválaszthatod, mit engedélyezel minden felhasználónak. Bejelöltem az AutoSzűrő használatát, de ez úgy látom, nem működik, nem engedi.Töröld a zárolást a D3:D9 tartományban, és a többi helyen, ahol módosíthat a felhasználó. Védd le a lapot.
A makró első sora ez legyen:
ActiveSheet.Protect UserInterfaceOnly:=TrueSzerk.: ezzel a felhasználótól védetté tesszük a lapot, de a makrók ezután is módosíthatják a zárolt cellák tartalmát.
-
#7544
Delila_1
veterán
Fire/SOUL/CD
#7542
Delila_1
veterán
válasz
Fire/SOUL/CD
#7542
üzenetére
Ha már 2007: a szűrőnél a lenyíló ablakot egérrel meg lehet nagyobbítani. Ismersz módot arra, hogy ez bármelyik megnyitott fájlnál így maradjon? Ezt kérdezte múltkor valaki tőlem, de megbuktam.
-
#7543
Delila_1
veterán
Fire/SOUL/CD
#7542
Delila_1
veterán
válasz
Fire/SOUL/CD
#7542
üzenetére
Tapasztalatom szerint a felhasználók zöme még a 2003-ast használja, míg ez nem változik, addig én is maradok a "zöm"-mel.
Remélem, másnak is hasznára válik a feltett fájl.
-
#7541
Delila_1
veterán
Fire/SOUL/CD
#7540
Delila_1
veterán
válasz
Fire/SOUL/CD
#7540
üzenetére
Köszönöm. Meg tudnám szerezni a 2003-as formára konvertálót, de nem akarom. Csak azért tartom a 2007-et, hogy ne legyek teljesen járatlan a témában.
Azt hiszem, csak akkor váltok át újabb verzióra, mikor már nem maradhatok meg a rongyos réginél.Felteszek egy 2003-as verzióban készült füzetet, amiben a különböző funkciók elérési lehetősége szerepel a 2003-as, és 2007-es alkalmazásban. Hátha hasznára lesz valaki(k)nek.
Excel 2003_2007.xls -
#7539
Delila_1
veterán
Fire/SOUL/CD
#7538
Delila_1
veterán
válasz
Fire/SOUL/CD
#7538
üzenetére
Fent van a 2007, de nem szeretem.
-
#7537
Delila_1
veterán
Fire/SOUL/CD
#7536
Delila_1
veterán
válasz
Fire/SOUL/CD
#7536
üzenetére
Akkor még annyit mondjunk el Motinkának, hogy ennél a megoldásnál a "műbe vétel" előtt a D3:D8 tartományt el kell nevezni X_TARTOMÁNYnak.
-
#7535
Delila_1
veterán
Fire/SOUL/CD
#7530
Delila_1
veterán
válasz
Fire/SOUL/CD
#7530
üzenetére
Fogadok, választ fog adni.
Nagyon késő volt... -
Delila_1
veterán
válasz
motinka
#7531
üzenetére
Ha már Fire megígérte, tálalom a makrót.
Tegyél autoszűrőt az A11:I11 tartományba, ahogy Fire is írta.
A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra másold be:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 And Target.Row > 2 And Target.Row < 9 Then
Range("A11").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
Selection.AutoFilter Field:=9, Criteria1:="="
End If
If Target.Address = "$H$1" Then
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=9
End If
End SubEzután a D3:D8 tartomány bármelyik cellájára duplán kattintva a lenti sorok közül azok látszanak, amiket kértél.
Beleírtam, hogy a H1 duplaklikkjére minden adat látsszon az alsó táblázatban. Írhatsz is valami erre utaló szöveget a H1-be. -
Delila_1
veterán
válasz
Retekegér
#7513
üzenetére
Ha számok vannak a C4 és F4 cellákban, akkor
=INDEX(Munka2!$A$1:$P$97;Munka1!C4;Munka1!F4),ha viszont az F4-ben betűt adsz meg oszlopazonosítóként, akkor
=INDEX(Munka2!$A$1:$P$97;Munka1!C4;Munka1!F4)Mindkét példában a Munka1 lapon van a C4 és F4, az adatokat pedig a Munka2 lapról veszi a képlet. Figyelj, következetesen kevered a munkafüzetet és a munkalapot!
-
#7511
Delila_1
veterán
Mulderpapa
#7509
Delila_1
veterán
válasz
Mulderpapa
#7509
üzenetére
Vegyük, hogy a Munka1 lap A oszlopában van a élő, és a Munka2 lap A oszlopában az elfekvő listád.
A Munka1 lapon (feltételezve, hogy címsor is van) egy üres oszlop 2. sorába vidd be ezt a függvényt:
=DARABTELI(Munka2!A:A;Munka1!A2)
Másold le az adataid mellé. Szűrd meg az új oszlopot autoszűrővel (Adatok - Szűrő - Autoszűrő) úgy, hogy a 0-nál nagyobb értékeket mutassa. Rendes esetben ebben az oszlopban csak 0, és 1 lehet. Nagyobb szám csak akkor fordulhat elő, ha az elfekvő listában 1-nél többször szerepel 1-1 cikkszám.
A szűrő hatására csak azok a sorok látszanak, amelyeknek a cikkszáma megtalálható az elfekvők között. Ezeket a sorokat kijelölöd, és törlöd. -
-
Delila_1
veterán
Itt egy másik példa a szóköz, vagy metszet operátorra:
Javítás: A képen rosszul írtam a szöveget. A Ter_2 az E3:G8 terület neve, nem az F3:G8-é. Éppen ez a lényeg, hogy a két terület metszetével számol. Bármi más – SZUM, NÉGYZETÖSSZEG, DARAB2, stb. – függvényt is lehet alkalmazni rá.
-
Delila_1
veterán
válasz
Retekegér
#7503
üzenetére
A szóköz operátorral keresheted meg legkönnyebben az értékes adatot.
Kijelölöd a területet, Beszúrás - Név - Létrehozás. Felajánlja, hogy a neveket a felső sorból, és a bal oszlopból veszi. OK.
A bal oszlopban nevek vannak. Ha Kiss Piroska szerepel közöttük, a névadásnál Kiss_Piroska lesz belőle, mert szóközös szöveg nem adható meg névként (mármint egy cella, vagy terület elnevezéseként).Ezután ennyit írsz egy cellába: =Kiss_Piroska március,
vagy =február Kiss_Piroska
A két elnevezés közé egy szóközt kell írni, ezért hívják szóköz operátornak (alias metszet operátor). -
#7502
Delila_1
veterán
Fire/SOUL/CD
#7501
Delila_1
veterán
válasz
Fire/SOUL/CD
#7501
üzenetére
Nem mérgelődöm, virágos jókedvemben vagyok a hideg őszi eső ellenére.
-
#7500
Delila_1
veterán
Fire/SOUL/CD
#7499
Delila_1
veterán
válasz
Fire/SOUL/CD
#7499
üzenetére
Félreérthetően "javítottam", a LE az alapérték.
-
Delila_1
veterán
Lásd a #7485-öt. Ott Maci25 az A1; B1; C1 után az A2; B2; C2 kitöltésévél akarta folytatni az adatbevitelt. Nála az Eszközök - Beállítások - Szerkesztés fülön az Enter után továbblép opcióban az irányt jobbra kellett állítani, nálad lefelé. EZ az alapbeállítás, ott helytelenül írtam.
Tehát kijelölöd az A1:A6 tartományt, és kezded a bevitelt, majd újabb terület kijelölésével folytatod a munkát.
-
Delila_1
veterán
Egy megoldás, aminél kicsit figyelni kell:
A beállításoknál jobbra állítod az enter utáni továbblépést (ez az alapbeállítás).
Kijelölöd az A1:C15 tartományt, és folyamatosan írod az értékeket, mindegyik után enterrel. A kijelölt tartományon belül A1; B1; C1; A2; B2; C2; ... A15; B15; C15 sorrendben töltődnek fel a cellák. Ezután a D1:F15 tartományt jelölöd ki, és folytatod a feltöltést.Figyelni azért kell, mert ha nem változtatod a kijelölést, a C15 után újra az A1 lesz aktuális, és felülírod az előzően bevitt adatot.
-
Delila_1
veterán
válasz
Antonio
#7475
üzenetére
Másképp értem a kérdést, mint Perfag.
Úgy gondolom, hogy van egy (legalább 2 oszlopból álló) tartományod, amit két – változó – szempont szerint akarsz szűrni. A változó szempontokat egy-egy cellában adod meg, esetleg érvényesítés segítségével.
Ha így érted, add meg, hol vannak a szűrendő oszlopaid, és a két cella, amik szerint szűrni akarsz. Melyik cella változó értéke melyik oszlop kritériumát határozza meg.
Délután leszek csak gép közelében, ha addig nem kapsz választ, segítek.
-
Delila_1
veterán
Az IF a magyar HA függvény angol megfelelője.
shev valószínűleg így oldotta volna meg:
=ha(c29="";e29*h$25;c29*h$25)Minden feladatra több megoldás létezik. Az előző megoldást arra gondolva írtam, hogy egy-egy sorban vagy műanyag, vagy alu keret szerepel. Amelyik éppen nincs a sorban, annak az 5-tel való szorzata 0, ezért nem változtaja meg az összeget a H oszlopban.
-
Delila_1
veterán
Legegyszerűbb kimutatást készíteni az adataidból. A SOR-hoz azt az oszlopcímkét tedd, amelyik a 0001, 0002, stb adatokat tartalmazza, az ADAThoz pedig a másikat.
Másik módszer, hogy egy oszlopban felsorolod az első oszlopban előforduló adatokat (legyen ez az új oszlop most az F). A G1 képlete (feltételezve, hogy a másik két oszlop az A és B):
=SZUMHA(A:A;F1;B:B), ezt kell lemásolnod az F oszlop adatai mellé. -
#7424
Delila_1
veterán
kenesei1982
#7422
Delila_1
veterán
válasz
kenesei1982
#7422
üzenetére
Szivi.
-
#7423
Delila_1
veterán
kenesei1982
#7422
Delila_1
veterán
válasz
kenesei1982
#7422
üzenetére
Szivi.
-
#7421
Delila_1
veterán
Fehér Mancs
#7420
Delila_1
veterán
válasz
Fehér Mancs
#7420
üzenetére
Ilyen kevés adatnál az is jó, többnél nem szaporítanám a képleteket.
-
#7419
Delila_1
veterán
kenesei1982
#7418
Delila_1
veterán
válasz
kenesei1982
#7418
üzenetére
Valami elválsztót biztosan akarsz az adatok közé tenni. Az alábbi makró minden cella értéke után tesz egy vesszőt, és egy szóközt. Az eredményt az L1 cellába írja be.
Sub osszefuz()
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
sz = sz & Cells(sor, 1) & ", "
Next
Cells(1, 12) = Left(sz, Len(sz) - 2)
End Sub -
#7406
Delila_1
veterán
qpakcovboy
#7405
Delila_1
veterán
válasz
qpakcovboy
#7405
üzenetére
Visszajött a PH!
A Munkafüzet1 D3 képlete annyiban módosul a C3-hoz képest, hogy a $A3-hoz hozzá kell adnod 1-et, az E3-ban ez $A3+2 lesz, végül az F3-ban $A3+3-at írj.
A Másik füzet.xls-ben az A:AW tartomány neve Befizetések.
-
#7403
Delila_1
veterán
qpakcovboy
#7402
Delila_1
veterán
válasz
qpakcovboy
#7402
üzenetére
Ez 11 egymásba ágyazott Ha függvényt feltételez, holott csak 7 ágyazható be.
Legegyszerűbb az INDEX. -
#7399
Delila_1
veterán
qpakcovboy
#7397
Delila_1
veterán
válasz
qpakcovboy
#7397
üzenetére
Ezt így tudtommal nem lehet megcsinálni.
A TNÉV(cellahivatkozás) függvény előállítaná a nagy kezdőbetűt, de ha a hivatkozott cella az =MA() függvényt tartalmazza, vagy így adod meg: =TNÉV(MA()) , akkor számmal írja ki a dátumot (ma 40345-öt), így mondatba sem tudod foglalni.
Az =MA() függvénynek a hhhh formátumot adva megkapod a hónap nevét - kisbetűkkel, de egyéb szöveggel együtt megint csak számot kapsz.
-
Delila_1
veterán
A "hónapok" listában dátumként add meg az értékeket (2010.01.01.; 2010.02.01, stb). a formátumuk legyen az egyéni kategóriában hhhh, akárcsak azé az oszlopé, ahol elő akarod csalni a hónapok nevét.
Az érvényesítés alatti sor képlete =EOMONTH(A1;1), azt véve alapul, hogy A1-ben van a legördülő. Ezt a képletet másold le 11 soron át.
Ha az EOMONTH nem szerepel a függvényeid között, kapcsold be az Eszközök/Bővítménykezelőben az Analysis kezdetű két bővítményt.
-
#7387
Delila_1
veterán
Integrator
#7384
Delila_1
veterán
válasz
Integrator
#7384
üzenetére
A szétválasztott, majd összefűzött adatok oszlopát jelöld ki, másold, és ugyanoda az irányított beillesztéssel (nem tudom az angol megfelelőjét) tedd be az értéküket a képlet helyére. Ez az előző összefűzésedre vonatkozik. Nálam az irányított beillesztést így lehet előcsalni: másolás (Ctrl+c) után jobb klikk, a gyorsmenüben a negyedik a kivágás, másolás, és beillesztés után. Mikor előcsaltad a menüpontot, valószínűleg Value-t kell választanod.
Ekkor sok szóközzel a végén szerepelnek majd a címeid. Egy következő oszlopba beviszed az =trim(cellshivatkozás)&"." képletet.
Még jobb így: =if(right(h1,1)<>".",trim(h1)&".",trim(h1)) -
#7385
Delila_1
veterán
Integrator
#7384
Delila_1
veterán
válasz
Integrator
#7384
üzenetére
=IF(COUNTA(E2:G2)>2;C2&" "&D2&" "&E2&F2&G2&".";C2&D2&".")
Valami ehhez hasonlót kell írni. A counta összeszámolja, hány adatod van az E:G tartományban.
-
#7383
Delila_1
veterán
Integrator
#7381
Delila_1
veterán
válasz
Integrator
#7381
üzenetére
Valószínű, hogy a left, mid, és right függvényekkel szedted szét az adatokat, ha egy rahedli szóköz támadt bennük. A TRIM(cellahivatkozás) függvény levágja a szó elején és végén lévő szóközöket.
=trim(b1)&"." -
#7382
Delila_1
veterán
Integrator
#7381
Delila_1
veterán
válasz
Integrator
#7381
üzenetére
Ezt most én nem értem. Ha a Text to Columns-szal választottad szét az adatokat, az utca és házszám összefűzése:
=utcanevet_tartalmazó_cella & " " & házszámot_tartalmazó_cella.
-
#7380
Delila_1
veterán
Integrator
#7379
Delila_1
veterán
válasz
Integrator
#7379
üzenetére
Akkor jó, megtaláltad a Text to Columns menüpontot.
-
#7378
Delila_1
veterán
Integrator
#7377
Delila_1
veterán
válasz
Integrator
#7377
üzenetére
Egyszerűbb kijelölnöd a sorokat, és az Adatok/Szövegből oszlopok funkciót alkalmaznod. Ha túl sok felé választja az adataidat (pl. az utcát a házszámot egy cellában szeretnéd látni), könnyebb utólag összefűzni.
-
Delila_1
veterán
Azt hittem, már mindenki szabadságra ment.
A képlet nem látszik, ha a cellaformázás Védelem fülén bejelölöd a Rejtett opciót, de ez csak akkor lép érvénybe, mikor a lapot védetté tetted.
A kitörölhetetlen képlet makróját a laphoz kell rendelned (lapfülön jobb klikk, Kód megjelenítése.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = "" Then
Cells(Target.Row, Target.Column).Formula = "=A" & Target.Row & "*B" & Target.Row
End If
End SubNem ismerem a képletedet, ez a kis makró a C oszlopba írja be törlés esetén az =A1*B1 képletet, illetve minden sorban a saját sorára vonatkoztatva a szorzást. Írd meg, melyik oszlopodban milyen képletet kell újraírni törléskor.
-
Delila_1
veterán
Csak most tudtam újra ránézni. Megvan a hiba, én követtem el.
Új lap beszúrása esetén nem álltam vissza a kezdő lapra.
Helyesen:Sub Masol()
Sheets("Munka1").Select
sor = 2
Do While Cells(sor, 10) <> ""
tal = 0
lapnév = Cells(sor, 10)
For lap = 2 To Worksheets.Count
If Sheets(lap).Name = lapnév Then
tal = 1
Exit For
End If
Next
If tal = 0 Then
Worksheets.Add.Name = lapnév
Sheets(lapnév).Move After:=Sheets(2)
Sheets("Munka1").Select
End If
usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
ActiveSheet.Range("A" & sor & ":I" & sor).Copy _
Destination:=Sheets(lapnév).Range("A" & usor)
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
Óhajod parancs.
Sub Masol()
Sheets("Munka1").Select
sor = 2
Do While Cells(sor, 10) <> ""
tal = 0
lapnév = Cells(sor, 10)
For lap = 2 To Worksheets.Count
If Sheets(lap).Name = lapnév Then
tal = 1
Exit For
End If
Next
If tal = 0 Then
Worksheets.Add.Name = lapnév
Sheets(lapnév).Move After:=Sheets(2)
End If
usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
ActiveSheet.Range("A" & sor & ":I" & sor).Copy _
Destination:=Sheets(lapnév).Range("A" & usor)
sor = sor + 1
Loop
End Sub -
#7346
Delila_1
veterán
Fire/SOUL/CD
#7344
Delila_1
veterán
válasz
Fire/SOUL/CD
#7344
üzenetére
Úgy látszik, a napokban nem sokmindent lehet rámbízni.
Ezesetben egyszerű a dolog.tusi74
Feltételezem, hogy az egyes országok lapjai üresen ásítozva várják az adatok özönét, és a kiinduló lap neve Munka1, ahol az első sor a címsor.
Sub Masol()
Sheets("Munka1").Select
sor = 2
Do While Cells(sor, 10) <> ""
lapnév = Cells(sor, 10)
usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
ActiveSheet.Range("A" & sor & ":I" & sor).Copy Destination:=Sheets(lapnév).Range("A" & usor)
sor = sor + 1
Loop
End Sub -
#7343
Delila_1
veterán
Fire/SOUL/CD
#7342
Delila_1
veterán
válasz
Fire/SOUL/CD
#7342
üzenetére
A J oszlop az ország nevén kívül egyebeket is tartalmaz. Az aktuális cellára hivatkozva a left("UK és egyebek",2) adja az egyik lapnevet, a másik cellánál a left("Németország stb.", 11). Egy kis segédtáblával, fkeressel egyszerűen meg lehet oldani, ha tudom, hogy a J oszlop bal oldaláról hány karaktert figyeljek a tuti azonosíthatósághoz.
-
#7322
Delila_1
veterán
Fire/SOUL/CD
#7321
Delila_1
veterán
válasz
Fire/SOUL/CD
#7321
üzenetére
Megint félreértettem. Ez egy ilyen nap
Úgy gondoltam, hogy a két cellában két teljes név van. -
#7319
Delila_1
veterán
Fire/SOUL/CD
#7318
Delila_1
veterán
válasz
Fire/SOUL/CD
#7318
üzenetére
Lehet, hogy a végére kell -2 a vezetéknevek és a keresztnevek közötti 2 szóköz miatt.
-
-
Delila_1
veterán
válasz
ALbeeeee
#7287
üzenetére
Tedd a 2-2 dolgot egy then, és egy else ágba. Egy ilyen nyúlfakrnyi programnál nem lehet észrevenni, de az IF-es sorok növelik a futási időt.
A kombipanelhez rendeld a makrót, ami egy közönséges Sub-bal kezdődik, és tartalmazza a két objektumod láthatóságát.
Hogy akarod átmásoltatni a textbox értékét, ha egyszerre sosem nem látható a textbox és a téglalap?
-
Delila_1
veterán
válasz
ALbeeeee
#7285
üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
Munka1.TextBox1.Visible = True
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
Munka1.TextBox1.Visible = False
End If
End SubHonnan veszed a lenyílót, amivel az F11-be viszed be az értéket? A LinkedCell-be add meg az F11-et.
Nálam egyszerű adatérvényesítéssel működik.
Úgy gondoltam, hogy a két cellában két teljes név van.
Új hozzászólás Aktív témák
Fferi50- PlayStation 5
- Hogy is néznek ki a gépeink?
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Filmvilág
- Okos Otthon / Smart Home
- Gyúrósok ide!
- Yettel topik
- iPhone topik
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Eladó Steam kulcsok kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- BESZÁMÍTÁS! GIGABYTE B650M R5 7600 32GB DDR5 1TB SSD RX 9070 16GB NZXT H700 Cooler Master 750W
- iKing.Hu - Google Pixel 10 Tensor G5, 120 Hz OLED, tripla kamera-128 GB Használt, karcmentes Gari
- Bomba ár! Lenovo 14W Gen2 - AMD 3015e I 4GB I 128SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Samsung Galaxy S24 Ultra / 12/256GB / Kártyafüggetlen / 12HÓ Garancia
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest