Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- Toomy: FOXPOST régen jó volt, de ma már jobban jársz ha elfelejted.
- btz: Internet fejlesztés országosan!
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Magga: PLEX: multimédia az egész lakásban
-
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
-
elmoraan (r)
aktív tag
Üdv!
Tud valaki olyan módszert, amivel sok linket át tudok javítani egyszerűen? (Átpakolták a cégnél a cuccainkat másik könyvtárba.) Valami keresés és csere formájú megoldás kellene, bár akármi másnak is örülnék...
-
Delila_1
veterán
Szia Lúzer!
Az A65536-on állva nyomj egy Ctrl+fel nyilat. A kurzor az A oszlop utolsó, adatot tartalmazó cellájára áll. Ez ennek a műveletnek a VBA-s megfelelője. Így keresem ki az alsó sort.
Lehetne range("A1").end(xldown).row is, de akkor, ha az adatok (még mindig A oszlopban)között üres cella van, nem az utolsó kitöltött sorra állna, hanem az első csapat adat utolsó cellájára.
Másik hátránya, hogy ha csak A1-ben van adat (vagy ott sem), akkor leugrik a 65536-ra, és külön be kell írni a makróba egy feltételt, hogy ha fenti uatsítással meghatározott sor a 65536, akkor az utolsó sor értéke legyen 2, vagy 1 – van, vagy nincs címsor..A Ctrl+nyilakat a munkalapon az adatok közötti navigálásra is jól fel lehet használni.
-
takyka77
tag
Sziasztok!
Az lenne a kérdésem, hogy makróból meg lehet azt oldani, hogy az ESZKÖZÖK\VÉDELEM\LAPVÉDELEM FELOLDÁSA menüt ne érjék el a felhasználók amíg adott tábla nyitva van?
-
Delila_1
veterán
válasz
attiati
#3895
üzenetére
Angol nyelvűnél is működik, de csak akkor, ha a gyümölcsök és a lapok neve megegyezik.
Másképp honnan tudná a program, hogy melyik lap adataihoz írja a következőt?Vegyél fel egy új lapot, ahol az A oszlopban a hosszú név, B-ben a hozzárendelt rövid lapnév szerepeljen. Kibővítettem a makrót. A Masolt_lap E oszlopába beírja az
=fkeres(a2;Uj_Sheet!a:b;2;hamis) függvényt, és ezután a lapnevet nem a B, hanem az E oszlopból olvassa ki.Sub Masol()
Sheets("Masolt_lap").Select
usorm = Range("A65536").End(xlUp).Row
Range("E2").Select
ActiveCell.Formula = "=VLOOKUP(B2,Uj_Sheet!A:B,2,FALSE)"
Selection.AutoFill Destination:=Range("E2:E" & usorm)
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnev = Cells(sor, 5)
ar = Cells(sor, 3)
Sheets(lapnev).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ar
Sheets("Masolt_lap").Select
sor = sor + 1
Loop
End Sub -
attiati
veterán
válasz
Delila_1
#3894
üzenetére
köszi, hogy vetted a fáradtságot!
akkor is működni fog, ha angol nyelvű az excel? Illetve, ha az 1. munkalapon a "gyümölcsök" nevei 50-60 karakterrel vannak kiírva, viszont a sheetek neve már mozaikszó, vagy rövidítés?
gondolom kell valami közös azonosító a sheetek neve és az 1. munkalap között...(lapnév)-et is át kell írnom?
-
Delila_1
veterán
válasz
attiati
#3893
üzenetére
A lapot, amit másolsz valahonnan, "Másolt_lap"-nak neveztem el (két helyen szerepel a makróban, írd át a saját lapod nevére). Ezen az A oszlopba írtam a dátumot, B-be a termék nevét, C-be az árat. Mindezt a második sortól, mert feltételezem, hogy az első sorban oszlopcímek vannak. A gyümölcsök lapjára már nem kell minden sorba az azonosítót beírni, azért nem tettem be az adatok közé.
Az gyümölcs lapokra csak két oszlopot vettem fel, a dátumot és a hozzá tartozó árat.Sub Másol()
Sheets("Másolt_lap").select
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnév = Cells(sor, 2)
ár = Cells(sor, 3)
Sheets(lapnév).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ár
Sheets("Másolt_lap").Select
sor = sor + 1
Loop
End Sub -
attiati
veterán
Hogy lehetne az alábbi munkalapok közötti másolást megoldani legegyszerűbben?
Az 1. munkalapra kb. 30 gyümölcs árát, nevét, azonosítóját... másolom ki minden nap egy táblázatba. Egy sor = egy gyümölcs. A többi 30 munkalap pedig egy-egy gyümölcs, és azok árat tartalmazza 2002 óta. Egy sor = egy nap. Ezeket most kézzel kell beírni sheetenként.
A cél az lenne, hogy az 1. munkalapról pl. az alma mai adataiból az ár, és mennyiség rákerüljön az alma munkalapjára a többi napi adat alá egy új sorba a dátummal együtt. Tehát meg kéne hagyni az alma korábbi napi árainak sorait is. (nem jó, ha egyenlővé teszek két cellát)
A legjobb az lenne, ha az 1. munkalap napi adatait nem kéne tárolnom, hanem csak rámásolni az aznapi adatokat, és az szépen kimásolná a gyümölcsök sheetjeire új sorba az aznapi árakat.
-
takyka77
tag
Sziasztok!
Van egy táblázatunk amiben a dolgozók vezetik, hogy mit dolgoztak adott napon.
A sorok felelnek meg a hónap napjának.
Úgy kellett elkészíteni a táblát, hogy visszamenőleg csak az utolsó hét adatait lehessen módosítani, az előtte lévőket már nem.
A tábla megnyitásakor lefutott egy makró amely zárolta azokat a sorokat, amelyeket már nem lehet módosítani. Ez addig jó volt, amíg jelszó nélkül adtuk meg a lapvédelmet. Amint jelszót állítottunk be lapvédelemnél, megnyitáskor megállt a makró és kérte a lapvédelem feloldásához szükséges jelszót.
Van-e lehetőség arra, hogy makróból zároljak cellát, ha jelszó van beállítva lapvédelemnél?
Milyen más lehetőség van arra, hogy cellákat ne tudjanak felülírni?Zoli
-
Balinov
titán
Sziaszto, Excel 2007 (angol) eseten futottam bele egy erdekes, am annal idegesitobb problemaban.
Dolgozok napi szinten egy cirka 2500 sorbol allo ill. AN oszlopig kiterjedo Oraclebol exportalt excel tablaval. formazas semmi kulonos, egy auto filter van az oszlopnevekhez, meg a fejadatok vannak szinnel kiemelve. A gondom az, hogy pl. egy vevore leszukitem a forrast (legyen a neve A), kijelolom oszlopcimmel egyutt es egy Crtl+N-t bokve uj fileba akarnam copy-paste-vel beilleszteni. Na ilyet rendkivul gyakran kell csinalni. Nem regota raktak fel a cegnel az Office 2003 helyett a 2007-et. Nagyon sokaig mukodott is, am egyszercsak azt kezdte el csinalni, hogy Crtl+V utan az uj munkafuzetben csak a kijeloles merete (x*y oszlop es sor) latszik, de a forras munkafuzet cellainak az erteke nem kerul at az ujba.
Igy csinalom: Szurovel kivalasztom XYZ vevot. Kijelolom az adatokat (pl. A1-tol X16ig) egerrel. Crtl+C masol. Uj munkafuzet megnyit, goto A1 cella. Crtl+V beilleszt.
Rohadjon meg, most hogy irom a postot ujbol megprobalom. Ha az oszlopcimes sort (C sor) kijelom, kopipeszt megy. Ha filter nelkul kijelolok kb. 50 sort oszlopfejlecestol, megy. Ha raszurok xzy vevore, kijelolom, kopipeszt uj munkafuzetbe, nem megy. Hat
Ilyet nem ertem. Mi lehet a gond?1db makro van csak, de az is csak a formazast csinalja meg nekem, hogy kb 1 kepernyo szelessegben a legfontosabb adatokat tartalmazo oszlopok latszodjanak.
Valakinek tippe, otlete?
Koszi
Balinov -
Lehdog
csendes tag
Sziasztok!
Szükségem lenne egy egyszerű VB makróra, igaz nem excelben, hanem access-ben szeretném használni.
Van egy táblám melynek első oszlopa azonosítókat tartalmaz. A gond az, hogy ezek az azonosítók nem egyediek, tehát több ugyanolyan is van egymás után. A tábla 3. oszlopa viszont csak az első azonosítónál van kitöltve, a többinél üres.
A feladat az lenne, hogy a makró lemásolja az adott azonosítóhoz tartozó kódokat, és kitöltse az üres mezőket.
Pl: van 3 darab 1-es ID-jű sorom. De ebből a 3 sorból csak az elsőhöz tartozik kód.
Én azt szeretném, ha mindhárom 1-es ID-jű sorhoz tartozna ugyanaz a kód.
Ha valaki tud, legyen szives segítsen nekem
-
Delila_1
veterán
válasz
Alex123
#3886
üzenetére
A lenti makró elvégzi a munkát.
Ha biztos vagy benne, hogy az A oszlopban minden cím csak egyszer szerepel, akkor így jó lesz a makró, ha nem biztos, akkor az Exit For sort töröld a futtatás előtt.Sub egyezo_torles()
ucsoA = Range("A65536").End(xlUp).Row
ucsoB = Range("B65536").End(xlUp).Row
Cells(1, 3).FormulaR1C1 = "=COUNTIF(C[-2],RC[-1])"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C" & ucsoB)
For sorB = 1 To ucsoB
If Cells(sorB, 2) > 0 Then
email = Cells(sorB, 2)
For sorA = 1 To ucsoA
Cells(sorA, 1).Select
If Cells(sorA, 1) = email Then
Selection.Delete Shift:=xlUp
Exit For
End If
Next
End If
Next
Columns("C:C").Select
Selection.ClearContents
Range("A1").Select
End Sub -
Alex123
senior tag
Sziasztok!
Adott egy excell-es adathalmaz:
- Az "A" oszlopban kb. 3000 e-mail címmel
- A "B" oszlopban kb. 150 e-mail címmelA következő a kérdésem:
Szeretném megvizsgálni, hogy a "B" oszlopban szereplő 150db cím szerepel-e az "A" oszlop 3000 címében és ha igen, akkor amelyik szerepel, azt törölni (kivonni) kellene az "A" oszlopból....
(tehát ha A és B oszlop mutat pl. 42db megeggyező címet, akkor azt a 42db-ot törölni kellene az "A" oszlopból)
Tudna Valaki segíteni?
-
lúzer
veterán
válasz
mimi_bacsi
#3884
üzenetére
Ok.

egyébként, pl. A1-ben van a szöveg, akkor pl:
B1 cella =SZÖVEG.KERES(" ";A1)
C1 cella =BAL(A1;B1)
A2 cella =CSERE(A1;1;B1;"")és így tovább...
-
lúzer
veterán
válasz
mimi_bacsi
#3882
üzenetére
biztos van jobb:
kimentettem szövegfájlba (txt), bezártam
majd excelben megnyitottam mint szóközzel tabulált fájl -
mimi_bacsi
tag
Régebben volt már itt Delila válaszolt is, de nem tudom hogy keressem meg, kérlek Benneteket segítsetek!
Adva van egy adatsor (1 Név Készpénz 2008.01.09 16.667,00 3.333,00 20.000,00) és ezeket az adatokat szeretném külön cellába tenni, hogy a név, a fizetés módja és az értékek mindegyike külön kezelhető legyen) -
cousin333
addikt
válasz
cousin333
#3879
üzenetére
No, akkor egy vizuális példa:

Az Y értékek az első sorban, az X értékek az első oszlopban vannak, a Z-k meg közöttük. Ebből csináltam egy szép felület diagramot. Amint az látható, az X értékeket címkeként kezelte a program, nem értékekként. Ennek eredményeképpen az X tengelyen teljes összevisszaság van (2, 4, 5, 6, 3). Ha úgy jelenítené meg, ahogyan én gondolom, akkor előbb jönne a 2-es, és hozzá a neki megfelelő Z pont, aztán a 3-as, és hozzá a neki megfelelő Z pont... stb.
Ez működik is, ha XY-ként ábrázolom, de az csak két adatsorral működik (X és Y)

Szóval a fentieket kellene kombinálni. Bár már gyanítom, hogy nem fog menni...

-
cousin333
addikt
válasz
Delila_1
#3876
üzenetére
Természetesen ez nem okozna problémát, nem is erre gondoltam. A képedet alapul véve képzeld el a következőket:
- nincs első sor
- A2 üres
- hogy az X értékek az A3 : A10 tartományban vannak
- az Y értékek az B2 : C2 tartományban vannak
- a Z értékek a B3 : C10 tartományban vannakEzt szeretném 3D-ben ábrázolni úgy, hogy az X, Y, Z értékek a hasonló nevű tengelyeken szerepeljenek. Ezt csinálja a "felület" grafikon. De azzal az a problémám, hogy az (1) X=4, Y=2, Z=1 pont az YX síkon pontosan fele olyan messze van a (2) X=7, Y=2, Z=4 ponttól, mint a (3) X=6.5, Y=2, Z=3.5 ponttól. Tehát az X tengely mentén haladva az origóból kiindulva, előbb következik az (1), aztán a (2), végül a (3). De ha megnézed az X értékeit, akkor előbb kellene lennie (1)-nek, aztán a (3)-nak (mert 6.5<7), majd a (2)-nek. A példaként írt értékekből az is látszik, hogy az XY síkon az (1)-nek ötször olyan messze kellene lennie a (3)-tól, mint a (2)-nek a (3)-tól....

Megkísérlek én is összeütni egy példa-képet, mert ez így nehezen emészhető...
-
Delila_1
veterán
válasz
cousin333
#3874
üzenetére
Miért kérdés 3 oszlop adataiból terület diagramot rajzoltatni? Valamit félreértek?
[Itt egy kép] -
cousin333
addikt
Üdv mindenkinek!
Az volna a kérdésem, hogy hogyan lenne lehetséges - ha egyáltalán az - Office 2002 alatt kombinálni az XY és a felület ábrázolást egy diagramnál. Tehát:
- van egy "adatmátrixom", két változóval (X és Y)
- minden X-Y kombinációra van egy konkrét Z értékem
- az X és Y változók is paraméterek (konkrét értékek), nem csupán címkék
- szeretnék egy olyan felületet ábrázolni (mint a felület diagramnál), ahol az egyes XY pontok nem egy négyzetháló kereszteződéseiben helyezkednek el, hanem az X ill. Y értékekkel arányosan (mint az XY ábrázolásnál, csak nem két változóm van, hanem 3: a Z az X és az Y függvényében)Remélem, érthető voltam, várom szíves válaszaitokat

-
Delila_1
veterán
Most ugyan nem vagyok 2007-es közelében, de megpróbálom leírni.
Az utolsó menüpont Fejlesztés, vagy hasonló névre hallgat. Innen hívd meg a Visual Basic-et. Bal oldalon láthatod a megnyitott füzeteid nevét, állj rá arra, amelyikbe be akarod másolni a makrót.
Insert menü, Module hatására jobb oldalon kapsz egy üres lapot, oda másold be a makrókat.
Ha a cellának nem a hátterét, hanem a karaktereket akarod színezni, az Interior-t mindenhol írd át Font-ra.
Innen is indíthatod a makrókat. A magnókon szereplő ikonokhoz hasonlóak.
A füzetből való indítás szintén a Fejlesztés menüből történhet, a Makrók nevű gombbal. Erre a gombra kattintva megjelennek a füzethez rendelt makrók, az egyik kiválasztása után az Indítás gombbal működtetheted, vagy az indítandó makró nevén duplán kattintasz..
Jó munkát!
-
Anor
csendes tag
Mellesleg azért nem akarok makróval dolgozni mert egyeltalán nem értek hozzá még arra is nehéz lesz rájönnöm hogy ezt hogy kell alkalmazni

-
Anor
csendes tag
Köszönöm a segítséget!

-
Delila_1
veterán
Úgy tűnik, programozás nélkül nem megy.
Amit Lúzer ajánlott – Cella("szín",A2), az sajnos nem arra vonatkozik. Sikerült megtalálni a súgóban, aztán gyorsan el is vesztettem. Olyasmit tartalmaz, hogy ha negatív szám esetén más színt adunk a karakternek, mint pozitívnál, akkor 1 lesz az értéke a képletnek, azonos színnél 0 (vagy fordítva(?)).
Miért nem akarsz makróval dolgozni?Mindenesetre megírtam két makrót. Az első a színezett cellán állva egy üzenetboxban kiírja a háttér színkódját, ezt a kódot add meg a második makró If-fel kezdődő sorában.
Sub szin()
MsgBox Selection.Interior.ColorIndex
End SubNálam a színkód 44 (sötétsárga) volt.
A második makró számolja a nem színezett cellák tartalmának átlagát, mégpedig A2-től (feltételezve, hogy az A1 oszlopcímet tartalmaz) addig, amíg az A oszlopban talál adatot. Az utolsó adat utáni cellába írja az eredményt.Sub Atlag()
For sor = 2 To Range("A65536").End(xlUp).Row
If Cells(sor, 1).Interior.ColorIndex <> 44 Then
osszeg = osszeg + Cells(sor, 1)
oszto = oszto + 1
End If
Next
Cells(sor, 1) = osszeg / oszto
End Sub -
Anor
csendes tag
3856#

-
gsc73
aktív tag
Sziasztok!
Egy kérdésem lenne! Az alábbi kódrészlettel tudok VB-ben hivatkozni az aktuális munkafüzet lap nevére:
Range("A1").Select
ActiveCell.FormulaR1C1 = ActiveSheet.NameVan erre valamilyen függvény is, amit beírva egy cellába megjelenik a kérdéses név?
Azt szeretném, hogy a munkahüzet lap neve belekerüljön egy cellába, de Makrót, és VB-t nem lehet használni.
Köszi: g.
-
Delila_1
veterán
válasz
RoyalFlush
#3854
üzenetére
Ne vond össze a cellákat. Az FKEREShez a két oszlopnak (Alsó határ, Minősítés) egymás mellett kell lenniük, csak úgy működik. Ez egy segéd táblázat, a lap bármelyik részén lehet, itt nem a formázás a lényeg.
-
Anor
csendes tag
excel 2007-ben meg lehet oldani programozás nélkül a következőt?
adott 5 cella benne a köv. adatokkal: 1 2 3 4 5 - ezekből a legnagyobb kiválasztása - ez eddig megy az eredmény 5 de ha 4 és 5 cellaszíne más akkor azokat hagyja figyelmen kívül és a maradékból válassza ki a legnagyobbat vagyis ebben az esetben a 3-at

-
CSorBA
őstag
Sziasztok!
Látom elég profin nyomjátok, így hátha kapok egy egyszerű kérdésre választ. Sajnos nem találtam meg, mivel nem is igazán tudtam, hogy milyen szavakkal kereshetnék rá itt a topicban..Szóval van egy adathalmazos táblám, és ugye van a legfelső sor, amibe beleírtam az oszlopok neveit.. Azt szeretném, hogy ez a sor ne gördülődjön, hanem mindig maradjon legfelül. 2007es verzióm van.
köszönöm a segítséget

-
Delila_1
veterán
válasz
RoyalFlush
#3846
üzenetére
Nézz rá a #3850 és #3851-es hozzászólásokra.
-
Delila_1
veterán
válasz
Fehér Mancs
#3850
üzenetére
Teljesen igazad van. [Itt a minta]
Az utolsó paraméter az fkeresnél 1, vagy IGAZ is lehet. -
Fehér Mancs
tag
válasz
RoyalFlush
#3846
üzenetére
Sziasztok,
Ilyen jellegű problémára ad megoldást az FKERES/VLOOKUP függvény is, ráadásul sokkal átláthatóbban, a kezelése/karbantartása is sokkal egyszerűbb. A lényeg, hogy előzetesen le kell gyártani a paramétertáblát, a függvény utolsó értéke pedig 1 kell, hogy legyen, így intervallumokban keres.
-
Delila_1
veterán
válasz
RoyalFlush
#3848
üzenetére
Lássuk a konkrét feladatot!
-
RoyalFlush
őstag
válasz
Delila_1
#3847
üzenetére
Teljesen képben vagyok ezzel kapcsolatban
Felajánlottam barátnőm apukájának, hogy megpróbálok neki segíteni egy két dologban. Vannak dolgok, amiket viszont én se nagyon tudok.Nem tudom azt pl. meg lehet e valósítani, hogy:
- van egy függvény,
- kiszámolok képlettel egy értéket,
- odatesz egy (valamilyen színű) pontot a függvény görbéjére, ahol ez az érték található rajta.Ilyet meg lehet az Excellel oldani?
Konkrétumot is mutatok, ha nem érthető mit szeretnék vagy segít valamit. -
Delila_1
veterán
válasz
RoyalFlush
#3846
üzenetére
Arról van szó, amit privátban beszéltünk meg (hogy max. 7 feltételt tud ellenőrizni a munkalap függvény).
Az ötlet jó, hogy szétszeded a 8, vagy több feltételt. -
RoyalFlush
őstag
válasz
Delila_1
#3845
üzenetére
Köszi szépen.
A pü-s dolgot úgy oldottam meg, hogy két különböző cellába íratom az eredményt. Vagy egyikbe, vagy másikba kerül valami szöveg.Egyik cella:
=HA(H1357<60;"ENERGIATAKARÉKOS";HA(ÉS(H1357>=60;H1357<=90);"KÖVETELMÉNYEKNÉL JOBB";HA(ÉS(H1357>90;H1357<=100);"KÖVETELMÉNYEKNEK MEGFELELŐ";HA(ÉS(H1357>100;H1357<=120);"KÖVETELMÉNYT MEGKÖZELÍTŐ";HA(ÉS(H1357>120;H1357<=150);"ÁTLAGOSNÁL JOBB";HA(ÉS(H1357>150;H1357<=190);"ÁTLAGOS";HA(ÉS(H1357>190;H1357<=250);"ÁTLAGOST MEGKÖZELÍTŐ";"")))))))
Másik cella:
=HA(ÉS(H1357>=251;H1357<=340);"GYENGE";HA(H1357>=340;"ROSSZ";""))
-
Delila_1
veterán
válasz
RoyalFlush
#3843
üzenetére
=HA(H1<60;"ENERGIATAKARÉKOS";HA(ÉS(H1>=60;H1<=90);"KÖVETELMÉNYEKNÉL JOBB";HA(ÉS(H1>90;H1<=100);"KÖVETELMÉNYEKNEK MEGFELELŐ";HA(ÉS(H1>100;H1<=120);"KÖVETELMÉNYT MEGKÖZELÍTŐ";HA(ÉS(H1>120;H1<=150);"ÁTLAGOSNÁL JOBB";HA(ÉS(H1>150;H1<=190);"ÁTLAGOS";HA(ÉS(H1>190;H1<=230);"ÁTLAGOST MEGKÖZELÍTŐ";"POCSÉK")))))))
A H1-eket írd át a csere funkcióval H1357-re.
Szerk: ezt jól összetörte a sorkiegyenlítés

-
Delila_1
veterán
válasz
RoyalFlush
#3843
üzenetére
Nézd meg jobban az ÉS függvény szintaktikákát az előző példában, és a többi mennyiségre is úgy alkalmazd.
és(h1357>=150;h1357<=190) -
RoyalFlush
őstag
válasz
Delila_1
#3842
üzenetére
=HA(ÉS(H1357<60);"ENERGIATAKARÉKOS";HA(ÉS(90>=H1357>=60);"KÖVETELMÉNYEKNÉL JOBB";HA(ÉS(100>=H1357>90);"KÖVETELMÉNYEKNEK MEGFELELŐ";HA(ÉS(120>=H1357>100);"KÖVETELMÉNYT MEGKÖZELÍTŐ";HA(ÉS(150>=H1357>120);"ÁTLAGOSNÁL JOBB";HA(ÉS(190>=H1357>150);"ÁTLAGOS";HA(ÉS(230>=H1357>190);"ÁTLAGOST MEGKÖZELÍTŐ";)))))))
H1357 mezőben az van, hogy 140. Azt hozza ki, hogy: KÖVETELMÉNYEKNÉL JOBB
Pedig azt kellene, hogy ÁTLAGOSNÁL JOBB. -
Delila_1
veterán
válasz
RoyalFlush
#3841
üzenetére
=ha(és(h1357>=150;h1357<=190);"átlagos"; ...
-
RoyalFlush
őstag
Sziasztok!
=HA(H1357<60;"ENERGIATAKARÉKOS";HA(90>=H1357>=60;"KÖVETELMÉNYEKNÉL JOBB";HA(100>=H1357>=90;"KÖVETELMÉNYEKNEK MEGFELELŐ";HA(120>=H1357>=100;"KÖVETELMÉNYT MEGKÖZELÍTŐ";HA(150>=H1357>=120;"ÁTLAGOSNÁL JOBB";HA(190>=H1357>=150;"ÁTLAGOS";HA(230>=H1357>=190;"ÁTLAGOST MEGKÖZELÍTŐ";)))))))
Ha így adom meg a feltételt, nem kapok helyes eredményt a megfelelő cellában.
Ha az érték tegyük fel 190 és 150 közé esik, nem a megadott szöveg (ÁTLAGOS) fog megjelenni.Hogyan lehetne úgy megoldani, hogy helyes érték jelenjen meg?
Előre is köszönöm a segítségeteket!
-
Oly
őstag
Megkaptam a reggeli Vajas kifllit!
köszönöm szépen.
Eddig egy hibát találtam benne:
- KK H cikkszámnál nem listázza ki az összes tulajdonságot.Gondolom azt nem tartana sokból megoldani, hogy a makró fusson le autómatikusan, de úgy döntöttem manuálisan végzem el a feladatot.
Az összes termék esetén beírom a lehetséges tulajdonságokat.
Majd elküldöm a végterméket.
-
Oly
őstag
Hali!
Ezt szeretném elérni:
Ha beírom az egyik cellába egy termék nevét, akkor a mellette lévő cellákba egymás után listázza ki nekem egy táblázatban tárolt méreteit.
Adatok:
Példa1:
Példa2:
Egymás alá is rakhatja...

-
Delila_1
veterán
válasz
takyka77
#3822
üzenetére
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 2 And Target.Row = 3 And Target.Value > 100) _
Then MsgBox "Elérte a maximumot"
End SubEz a makró a B3 cella (Column 2, Row 3) értékét figyeli. Ha meghaladta a 100-at, akkor üzenetdobozban figyelmeztet.
A makrót a kérdéses laphoz rendeld hozzá. Lapfülön jobb klikk, kód megjelenítése. A VB szerkesztő jobb oldalán kapott üres lapra másold át, és értelemszerűen végezd el a módosításokat.
Ehelyett a feltételes formázással is ki lehet emelni a cella értékét.
-
takyka77
tag
Sziasztok!
Azt szeretném megkérdezni, hogy excelben van-e arra mód, ha egy cella (amiben egy képlet van) értéke elér egy bizonyos értéket, akkor esetleg egy messagebox-ban jelezzen?
-
Delila_1
veterán
válasz
benjoe1
#3820
üzenetére
A Selection.Offset(3.1).Select sort itt nem értem, meg szerintem a cikluson belül módosítani kellene a kijelölés helyét. Nálad működött?
Az enyémben az usor kezdetű sor felesleges, de nem árt senkinek. Előbb a ciklust az usorig vittem, aztán a módosítottban benne hagytam a szemetet. -
benjoe1
aktív tag
Sziasztok!
Sürgős segítség kellene.
Excel-ben hogyan lehet megoldani, hogy minden második sorba üres sort szúrjak be, de ne kelljen ezt manuálisan végig játszani.
Köszi
-
Oly
őstag
válasz
Delila_1
#3813
üzenetére
Ezzel az egymásbaágyazós dologgal már megoldottam...
=HA(HIBÁS(FKERES($A22;_classic_;2;HAMIS));HA(HIBÁS(FKERES($A22;_design_;3;HAMIS));HA(HIBÁS(FKERES($A22;_kieg_;2;HAMIS));"Béna vagy?";FKERES($A22;_kieg_;3;HAMIS));FKERES($A22;_design_;3;HAMIS));FKERES($A22;_classic_;3;HAMIS))
de azt hittem, van valami egyszerűbb megoldás.

-
Delila_1
veterán
Vegyük úgy, hogy a lapjaid neve Csoport_1, Csoport_2, és Csoport_3, a cikkszámok az A oszlopban vannak, az árak pedig B-ben.
A kereső lapon az A-ban a cikkszám, a következő háromban az ár, amit az Fkeres függvény ír be.
A B oszlop képlete:=HA(HIBÁS(FKERES($A2;Csoport_1!$A:$B;2;HAMIS));"";FKERES($A2;Csoport_1!$A:$B;2;HAMIS))
Ezt a képletet jobbra húzod a D oszlopig, és a Csoport_1-et átírod Csoport_2-re, illetve Csoport_3-ra. Ezután a 3 képletet együtt lemásolod, ameddig szükséges.
Lehetne úgy is, hogy a 3 képletet valahova messzebb teszed, mondjuk H-tól J-ig, B-be pedig =max(H2:J2)
-
Oly
őstag
Halihó!
fkeres fügvényben több munkalapon lévő táblákból szeretnék keresstetni. Lehetséges ez?
Konkrétabban: Adott 3 féle termékcsoport, 3 külön munkalapon. A 4. munkalapon viszont egy fkeressel szeretném elérni, hogy a megadott cikkszám alapján megtalálja az árat. Minden terméknek egyedi azonosítója van, csak így szeretném csoportosítani őket.
-
sanyixXx
senior tag
hali
van egy sok oszlopos és soros munkafüzetem/névsorom. az utolsó oszlop jelöli, hogy az adott sorban lévő ember részt kíván -e venni egy rendezvényen. megoldható valahogy, hogy az utolsó oszlopban beikszelt embereket a névsor elejére rendezzem, az a nélkülieket meg a végére?
előre is köszi!
-
Svájcinéger
őstag
Hali ! Van két munkafüzetem (A) és (B), és van egy oszlopom, amelynek adatai megtalálhatóak mindkét munkafüzetben. Ez így elég gagyin van megfogalmazva.
Szóval. Az egyik munkafüzet (B) adott oszlopainak tartalmát FKERES-sel már sikerült megjelenítenem a másik munkafüzetben (A-ban). De az a baj, hogy a közös adat néhány esetben többször szerepel a (B) munkafüzetben, és az FKERES csak az első találatot hozzá át, pedig nekem azokra az adatokra is szükségem lenne. Hogy tudnám azokat az adatokat is áthozni (A) munkafüzetbe ? Érti valaki mit is akarok ? -
LifestyleX07
csendes tag
válasz
elmoraan (r)
#3801
üzenetére
Ok, köszi...de te lagalább megértetted mit akartam...

-
elmoraan (r)
aktív tag
válasz
elmoraan (r)
#3800
üzenetére
Hopp, azt hiszem tévedtem, mert a Form esetében csak 25 karaktert lehet beírni egy-egy sorba, és a Te dokumentumodban meg jóval több van... Ha jól dereng, akkor a ComboBox tud valami ilyesmit, de azt nem ismerem, meg VB kódokkal kell abban már játszani...
Ránézek arra is, de nem ígérem, hogy tudok segíteni... Talán betéved egy VB guru a topikba.
Új hozzászólás Aktív témák
- Gamer PC-Számíógép! Csere-Beszámítás! I7 13700F / RTX 4070Ti Super 16GB OC / 32GB DDR5 / 1TB SSD
- BESZÁMÍTÁS! MSI B450M R5 4650G 16GB DDR4 500GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA 600W
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Apple iPhone 11 64GB Kártyafüggetlen 1év Garanciával
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi








![;]](http://cdn.rios.hu/dl/s/v1.gif)



Fferi50
