"Mentés másként"-nél is csinálja, ha megpróbálok rámenteni. Amúgy nem mindig csinálja. Van amikor elmenti minden gond nélkül.

''Én nem süllyedek a hülyék szintjére, mert ott legyőznének a rutinjukkal''

És ez a kiterjesztés?!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok

a következő problémákra keresnék megoldást, ha valaki tud megoldást és meg is osztja velem azt nagyon megköszönöm.

- excelben kéne kombinált legördülő listát létrehoznom, értsd: van egy legördülő lista amiből kiválasztok egy értéket (eddig megy) és utána attól függően, hogy mit választok ki, ajánlja fel egy másik legördülő lista az értékeket. pl.: A1 cellába kiválasztom, hogy PC/Notebook/Minitor és attól függően hogy mit választottam, ajánlja fel a B1 cella legördülő listája, a megfelelő gyártót, mondjuk pc01, pc02, pc03, ha PC-t választottam...

- másik hasonló kérdés lenne, hogy hogyan lehet, azt megoldani, hogy ha kiválasztok egy éréket egy legördülő listában, akkor annak következtében blokkoljon bizonyos cellákat. pl.: kiválasztom az A1-ben hogy PC, akkor a C1-ben ne tudjak megadni képátmérőt, viszont, ha Monitort választok, akkor engedélyezze.

Előre is nagyon köszönöm a válaszokat
Azura

Példa:
A Munka2 lap A oszlopában felsorolod a termékeket (PC, Notebook, Monitor). Az oszlopot kijelölöd, és nevet adsz neki (Beszúrás/Név/Név megadása), legyen a név Termékek.
Ugyanezen a lapon a B oszlopba beviszed a PC típusokat (gyártókat, vagy amit akarsza PC-kről), ennek az oszlopnak a neve egyezzen meg a Termékek oszlopban található nevével, vagyis PC névvel illetsd. A következő oszlopba a következő termék adatait vidd fel, és az oszlop neve egyezzen meg a következő termékkel.

A Munka1 A1 cellájába érvényesítés kerül. Adatok/Érvényesítés. A Megengedve legördülőből a Listát választod, a Forráshoz =Termékek kerül.
A Munka1 B1-ben a forrás =INDIREKT(A1)

A második kérdésedet pontosítanod kellene. A blokkolandó cellák pontos helye, és a különböző feltételek ismerete szükséges hozzá. A cellák zárolása csak a lapvédelem bekapcsolása után hajtódik végre, de makróval meg lehet oldani, hogy valamilyen feltételtől függően más-más cellák legyenek zároltak.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Két problémám van!

1.
Van egy megformázott Excel táblázatom, amit különböző adatokkal külön (pl.:\munka\1 ;C:\munka\2 ;C:\munka\3 ;;C:\munka\4) könyvtárakba szeretnék úgy elmenteni, hogy egy választó gombbal lehessen a célkönyvtárat kiválasztani és egy adott cella értéke legyen a fájl neve!

2.

Az adatokat egy másik táblázatból veszi. Csak hogy értsétek, ez egy "recept" gyüjtemény lenne, és az alapanyagok egy külön táblázatban vannak felsorolva a kilós áraikkal! A lényeg az lenne, hogy ha a megadott cellába elkezdem beírni az egyik alapanyag nevét, akkor ajánlja fel a lehetőségeket az alapanyaglistából!

Remélem nagyjából érthető voltam!

Előre is köszönöm a segítségeteket!

Köszönöm a választ már működik is

Akkor pontosítanám a második kérdést:

Ott is legördülő menüvel kéne megoldani, hogy ha valaki kiválasztja mondjuk az a1, a2, a3... cellában, hogy hol van a telephely, akkor ha az adott telephelynek van emelete (b1), szárnya (c1) akkor ki lehessen tölteni azokat, ha nincs akkor ne.
A helyszínek legyenek mondjuk h01, h02, h03, h04, h05 és a h01-nél és a h02-nél van emelet és szárny, a többinél nincs.

Köszönöm előre is a segítséget
Azura

A 3. legördülő megengedve: =indirekt(a1&Th)

A (termék és)Th nevű listában sorolod fel a Termékek egyes tagjaihoz tartozó helyiségeket.
Jó kis képzavarral, az előbb az első terméked a PC volt. A PC-hez tartozó földszint, emelet és szuterén a PCTh nevű oszlopban lesz, a monitorhoz tartozóak pedig a MonitorTh nevezetűben.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok,

Van egy 45k soros excelem amiből ki kellene gyűjtenem azokat a sorokat amik "L1_L1" sorokat tartalmaznak. Irtam egy rövid makrót, de nagyon lassú a dolog. Valami más ötlet, hogy hogyan tudnám gyorsan kinyerni az adatokat?

Sub Macro1()

i = 9
x = 1
Do While Not (Cells(i, 1)) = ""
'xpoz = InStr(1, Cells(i, 1), "ERR-607")
xpoz = InStr(1, Cells(i, 1), "MOVE_L1_L1")
If xpoz > 1 Then
Cells(x, 3) = Cells(i, 1)
x = x + 1
End If
Loop
MsgBox "OK"
End Sub

üdv
sonar

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

köszönöm szépen a segítségeket, minden működik

Ha a keresett szövegdarabbal kezdődnek a vizsgálandó cellák, akkor talán az ABC-rendezéssel és az algoritmus kicsi átalakításával némileg gyorsítható.

illetve ha pár kiértékelést átalakítasz (de ez nem biztos, hogy gyorsít, sosem teszteltem)

pl.

meddig = 50000 ' persze ezt kiszámolni valahogy előtte, pl. darabteli()-vel
For i = 9 to meddig
If InStr(1, Cells(i, 1), "MOVE_L1_L1") > 1 Then
Cells(x, 3) = Cells(i, 1)
x = x + 1
End If
Next i

[ Szerkesztve ]

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Az elsőhöz beírod a könyvtárakat egy oszlopba úgy, hogy a végén is legyen "\" (C:\munka\3\).
A C1-ben létrehozol egy érvényesítést - lásd #6604. Az E1-be beírod a fájlnevet.

Sub Ment()
Dim ut As String
Dim FN As String

ut = Range("C1")
FN = ut & Range("E1") & ".xls"

ActiveWorkbook.SaveAs Filename:=FN, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub

Ez a makró azt csinálja, amit kértél.

A második kérdésedhez az FKERES függvényt alkalmazd.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Ennek örülök, szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Gyorsabb, ha az Excel saját keresőjét használod.
A keresőbe beviszed az L1_L1-et, és a "Listába mind" gombbal kiíratod a találatokat.
A lista tartalmát kijelölöd, és indítod az alábbi makrót:

Sub gyűjt()
Dim KövSor As Range
Set KövSor = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow
Selection.EntireRow.Copy KövSor
End Sub

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

a keresésnél van a "listába mind"? lehet, hogy ez nálam (2000-es excel) még nincs benne?

Én egyébként most az irányított szűrőt próbálom rávenni a dologra, ami elvileg tud ilyen kigyűjtést, de nem akarja az igazságot... Mármint valamiért nem jól szűr.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

A 2003-ban már van.
A soronkénti ciklusnál nagyságrenddel gyorsabb a Find, azt is lehet ciklusba foglalni.
Lekérdezed a találat sorszámát, és figyeled, hogy nem csökkent-e az előző találat sorszámához képest, mert a find az utolsó találat után kezdi a keresést a lap tetejétől.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Én nem voltam olyan biztos benne.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

na, most két lehetőség van:
1) amit itt írsz, az egy másik megoldási mód, mint amit kicsivel korábban írtál
2) ugyanaz a megoldás, viszont akkor nem értem

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Én igen

Próbáltad irányított szűrővel, ezzel egy megadott helyre lehet kiírattatni a találatokat. De nekem valamiért nem sikerült a jó megoldást kicsiholnom belőle.

A megadott feltétel:
=HA(HIBA(SZÖVEG.KERES($B$1;A5));HAMIS;SZÖVEG.KERES($B$1;A5)>=1)

ahol B1-be lehet írni a keresendő kifejezést, a lista, amiben keresni kell: A5-től indul

Sosem használtam még ezt a funkciót, a súgó alapján próbálom csinálni, de nem jó a végeredmény... Gyanítom, hogy a feltétel a rossz. Szerinted?

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Ez egy másik megoldás.
Az első gyorsabb, a másodiknál viszont megadhatod pl., hogy melyik oszlopok tartalmát akarod egy másik lapra kigyűjteni, vagy pl. a kigyűjtés helyén megadhatod azt a sorszámot a rekordoknál, ahol az eredeti helyükön előfordultak.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Másképp adtam meg: =HA(HIBÁS(SZÖVEG.KERES($B$1;A6));0;1), így működik.

Legegyszerűbb lenne az L1_L1-et autoszűrővel összegyűjteni, feltételként a "tartalmaz" opciót megadva az egyéni kategóriában.
Bár az nem derült ki, hogy csak 1 oszlopban, vagy többen fordulhat elő a keresett szöveg. Több oszlopnál már gázosabb.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

nálam valamiért erre a verzióra sem jól működik.

így néz ki:

a kimeneti tartomány D5-nél kezdődik.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

A B4 legyen "kód", a képletet pedig írd be b5-től b10-ig.
A tartomány A4:B10, a szűrőtartomány A1:A2. Helyben szűrésnél ez is elég, ha más helyre akarod szűrni, és mindegyik oszlop tartalmát meg akarod jeleníteni, akkor két egymás melletti cella helyét add meg a hova kérdéshez.

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

na igen, plusz cellával persze, de anélkül is tudnia kellene az irányított szűrőnek, nem?

(de azért köszi )

[ Szerkesztve ]

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Köszi Delila_1! Rengeteget segítettél! De a 2. kérdésemre visszatérve én is azt csináltam, az FKERES függvényt alkalmaztam, de akkor a cellába kell a pontos név megadás, ahoz, hogy hivatkozni tudjak rá! És mivelvan egy-két olyan név aminek a helyesírása, vagy a kötőjelessége nem mindíg egyértelmű, így azt szerettem volna ha az első pár betű leütése után kiadná a lehetőségeket...

De ha erre excelben nem igazán van lehetőség az sem baj! Így is sokat segítettél!

Köszönöm!

Az ir. szűrő a tartománynak azt az oszlopát szűri, amelyikhez a feltételt megadod a kritérium tartományban. Több oszlopra is adhatsz feltételt, ezek egymás mellett legyenek. Az egymás mellett lévő feltételek ÉS kapcsolatban lesznek (almafa és >3 m). Egy-egy oszlopcímhez több feltételt is adhatsz, amiket a cím alatti sorokban kell megadnod. Ezek VAGY kapcsolatúak lesznek.

Ha sok oszlop közül kevesebbnek a szűrt eredményét akarod kiíratni, a HOVA kezdősorába írd be a szűrendő tartomány oszlopcímei közül azokat, amikre szüséged van, és ez a terület legyen a hova címe.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szívesen.

Akkor tegyél be az oszlopod soraiba érvényesítést, ahova forrásként az alapanyagokat tartalmazó lista nevét adod meg. A #6604-es hozzászólásban megtalálod a névadás módját - ha nem ismernéd.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

igen-igen, ez oké. De - a súgóból kiindulva - lehet képletet is megadni. Ott azt írták, hogy vagy ne adjunk a feltételnél nevet az első sorban, vagy ha adunk is, semmiképp ne legyen azonos a lista mezőneveivel... (ezért lett nálam szöveg ill. kód)

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Még két kérdés!

1. Batch fájlt hogyan tudok futtatni excelből?
2. Egyszer régebben már sikerült, de azóta sem tudok rájönni, hogy hogyan lehet azt megcsinálni, hogy egyszerre két különböző excel táblát nyitok meg egy ikonról! Azt tudom, hogy nem a szokásos módon kell elmentenem...:S

Előre is köszike.

A personal.xls-be kell tenned egy makrót, amihez aztán tehetsz ki egy ikont az eszköztárra (ikonsorra).

sub megnyitás()
Workbooks.Open Filename:=útvonal & fájlnév_1.xls
Workbooks.Open Filename:=útvonal & fájlnév_2.xls
end sub

Az útvonal és fájlnév így nézzen ki: "C:\Munkakönyvtár\Alkönyvtár\Valami.xls"
A personal.xls-ről már többször volt szó itt a fórumon, ha nem ismered, keress rá.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok.
Nem jövök rá az istennek sem egy egyszerű feladat megoldására.
Adott egy adattábla amiben van 3 olyan oszlop amiben mondjuk termék, ár és leírás van.
Ki kéne iratnom annak a terméknek a leírását amelyiknek a legmagasabb az ára.
kell nyilván a MAX függvény meg valami IF-es lófütty, de az összekombinálásnál valamit mindig elQ-rok
Angol excel.
előre is kösz!

[ Szerkesztve ]

Abba a cellába, ahova ki akarod íratni a leírást.
A 10-ek helyett az utolsó sorod számát írd be.

=INDIRECT("C"&MATCH(MAX(B1:B10);B1:B10;0))

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi, de egyelőre ez még nem okés.

=INDIRECT("F"&MATCH(MAX(D7336);D7336;0))

itt ugye nem smileyk vannak hanem kettőspont és "D".

Ha igy irom be mint fentebb:
F oszloban vannak a termékleírások.
D7-D336 közt az árak. Akkor hibás a függvény. Nem ad vissza értéket csak általános hibaüzenete.

Annak a cellának a tartalma kell nekem az F oszlopból ahol a D oszlopban megtalálja a maximum árat a függvény.
Tehát ha D55-ben van a legmagasabb ár akkor a visszaadott szöveg az F55 cellában levő leírás kell.

[ Szerkesztve ]

Mivel nem az 1. sorban kezdődnek az adataid, a MATCH-hoz hozzá kell adnod a fölötte lévő sorok számát, 6-ot.

=INDIRECT("F"&MATCH(MAX(D7:D20);D7:D20;0)+6)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

köszi!
igy jó, a pontosvesszők(2 helyen volt) helyett azonban vesszővel működik csak.

[ Szerkesztve ]

Persze, nekem magyar Excelem van. A függvények nevét átírtam, de a ;-kről megfeledkeztem.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!
A következő problémára megoldására szeretnék segítséget kérni.
Most kezdtem itt. Bocsi, ha ismételnék, de nem olvastam végig a számos hozzászólást.
Adott egy grafikonom, melyre közelítő egyenest, görbét lehet illeszteni.
"Trendlines" Az illeszkedő görbe mellett annak egyenletét és szórásnégyzetét is meg lehet jeleníteni, a kívánt ablak kipipálásával.
Az említett adatok meg is jelennek a diagrammon.
Hogyan lehetne ezt cellába másolni, esetleg számolni az egyenletekkel?
Visual basicben így néz ki az utasítás:
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
Backward:=0, DisplayEquation:=True, DisplayRSquared:=True, Name:= _
"Lineáris").Select
Visual Basicben megadva az utasítást, méginkább megköszönném.

Üdv és köszi előre is!

Nincs szebb, mint mikor az alázat csendje zenére lázad....(LGT)

szia,

vannak erre statisztikai függvények, amelyek megadják a trend fő paramétereit.
ebből aztán bármit számolhatsz utána.

pl. TREND(), MEREDEKSÉG()

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Sziasztok!

Makrózásban tudtok segíteni?

Közben kicsit visszaolvastam, látom van itt minden.
Az volna a kérdésem, hogy VB-ben hogy kell hivatkozni excel cellára. Tehát azt hogy kell megírni, hogy HA L5<L6 akkor "esemény" egyébként "esemény".
Ill. hogy lehet írni olyan msgbox-ot aminek mondjuk van egy igen és egy nem gombja, nem-re történik semmi, igen-re pedig valamilyen esemény végrehajtódik.

Az első kérdésemre közben találtam megoldást.

Dim v As Variant 'válasz

v = MsgBox("Kérdés", vbYesNo)
If v = 7 Then Exit Sub
'ide jönnek a műveletek Igen válasz esetén

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi, működik.

Szivi, az a dolga.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Egy régebbi problémámra keresnék megoldást. Munkatársammal csináltunk egy olyan táblázatot amiben a Forma1-es pilóták eredményeit lehet rögzíteni. A táblázat alá pedig csináltunk egy összesítést, amiben lehet követni a vb állását. Ezt akkor úgy csináltuk, hogy a nagy függvénnyel kigyűjtöttük egymás alá az összpontszámokat, majd fkeres-sel mellé írattuk a neveket. Ez így működött is, egy probléma volt ezzel, hogyha két vagy több egyforma pontszámú pilóta volt, akkor az összesítő táblázatba csak az először megtalált pilótát írta be, de azt annyiszor ahány pilóta épp adott azonos pontszámmal állt. Azt már tudom, hogy makróval könnyedén meg lehetne csinálni, de vajon valamilyen függvénnyel meg lehet valahogy oldani?

[ Szerkesztve ]

tegyetek az összpontszámhoz egy korrekciós értéket:

pl: ha A1 az összpontszám, akkor =A1+sor(A1)/1000
majd a cellaformázásnál vegyétek le a tizedesjegyet (1000 helyett lehet bármi, de a lényeg, hogy a sorszám/1000 ne menjen 0,5 fölé)

így ha lesz is két pl. 5 pontos, az egyik 5,001 a másik mondjuk 5,003 lesz (bár 5-nek fog látszódni mind a kettő), viszont az fkeres külön-külön fogja kiértékelni, "kerekítés" nélkül.

persze ha abból indulok ki, hogy lehet fél pont is, akkor úgy is lehet formázni a cellát, talán nem lesz akkor sem gond a korrekcióból, legrosszabb esetben 1000 helyett 10000-t tesztek bele

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Na, ez eszünkbe sem jutott, így már jó.

Sziasztok!
Van arra vmilyen mod, hogy egy az FKERES-hez hasonloan ne a cellak tartalmat, de a cellak kitolto szineit (hatterszineit) at tudjam "varazsolni" az FKERES fuggvenyhez hasonloan egyik munkalaprol a masikban?
Koszontem

Csak a balekok alszanak [SAS]

Feltételes formázás a megoldás. 2003-as Excelben így nevezik, 2007-ben nem tom hogy hívják. (Az tuti, hogy nem "Gyere ide!")