- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- One mobilszolgáltatások
- Samsung Galaxy Watch6 Classic - tekerd!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Honor Magic V2 - origami
- Megérkezett Európába a Moto G55 5G és Moto G35 5G
- Google Pixel topik
-
Mobilarena
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
-
Delila_1
veterán
válasz
róland
#36898
üzenetére
Private Sub Worksheet_Open()
Dim oCtrl As Office.CommandBarControl
'CTRL+C, CTRL+V és CTRL+X letiltása
Application.OnKey "^c", ""
Application.OnKey "^x", ""
Application.OnKey "^v", ""
'Cut menü letiltása
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl
'Copy menü letiltása
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl
'Vonszolás letiltása
Application.CellDragAndDrop = False
End SubA BeforeClose-ban vissza kell állítani!
-
Morphy
csendes tag
Sziasztok!
Egy szűrési feladatra nem találok megoldást. Tudna valaki segíteni?
Adott egy excel file amiben van két munkalap (Munka1 és Munka2). A Munka1-ben egy táblázat található a következő oszlopokkal: Sorszám, Dátum, Név, Cím, Telefonszám, Email és még vagy 20 egyéb...
A Munka2-be csak a következő oszlopokat szeretném megjeleníteni:
- Sorszám
- Dátum
- Név
- TelefonszámViszont ezek közül is csak azokat amik Dátum oszlopában a mai és a leendő napok sorai találhatóak, illetve azokat amik Dátum oszlopában nincsenek értékek.
Ami még érdekessé teszi az egészet, hogy a már meglévő 200 soros táblázat a Munka1-ben folyamatosan nő és a Munka2-be kiszűrt adatokat viszont dinamikusan szeretném látni, csak azokat amik éppen aktuálisak.
Előre is köszönöm a segítséget! Remélem sikerült jól és érthetően megfogalmaznom.
-
ph2012
senior tag
Munkalapok celláinak összeadásáról szeretnék kérdezni. Létrehoztam több munkalapot:
A munkalapok nevei ahogy a képen is látni: 2015, 2016, 2017, 2018.
Mindegyik munkalapon az S17 cellában lévő értéket szeretném összeadni és a végösszeget a 2018-as munkalapra beírni egy cellába.Milyen képletet kell ehhez írnom?
Köszönöm a választ!
-
oke
senior tag
Sziasztok!
BUÉK!
Hogyan oldható meg az, hogy egy legördülő lista értékének kiválasztása alapján a mellette lévő cellába automatikusan bekerüljön a fixen hozzárendelt Ft érték? A lista és a Ft összerendelés egy másik táblázatban lenne egy másik munkalapon. FKERES lehet a megoldás?
Excel 2007
-
Songo
senior tag
Sziasztok
Boldog Új ÉVet mindenkinek
Szeretnék segítséget kérni.
Küzdök ezzel a szumha függvénnyel.
Adott egy ilyen elrendezésű táblázat:
Erre én korábban azt használtam hogy =HA(HIBÁS(SZÖVEG.KERES("alma";B2))=IGAZ;"0";C2)
Ezzel egy külön oszlopba ki tudtam gyűjteni azokat a bevételi értékeket amik az almához kapcsolódnak.
Viszont mára annyi külön tételem és annyi eltelt évem van hogy mire utána az egészet manuálisan össze adom lemegy a nap
Hogy tudnám ezt autó szummázni?
A szöveg keresést hogy lehetne a szumha függvénnyel megetetni?Köszönöm szépen a segítséget előre is
Üdv
-
Delila_1
veterán
válasz
North15
#36880
üzenetére
Sajnos ez az Excel hibája. Hiába törlöd a korábbi adatokat, nem tudja feledni az előzőleg kitöltött területet. Emiatt nem is szoktam alkalmazni a Cells.SpecialCells(xlCellTypeLastCell).Row -t. Az esetedben egy rövid kis makróval megoldható az alsó sor kikeresése.
Sub Also_sor()
Dim oszlop As Integer, usor As Long
For oszlop = 1 To 8
If Cells(Rows.Count, oszlop).End(xlUp).Row > usor Then
usor = Cells(Rows.Count, oszlop).End(xlUp).Row
End If
Next
MsgBox usor
End Sub -
spe88
senior tag
Sziasztok!
Ismétlem az előző kérésemet, mert közben a szerverről törlődött a fájl:
Van egy szerintem általatok könnyedén megoldandó probléma, de rajtam kifogott. Kicsit bonyolultnak tűnik, de az Excelből egyből megértitek.
Van egy darabjegyzék adott szintekkel (ezeket az A-E oszlopokban vizuálisan is szemléltettem a könnyebb érthetőség kedvéért, ezeket nem kell felhasználni a képlethez értelemszerűen). A 'G' oszlopban az adott szintek vannak. Arra lenne szükségem, hogy az 'I' oszlopban minden olyan helyre OK-ot rakjon a képlet, ami a 'H' oszlopban található 200-zal kezdődő számból ered. Magát a 200-as számot is.
(Előfordulhat, hogy 200-as szám alatt is van 200-as szám, tehát a mélyen lévő 200-as szám egy felette akármennyi szinttel lévő 200-as számból ered, ebben az esetben is mindenhova OK-ot rakjon a legfelső szinten lévő 200 és alatta.)Fájlból minden egyértelmű lesz!
Köszönöm előre is
-
csferke
senior tag
Sziasztok!
Megakadtam modernizálódás közben.
Eddig a HD-n Win7 32bit Office 2007 páros volt, mindkettő angol. Excel-ben a munkafüzeteim munkalapjain több vezérlőgomb van elhelyezve. Ezekre kattintva lefutott a hozzájuk rendelt macró (VBA kód).Beújítottam egy SSD-re. Erre felkerült a Win7 64bit és ismét az Office 2007, mindkettő angol.
Ha innen nyitom meg a munkafüzeteket akkor a "gombokra" hiába kattintok, nem indulnak el a macrók. VBA editor-ban ott vannak. ALT+F8, innen lehet indítani és le is fut a kód.
Munkafüzet beolvasásakor az auto_open macró lefut.Már turkálok napok óta a win, office és excel beállításaiban de nem sikerült megoldanom a problémát. Mivel a HD és SSD is a gépben van, ugrálok egyik rendszerből a másikba és próbálom megtalálni a különbséget a beállításokban.
Ja, a munkafüzetek továbbra is a HD-n vannak (G:\Google Drive\xyz...). HD vagy SSD esetén is az op.rendszer a C:\-n fut.Homályosítsatok fel, hogy hogyan tudnám ezt megoldani.
köszi
-
#36883
Apollo17hu
őstag
Játékos
#36877
Apollo17hu
őstag
válasz
Játékos
#36877
üzenetére
Szerintem egy "miniadatbázist" kellene csinálnia, amire basic függvényeket rá tud ereszteni, de akár pivotot is készíthet belőle.
Ez az öt oszlop kellene bele: név, dátum, tantárgy, jegy, szorzó. ...ahol a szorzó értéke alapból 1, tz-nél 2. Felvehet segédmezőket is, amiket a meglévőkből számol (pl. hónap), és ebből már lehet pöpec naplót készíteni pivotolással. Nem kell szenvedni, hogy új input esetén melyik hónap rubrikájába és hányszor vigye fel az osztályzatot. Egyszerűen csak új sort nyit, és feltölti.
-
RAiN91
őstag
Sziasztok
Excellel meg lehet oldani (esetleg VBA), hogy pl. az utolsó valamennyi oszlopot SZUM-ázza össze, egy bizonyos celláig, amiben valami szerepel?
Pl. ha A14 cellában "X" szerepel A3 cellában pedig "Y", akkor adja össze B14
3 cellák értékeit, valamint
A26 cellában "X", A16-ban "Y", akkor SZUM(B2616), és így tovább. Tehát mindig X és Y sorok közötti cellák értékeit szeretném összeadni. -
North15
csendes tag
Sziasztok!
Az alábbiakban kérném a segítségeteket. Lehet bonyolultan fogalmazok, de nem tudom, mely paraméterek fontosak.
Szóval:Adott két munkalap. Az elsőben vannak az adatok, a második pedig kezdésnek (a makró futtatásával) mindig üres. Ide, a másodikba kerülnek át makrón keresztüli másolással egymás mellé és alá az első fül bizonyos adatai (dátumok és szövegek). Ezzel nincs is gond, azonban miután végzett a másolással, folytatván a makrót, szükségem lenne a második fülön lévő következő üres sorra, ahova generált, majd újabb, de más szempontok szerint szűrt másolt adatok kerülnének.
A második fülön az adatokat tartalmazó oszlopok száma fix (8 db), de nem tudom előre, hogy az első másolást követően melyik oszlop hány sornyi adatot tartalmaz, egytől bármeddig lehet. Azaz lehet, hogy a B oszlop 13, az E 8 sornyi adatot tartalmaz, a többi meg csak 1-et. Bármilyen variáció előfordulhat, de az első sor mindig fel van töltve. Ebből a szituációból kéne a következő üres sor.
Azt tekintem következő üres sornak, amelyben a 8 oszlop közül minden cellának üres ("") a tartalma (formázás lehetséges). (A többi oszlop garantáltan üres.)Hasra a Cells.SpecialCells(xlCellTypeLastCell) alkalmazásával próbálkoztam, de valószínű rosszul, mert néha működik, de többszörös futtattásnál néha megugrik, és (egyre) lejjebb lévő sorra mutat, mint ami szerintem az első üres.
-
jtzk
tag
Sziasztok!
Pivot tábla készítését szeretném gyakorolni.
Van valakinek jó nagy táblázata, tele adatokkal, amivel eljátszadozhatnék? Esetleg konkrét minták/példák is jól jönnének.
Oktatóvideókat néztem, de vagy nagyon egyszerűt mutatnak be, vagy egy nagyon nagy táblázatot, de nincs mellékelve hozzá a fájl.
Segítségeteket előre is nagyon szépen köszönöm!
-
Játékos
addikt
Üdvözöllek titeket!
Tanító ismerősöm kérdezte tőlem, de nem tudtam rá a megoldást:
gyakorlatilag egy naplóról van szó, aminek a fő feladata, hogy átlagot számol, hónapról hónapra. Ahol elakadt, az az, hogy ha egy mezőbe (ugye egy hónap-egy mező) több érdemjegy kerül, akkor megzavarodik a számolás, mert nyilván egy számnak akarja értelmezni a program. Szóval az első kérdés, hogy hogyan érttethetem meg vele, hogy azok a számok több, különálló szám?
A másik kérdes pedig az, hogy ha egy szám mondjuk pirossal kerül beírásra (mondjuk egy témazáró dolgozat), akkor azt súlyozza jobban a program az átlag számolásakor, ha lehetséges.
Előre is hálásan megköszönöm, ha tudtok segíteni! -
Peetey91
senior tag
Sziasztok!
Valószínűleg elég egyszerű a probléma megoldása, de nekem nem sikerül kiokoskodnom:
A oszlopban levő cellákban szöveg van. Mellette a B oszlopba szeretném, ha "1"-et írna ki, ha szerepel benne az "XYZ" szó. Ha nem található benne akkor ne írjon bele semmit (vagy 0-t). Úgy gondolkodtam, hogy Ha és keres függvény kéne, de sajnos nem sikerült összeraknom.
Köszi előre is! -
spe88
senior tag
válasz
Delila_1
#36796
üzenetére
Szia!
Bocs, hogy csak most írok, csak az ünnepek stb...
Szóval az információnak továbbra is elegendőnek kell lennie. valószínűleg rosszul fogalmazhattam meg a feladatot.
Megmondanád, hogy mi az, ami miatt nem elegendő az infó a megoldásra?Szerintem neked ez könnyedén megy múltbéli tapasztalatok alapján, szóval valahol a feladat elmagyarázásában lesz a probléma.
Köszi
-
csferke
senior tag
válasz
Delila_1
#36868
üzenetére
Szia Delila!
Kijelölöd a C oszlop formázandó celláit. A feltételes formázás a 10 legnagyobb értékhez=$A2>=NAGY($A$2:$A$100;10)
Amikor Apply-t nyomok akkor a beírt kódot átírja a kijelölt tartományra a C oszlopban. Igaz, mivel angol Excel 2007, a Nagy-ot átírtam Top-ra.
Az A oszlopban a vizsgált tartomány($A$8:$A$19;$A$22:$A$91)és a C oszlop ugyanazon tartományát kellene színezni($C$8:$C$19;$C$22:$C$91)
köszi -
csferke
senior tag
-
oke
senior tag
Sziasztok!
Van egy kimutatásom, a lenti példához hasonló. Azt szeretném egy feltételes formázással elérni, hogy minden csoportban a legelső legnagyobb érték kiemelésre kerüljön, mondjuk sárgával. Ennél nagyobb a kimutatás, 3 "fő" csoport van (1-es Terület, 2-es Terület ...), ezen belül 6-6-6 alcsoport (Pest1, Pest2; Buda1..), ezen belül viszont változik az adat tartalom, néha több, néha kevesebb,
Tudom, hogy kézzel is meg lehet oldani, de valami automatizmust keresnék.Próbáltam az Összeg/Szumma oszlopot kijelölni a kimutatáson belül, de valamiért csak az "Összeg/Szumma" cella "kereteződik be", nem értem miért. Excel 2007.Itt a példa, ez már csak egy másolat, így nem látszanak a kibontási/összecsukási lehetőségek. Így szeretném a végeredményt:
-
#36859
föccer
nagyúr
the radish
#36857
föccer
nagyúr
válasz
the radish
#36857
üzenetére
SZUMHATÖBB kell neked. Több kritériumot is meg lehet neki adni.
üdv, föccer
-
#36857
the radish
senior tag
the radish
senior tag
Sziasztok!
K és L cella értékét meg lehet képlettel állapítani a lenti minta alapján?
"SZUMHA" függvénnyel próbálkoztam, de elakadok.
Előre is köszönöm.
-
Delila_1
veterán
válasz
RAiN91
#36851
üzenetére
Szia!
Másold be a makrót egy modulba (lásd Téma összefoglaló), és indítsd el.
Sub Sortorles()
Dim sor As Long, usor As Long, WF As WorksheetFunction
usor = Cells(Rows.Count, 1).End(xlUp).Row
Set WF = Application.WorksheetFunction
For sor = usor To 4 Step -1
If WF.CountA(Rows(sor)) = 0 And WF.CountA(Rows(sor - 1)) = 0 And _
WF.CountA(Rows(sor - 2)) = 0 And WF.CountA(Rows(sor - 3)) = 0 Then
Rows(sor).Delete Shift:=xlUp
End If
Next
End Sub -
RAiN91
őstag
Sziasztok
Van egy kb. 100.000 soros munkalapom, amiben elég sok az üres sor.
Ezeket szeretném kitörölni, de úgy, hogy pl. 2 adat között van 100 üres sor, akkor azért maradjon például 3 üres sor a 2 adat között, tehát ne érjenek össze. Van rá valami egyszerű megoldás?
Köszönöm.
-
Csatravi
senior tag
válasz
Delila_1
#36845
üzenetére
Így is ilyet írt.
[kép]De ügyködtem rajta és ezekkel lett jó.
C2 képlete=HA(ÉS(NEM(HIBÁS(SZÖVEG.KERES(BAL(B2;1);"abcdefghijklmnopqrstuvwzxyABCDEFGHIJKLMNOPQRSTUVWXYZ")));NEM(HIBÁS(SZÁMÉRTÉK(JOBB(B2;3))>0));HOSSZ(B2)=4);"";"HIBÁS ADAT")B4 képlete
=HA(C2="HIBÁS ADAT";"";HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat"))Érvényes jó formátumú adattal
[kép]Jó formátumú de rossz adattal
[kép]Így jó lesz.
Köszönöm a segítséget ! -
Delila_1
veterán
válasz
Csatravi
#36840
üzenetére
Nem kell érvényesítés a B2-be, a C2-ben úgyis megjelenik a figyelmeztetés. Érvényesítés esetén nem jutsz el a C2 kiírásáig.
A C2 cella képlete:
=HA(ÉS(HOSSZ(B2)=4;SZÁMÉRTÉK(JOBB(B2;3));VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91)));"";"hibás adat")A B4 celláé pedig
=HAHIBA(FKERES(B2;A:B;2;0);"nincs találat") -
Csatravi
senior tag
Fferi50 , Delila_1 !
Ne gondolkodjatok tovább, nem rabolnám már az időtöket itt az ünnepek előtt.
Jó lesz ez így, ha hibás formátum kerül be akkor jön a figyelmeztetés ha pedig helyesen de nem létező adat kerül bevitelre akkor csak a "Nincs adat" visszajelzés. -
Fferi50
Topikgazda
válasz
Csatravi
#36838
üzenetére
Szia!
Akkor a C2 cellába a szöveg HELYTELEN AZONOSÍTÓ legyen és a B4 cella képletében is ezt a szöveget vizsgáld. Sőt a B4 cellába is kerülhet ebben az esetben ugyanaz a szöveg. Pl.
C2 cella képlete:=HA(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));HAHIBA(SZÁMÉRTÉK(JOBB(B2;3));0)>0;HOSSZ(B2)=4);"";"HELYTELEN AZONOSÍTÓ")B4 cella képlete:
=HA(C2="HELYTELEN AZONOSÍTÓ";"HIBÁS KERESÉS";HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat"))A B2 cellára tehetsz feltételes formázást az alábbi képlettel:
=NEM(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));HAHIBA(SZÁMÉRTÉK(JOBB(B2;3));0)>0;HOSSZ(B2)=4))Ráállsz a B2 cellára. Kezdőlap - feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel - a megjelenő helyre (értékek formázása, ha ez a képlet igaz) bemásolod a képletet. Utána kiválasztod a kitöltést vagy a betűformát, majd OK.
Üdv.
-
Csatravi
senior tag
válasz
Fferi50
#36836
üzenetére
Nem vitatom, hogy akár keverem is a dolgokat. Sajna nem értek hozzá.
És igaz, hogy a nem létező adat az nem hibás adat. Igaz én oda soroltam. Azt szeretném elkerülni hogy hibás adatként megfelelő visszajelzés legyen. Viszont a nem létező adatnál a felhasználó a nem létező adatnál is kellően figyelmeztetve legyen hogy rossz karakter sorozatot írt be. Csak nem értettem, hogy a K000 nem létező adatra megjött a figyelmeztetés a K123 nem létezőre pedig nem. -
Fferi50
Topikgazda
válasz
Csatravi
#36835
üzenetére
Szia!
Szerintem belekeveredtél...
Kevered a két különböző esetet:
1. eset: a felhasználó helytelen formátumú kereső adatot írt a B2 cellába. Ebben az esetben kell a hibás adat, hibás keresés páros a két cellába.
2. eset: a kereső adat helyes formátumú, de nincs ilyen adat a 20000 azonosító között. Ekkor a C2 cella "néma marad", hiszen a formátum rendben van, de a B4 cellába a Nincs adat kell kerüljön.A K123 megfelelő formátumú, de nincs a táblában ilyen adat. Ezért jó amit mutat!
Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36829
üzenetére
Szia!
Hiszen ilyen esetben a nincs adat jelzést kell visszaadnia!!! Mert nem talált olyan adatot. Nem létező azonosítóra kerestél. Gondold át mégegyszer.
Hiszen az egész adathalmaz rejtve lesz a felhasználó előtt, honnan tudhatná szegény, hogy van-e olyan betűvel azonosító....Üdv.
-
Fferi50
Topikgazda
-
-
Fferi50
Topikgazda
válasz
Delila_1
#36825
üzenetére
Szia!
Az a baj, hogy itt
ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91)
hamis érték jön vissza, ha az első karakter szám (és persze a másik kódos képletnél is).
Ráadásul nem is ez okozza a bajt, hanem a HIBÁS függvény, amibe bele van csomagolva
Kicsit még megpróbálom ezt is csavargatni, de egyenlőre nem látom (lehet a fától az erdőt), hogyan lehetne egyszerűbben megoldani.Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36821
üzenetére
Szia!
Próbáld meg az alábbi képletet:
=HA(ÉS(NEM(HIBÁS(SZÖVEG.KERES(BAL(B2;1);"abcdefghijklmnopqrstuvwzxyABCDEFGHIJKLMNOPQRSTUVWXYZ")));NEM(HIBÁS(SZÁMÉRTÉK(JOBB(B2;3))>0));HOSSZ(B2)=4);"";"HIBÁS ADAT")Itt konkrétan benne van a képletben, hogy az első karakter milyen legyen, így ezen akár változtathatsz is.
Üdv.
-
Csatravi
senior tag
válasz
Fferi50
#36817
üzenetére
Nekiálltam próbálgatni ahogy a https://logout.hu/tema/excel/hsz_36815-36815.html írtam.
Azt vettem észre, hogy ha jól írok be mindent akkor frankó.
Ha 1 betűt és csak 2 számot tehát hibásan akkor szépen jelez.[kép] Ez így jó.
Viszont ha pld egy betűt és utána 4-5 számot vagy csak számokat írok be akkor nem írja ki a C2-be hogy "Hibás adat" és "Hibás keresés."
[kép] -
Csatravi
senior tag
válasz
Delila_1
#36818
üzenetére
Köszi, de gondolkoztam a makrón. Nem biztos hogy jó ötlet lenne a használata mert nem biztos, hogy akik használnák ott mindenkinél engedélyezve van a makró futtatása. Egyszerű tök laikus felhasználóknak is jó lenne úgy használni, hogy megnyit 4 karakter beír és kész. Ne kelljen engedélyeket állítgatniuk.
-
Fferi50
Topikgazda
válasz
Csatravi
#36815
üzenetére
Szia!
Ráállsz a B2 cellára. Kezdőlap - feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel - értékek formázása,ha ez a képlet igaz kockába beírod az =HIBÁS -sal kezdődő képletet, amit írtam.
Kijelölöd a háttérszínt stb. amit szeretnél még.
OK.Delila makróját a munkalap kódlapjára kell beírni: lapfülre állsz az egérrel, jobb egérgomb, kód megjelenítése. Oda másold be.
Üdv.
-
Csatravi
senior tag
válasz
Fferi50
#36813
üzenetére
Sajna nem értek hozzá
de ebből már sikerült valamit összeraknom.
A B4-hez beírtam a =HA(C2="HIBÁS ADAT";" kezdetű sort.
A C2-be a =HA(HIBÁS((ÉS(VAGY(ÉS(KÓD..... sortÍgy ha rossz formátumban írok be akkor....
[kép]Ha jó formátumban de olyan adatot ami nincs az első oszlopban akkor...
[kép]A kis és nagybetűre is egyformán jól keres.
Köszönöm !
-
-
Fferi50
Topikgazda
válasz
Csatravi
#36810
üzenetére
Szia!
A kisbetű-nagybetűre gondoltál?
Ez a képlet jó rá:=ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)Ha az adatérvényesítésnél elhagyod a hibajelzést, betehetsz figyelmeztetést, amikor kijelöli a cellát. Ezzel együtt több dolog együttes alkalmazásával rá lehet mutatni a hibára:
A B2 cellára feltételes formázást használni az alábbi képlettel:=HIBÁS(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4))
szinesre állítva a hátteret.
A C2 cellába beírni a következő képletet:=HA(HIBÁS((ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)));"HIBÁS ADAT";"")
A B4 cella képletét az alábbiak szerint megadni:=HA(C2="HIBÁS ADAT";"HIBÁS KERESÉS";HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat"))Így elvileg beírhat nem odavaló dolgokat is, de a hibaüzenetet megkapja több formában is.
Üdv.
-
Delila_1
veterán
válasz
Csatravi
#36810
üzenetére
Egy másik megközelítés szerint egy laphoz rendelt makró figyeli a B2 cellába bevitt adatot.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Variant
If Target.Address = "$B$2" And Target <> "" Then
Application.EnableEvents = False
Range("C2,B4") = ""
If Len(Target) <> 4 Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
If IsNumeric(Left(Target, 1)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
If Not IsNumeric(Right(Target, 3)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
sor = Application.Match(Target, Columns(1), 0)
If IsError(sor) Then
Range("B4") = "Hibás adat"
Else
Range("B4") = Cells(sor, "B")
End If
Range("B2").Select
Application.EnableEvents = True
End If
End Sub -
Csatravi
senior tag
válasz
Fferi50
#36807
üzenetére
Beírtam így és működik, feljön a hibaüzenet.
[kép]A működés már jó de a figyelmeztetéssel van még gondom.
A 7-16 sorok rejtve lesznek tehát az adatok nem fognak látszódni.A végleges verzióban kb 20000 sor lesz rejtve. Így csak szinte a keresési és találati cella lesz látható. Terv szerint A1:E7-ig. kerül a képernyőre mivel mobil képernyőre lenne tervezve. Így ez a nagy hibaüzenet kívül esne a képernyő méretből és így a képet húzogatni kellene.
Ezért gondoltam az egy cellában megjelenő hiba jelzésére. Ez megoldható lenne ?
A másik a betű mérete. Megoldható, hogy mindegy legyen, hogy mit használ ? -
Fferi50
Topikgazda
válasz
Csatravi
#36805
üzenetére
Szia!
Adatok - érvényesítés - egyéni. A képlet:
=ÉS(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)A hibajelzéshez pedig beírod a kívánt szöveget. Pl. Cime: helytelen adat Üzenet: egy betű 3 szám szükséges.
Most a kisbetűket fogadja el az elején, ha nagybetűket szeretnél, akkor a kód értékét át kell írni 64 és 91 értékre.
A B4 cellában a HAHIBA függvényt alkalmazhatod,
HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat")Üdv.
Ps. használd a konvertálatlan vagy a programkód gombot a kettőspontot tartalmazó címeknél.
-
Fferi50
Topikgazda
válasz
lumpy92
#36803
üzenetére
Szia!
Pici ellentmondást érzek:
"a következő nem nulla érték ismét találat lenne. Az ezekhez a nullákhoz tartozó B oszlopi értékeket ha még ki is iratná a C oszlopba egymás alá"Akkor most a megtalált nem nulla melletti értéket kell kiíratni a C oszlopba, vagy az előtte levő nullához tartozót?
Ha az előbbi, akkor a C2 cellába írd be az alábbi képletet:
=HA(ÉS(A1=0;A2<>0);B2;"")
és húzd végig az oszlopon.
A C oszlopban ott jelenik meg érték, ahol a 0 sorozat után az első nem nulla található. Igaz, ezek nem szorosan egymás alá kerülnek, de gondolom, kimásolni egy másik helyre egymás alá az már nem okoz gondot.Üdv.
-
Csatravi
senior tag
Sziasztok !
Az alábbi dologra szeretnék megoldást találni.
Van egy Fkeres függvényes táblázatom.
[kép]
Azt szeretném megoldani, hogy a B2 -be a kereséshez csak egy betűt és 3 számot lehessen beírni. Ha ez a feltétel nem vagy hibásan teljesül akkor a B2 cellában a "Hibás érték" jelenjen meg. Ha a B2 cellában ez a megjelenítés nem megoldható akkor jó a jobbra mellette levő cellában is.
Viszont az is meg kellene oldani hogy ha a B2 cellában helytelen az adat (egy betű 3 szám) vagy a B717 blokk nem tartalmaz ilyen értéket akkor a B4 cellában a "Nincs adat" szöveg jelenjen meg.Előre is köszönöm !
BOLDOG KARÁCSONYT !
-
föccer
nagyúr
válasz
lumpy92
#36803
üzenetére
Nem kell hozzá makró.
Csinálj egy segéd oszlopot mondjuk D-be. D1 cellába
=A2Ezt autofill-el rakd át az összes szükséges sorra.Kapcsold be az auto szűrőt.
A oszlopra az autoszűrő értéke legyen egyenlő 0, D oszlop értéke legyen nem egyenlő 0. A leszűrt listát keresed (ez minden olyan elemet tartalmaz, ami az A oszlopban 0 után szerepel.)
Kijelölöd a B oszlopot, másolsz, kikapcsolod az autoszűrőt, ráálsz C1-re és csinálsz egy érték beillesztést.
Törlöd a D segédoszlopot.
ps: ez az módszer feltételezi, hogy az A1 cella értéke 0.
Üdv, föccer
-
lumpy92
aktív tag
Sziasztok!
Segítséget szeretnék kérni makróhoz!
A oszlop tartalmaz egy adatsort, amiben sok 0 követi egymást, majd néhány 0nál nagyobb szám, majd újra nullák, és újra pár érték.
B oszlop ezekhez tartozóan szintén értékeket tartalmaz.
Olyan megoldást szeretnék, ami elindul az A oszlopban és minden 0 periódust követő első nem nulla értéket megtalál. Tehát utána néhány pozítv szám következne, amiken továbbhalad, majd megint nullák amiken szintén továbbhalad, majd a következő nem nulla érték ismét találat lenne. Az ezekhez a nullákhoz tartozó B oszlopi értékeket ha még ki is iratná a C oszlopba egymás alá, úgy érezném, nálam járt a jézuska
Köszönöm az ötleteket, segítséget, valamennyire értek a makrózáshoz, de most sajnos idő szűkében vagyok.
Kellemes ünnepeket!
Ez nagy segítség sok esetben.
örök hálám Buék
3 cellák értékeit, valamint
Szóval:
Új hozzászólás Aktív témák
Hirdetés
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kerékpárosok, bringások ide!
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- TCL LCD és LED TV-k
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- 3D nyomtatás
- Honda topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- PROHARDVER! feedback: bugok, problémák, ötletek
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Assassin's Creed Shadows Collector's Edition PC
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W docking station (3TR87AA)
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 16GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Bomba ár! Dell Latitude 7280 - i5-7GEN I 8GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest