Microsoft Excel topic - PROHARDVER! Hozzászólások

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

PROHARDVER!

Frissítve: 2023-11-13 08:31 Téma összefoglaló

PROHARDVER!

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

Fire/SOUL/CD félisten

2012-01-25 11:22:14 #12700

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz poffsoft üzenetére #12698

Bocs, hülyeséget írtam. Most, hogy megittam a liter kávémat és újra ránéztem, megvilágosodtam a feketétől.
Szóval nem FormulaArray (miért is tömbképletet írtam..) csak Formula a Value helyett...

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Fire/SOUL/CD félisten

2012-01-25 10:50:00 #12699

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz poffsoft üzenetére #12698

Képletet nem Value-val viszünk be, hanem FormulaArray-el, pl ahogy itt is láthatod.
(Már ha jól értem, hogy mit is szeretnél, mert nem olvastam el az összes HSZ-od...)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
poffsoft veterán

2012-01-25 09:17:38 #12698

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz Delila_1 üzenetére #12696

kipróbáltam,
Run-time error 1004
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value MyFormul$ = Right(MyFormul$, Len(MyFormul$) - 1) ThisWorkbook.Sheets(1).Activate Range("AM20").Value = "=" & MyFormul$
K10 tartalma : '=A10+B10

[ Szerkesztve ]
poffsoft veterán

2012-01-25 08:50:57 #12697

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz Delila_1 üzenetére #12696

A
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
és a
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Text
értéke között van különbség ? Esetleg ez nem nyeli le magától az aposztrofot?

[ Szerkesztve ]
Delila_1 veterán

2012-01-25 08:10:32 #12696

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz poffsoft üzenetére #12695

Nincs mit.

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

2012-01-25 08:08:53 #12695

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz Delila_1 üzenetére #12692

Köszönöm!
Ez új probléma, eredetileg te válaszoltál a beosztásos kérdésemre, azért neked címeztem (meg azért, mert te voltál utoljára aktív a topikban ).
Viszont azt már látom, lesznek kérdéseim még bőven

[ Szerkesztve ]
Delila_1 veterán

2012-01-25 08:02:25 #12694

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz MZsoltee üzenetére #12690

Megadod pl. a D1 cellában a tetszőleges dátum évét, az E1-ben a hónapját.
A C2 képlete: =(DÁTUM($D$1;$E$1;1)-DÁTUM(A2;B2;1))/365
A képlet általános cellaformátumnál egy tizedes törtet ad, amit kedved szerint formázhatsz a tizedesek száma szerint.

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

2012-01-25 07:54:48 #12693

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz háma üzenetére #12691

... és sikerült tovább lépned a programozásban.

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

2012-01-25 07:53:37 #12692

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz poffsoft üzenetére #12685

Azt hiszem, rosszul címezted a kérdést. A változók elnevezéséből úgy látom, Fire foglalkozott a kérdéseddel. Visszalapoztam pár napot, de nem találtam az eredetit.
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
MyFormul$=Right(MyFormul$, Len(MyFormul$)-1)
Így levághatod a kezdő aposztrófot.
Másik lapra állás: Sheets("Másik").Select
Kijelölés megszüntetése másolás után: Application.CutCopyMode = False
B20-ra állás: Range("B20").Select

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

2012-01-24 23:30:11 #12691

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

háma

csendes tag

válasz Delila_1 üzenetére #12684

Szia.
Sikerült beillesztenem a táblázatomba.
Az eredeti feladat az volt, hogy x db munkalapból, y db oszlopból, 8 meghatározott munkalapra fűzzön össze adatokat. Az alap kóddal amit megadtál sikerült megcsinálni.
Még egyszer respect.
MZsoltee veterán

2012-01-24 20:07:10 #12690

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

MZsoltee

veterán

Sziasztok a következő problémám lenne!
Adott az "A" oszlop melyben a születési évek vannak valamint adott a "B" oszlop amiben a hónapok.
Ki kéne tudnom számolni egy tetszőleges dátumtól való eltérésüket. (Mondjuk mennyi idősek voltak tavaly nyáron)
Tudnátok ebben segíteni?
Üdv

A tökéletes nő süketnéma, nimfomániás, és az apjának kocsmája van.
bozsozso őstag

2012-01-24 19:32:42 #12689

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12688

Ok megpróbálom ezt is. Köszönöm.
Fire/SOUL/CD félisten

2012-01-24 19:06:44 #12688

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz bozsozso üzenetére #12687

Hát valami biztosan átkonvertálja a dátum formátumot, nyilván ez tény. Ha nem az OS, akkor csak a Word lehet. Indítsd el azt a Word-ot és manuálisan szúrj be egy dátumot Beszúrás/Dátum és idő és akkor meg kell jelennie egy ablaknak, hogy milyen formátumban, milyen nyelvnek megfelelően tegye. Add meg amit kell és kell lennie alapértelmezett gombnak is, azon katt.
Ha ezek után is gond lesz, akkor már passzolom.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
bozsozso őstag

2012-01-24 18:16:37 #12687

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12677

Hát megnéztem mégegyszer, de a területi beállításoknál is rendben találtam mindent valamint ezzel a módosítással sem jó.
dellfanboy őstag

2012-01-24 13:17:44 #12686

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

dellfanboy

őstag

2007-es excel-em van. a fekete szürke kék trión kívűl lehet valahogy más színsémát választani? ha igen, hogy?

juhÉÉÉ
poffsoft veterán

2012-01-24 12:20:52 #12685

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz Delila_1 üzenetére #12684

Megint egy kis problémám lenne:
Az Éves!K10 cella string-ben tartalmazza a szükséges képletet,
'=A10+B11
tehát elvileg a MyFormul$-nek magának a formulának kell lennie, mégis hibaüzenetet kapok rá.
Mi a hiba? És mi a megoldás? Vagyis a value-t hogyan tudom formula-vá konvertálni? Esetleg a legelső aposztrof okozza a hibát a cellában?
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value ThisWorkbook.Sheets(1).Activate Range("AM20").Formula = MyFormul$
Ja, és ahhoz, hogy egy lapon kijelöljek, másoljak tartományokat, mindenképpen aktiválnom kell azt a lapot ( pillanatnyilag az !Éves lapon nyomógombbal hívom meg ezt a másoló sub-ot, és nem tetszik, hogy végiglapozza az évet...)?
Más:
Ha egy lapon végeztem (copy-paste makróból) és azt szeretném, hogy ne maradjon kijelölve semmi, és a B20 cellára álljon a kurzor( meg a lapgörgetések is teljesen fent és balra, vagyis az ablak tetején az A1 cella látszódjon), azt milyen utasítással lehet elérni?
Köszi

[ Szerkesztve ]
Delila_1 veterán

2012-01-24 08:29:27 #12684

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz háma üzenetére #12682

Nem sokat változtattam az előzőhöz képest. Csupán a Select Case ... End Select többirányú elágazásban adtam meg a lap nevét attól függően, hogy a 3 oszlop (C–E) közül melyikbe vittél be értéket, vagy töröltél egy előzőt.

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

2012-01-24 08:15:06 #12683

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz bozsozso üzenetére #12672

Esetleg a Word alapértelmezése van átállítva azon az egy gépen, vagy egyedi sablon beállítva az új dokumentumnak.

[ Szerkesztve ]
háma csendes tag

2012-01-23 23:07:56 #12682

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

háma

csendes tag

válasz Delila_1 üzenetére #12671

Köszönöm szépen.
Ezzel megint elleszek egy darabig míg megfejtem mi micsoda és hova.
Mármint beadaptálni az én táblázatomba.
Marci.
bozsozso őstag

2012-01-23 20:58:19 #12681

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12680

Hát sajnos azt a választ kaptam amit vártam. Azért köszönöm.
Fire/SOUL/CD félisten

2012-01-23 20:52:53 #12680

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz bozsozso üzenetére #12679

Legjobb tudomásom szerint nem, csak ilyen trükkel, de az már nem cella lesz.
(textbox, Shape vagy Word objektum használatával)
UI: Esetleg valami makróvarázslás lehetséges, de ezt sosem próbáltam.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
bozsozso őstag

2012-01-23 20:39:12 #12679

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

Lemaradtam a szerkesztésről, de más,
1 cellában lehet valahogyan alkalmazni több hiperhivatkozást?
bozsozso őstag

2012-01-23 20:31:11 #12678

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12677

Ok köszönöm szépen ezt is ki fogom próbálni. Mindenképpen visszajelzek mire jutottam.
Fire/SOUL/CD félisten

2012-01-23 20:27:04 #12677

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz bozsozso üzenetére #12676

Még annyi lehetőség felötlött bennem, hogy ne pontot használj elválasztónak, hanem pl kötőjelet (de lehetne per jel, vissza-per jel, vagy akár # is)
WorksheetFunction.Text(Cells(sor, 9), "yyyy-mmmm-d")

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
bozsozso őstag

2012-01-23 20:23:15 #12676

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12675

Jól látod tőled kaptam ezt a megldást. Holnap melóhelyen kipróbálom ha macskaköröm közé teszem a dátumot, de most itthonról nem tudom kipróbálni. Bár ez tényleg csak a próba kedvéért nézem meg, mert annyiból halott ötlet, hogy pont ezt a táblázatot tölti fel a felhasználó adatokkal és onnan kell nekem a word doksi.
Fire/SOUL/CD félisten

2012-01-23 20:13:12 #12675

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz bozsozso üzenetére #12674

Értem. Mondjuk már az is érdekes, hogy szöveggé van alakítva (nem Én adtam ezt a megoldást? ) és mégis átalakítja. Azt nem tudom, hogy járható út lehetne-e, de csak a próba kedvéért, tedd macskakörmök közé. Akkor is átalakítja?
(Erre gondolok: "1234.12. 12:")

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
bozsozso őstag

2012-01-23 20:09:09 #12674

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Fire/SOUL/CD üzenetére #12673

Egy hálózaton belül egy rendszert használunk. Területi beállításokat néztem az rendben van.
Mindkét gépen win2000 (nem kell nevetni) valamint office 2003 van
Fire/SOUL/CD félisten

2012-01-23 19:59:49 #12673

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz bozsozso üzenetére #12672

A másik gépen az OS területi beállításait(terület és nyelv) nézd meg, ott lehet a dátum formátum megváltoztatva (és lehet, hogy nem csak az, hanem pénznem stb stb)
Arra viszont ügyelj, hogy ez globális jellegű beállítás. Ha a másik OS alatt esetleg adatbázis-kezelő alkalmazásokat is futtatnak, akkor lehet, hogy nem véletlenül mások a területi beállítások. Ha így lenne, akkor akár az adatbázis progi működését is felboríthatod.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
bozsozso őstag

2012-01-23 19:56:08 #12672

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

Sziasztok!
Egy kis segítség kellene excel makróban nyitok meg word dokumentumot. Az excel egy adott cellájából másolok dátumot és azt a word-be illesztem be ebben a formában: 2012.január 23. Ez működik is rendesen több gépen is, de egy 2003-as word-ben a hónapot nem magyar hanem angol nyelven illeszti be. Magyar office magyar windows . Nem találok semmi eltérést 2 gép beállításai közt, de lehet rossz helyen keresem. Milyen beállítást kellene megnéznem vagy a makrót kellene másképpen megírni? Az alábbi sorral illesztem be a dátumot a word-be:
.Selection.TypeText Text:=" " & Application.WorksheetFunction.Text(Cells(sor, 8), "yyyy.mmmm d.") & _ " - " & Application.WorksheetFunction.Text(Cells(sor, 9), "yyyy.mmmm d.")
Ha a kódból több kell akkor szóljatok.
Előre is köszönöm a segítséget.
Delila_1 veterán

2012-01-23 09:41:18 #12671

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz háma üzenetére #12670

Szia Marci!
Jó sokára jelentkeztél az újabb problémával. Itt a kibővített makró:
Private Sub Worksheet_Change(ByVal Target As Range) Dim név$, email$, sor%, usor%, oszlop As Integer, lapnév$ oszlop = Target.Column If Target.Column > 2 And Target.Column < 6 Then Select Case oszlop Case 3 lapnév$ = "Másolat_1" Case 4 lapnév$ = "Másolat_2" Case 5 lapnév$ = "Másolat_3" End Select név$ = Cells(Target.Row, 1).Value email$ = Cells(Target.Row, 2).Value usor% = Sheets(lapnév$).Range("A" & Rows.Count).End(xlUp).Row + 1 If IsEmpty(Target) Then For sor% = 2 To usor% If Sheets(lapnév$).Range("A" & sor%) = név$ And _ Sheets(lapnév$).Range("B" & sor%) = email$ Then Sheets(lapnév$).Rows(sor%).Delete Shift:=xlUp Exit Sub End If Next Else Sheets(lapnév$).Cells(usor%, 1) = név$ Sheets(lapnév$).Cells(usor%, 2) = email$ End If End If End Sub

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

2012-01-22 15:29:19 #12670

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

háma

csendes tag

válasz Delila_1 üzenetére #12444

Köszi.
Szuperül működik. De nem sikerült rájönnöm, hogyan tudom többször felhasználni.
A következőt gondolom:
1 munkalap A oszlop név, B oszlop e-mail, C oszlop választó1, D oszlop választó2, E oszlop választó3.
2 munkalap= választó1
3 munkalap= választó2
4 munkalap= választó3
Mindegy melyikbe teszek jelet, és akár többe is az alap kód működjön.
Üdv: Marci.
ng0ofy KORREKTOR

2012-01-22 12:33:45 #12669

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ng0ofy

KORREKTOR

válasz Delila_1 üzenetére #12668

Köszönöm mindkettőtöknek, a felkiáltójelet nem tudtam!
Későbbi próbálkozóknak: A szummázós megoldás nem működik valamiért libreofficeban nálam, excelben igen.
Delila_1 veterán

2012-01-22 10:31:18 #12668

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz ng0ofy üzenetére #12665

Az Array segítségével jelölheted ki az összes munkalapot, és azoknak egy bizonyos celláját.
3 lap esetén egyszerű beírni a makróba
Sheets(Array("Munka1", "Munka2", "Munka3")).Select Range("A1").Select
176 lapnál ez már kínos lenne. Inkább indíts egy makrórögzítést, állj az első lapra, majd a Shift lenyomása mellett kattints az utolsó lapra. Az így egyszerre kijelölt lapokon egy bizonyos cellára állva az összes lapon az a cella lesz kijelölve. Ha ebbe a cellába írsz valamit, akár egy képletet, minden lapon szerepelni fog. NE FELJTS EL kilépni a közös kijelölésből!
Ha egy összegző lapon összegezni, átlagolni, vagy bármilyen más műveletet akarsz végezni a többi lap azonos celláiban lévő adatokkal, egyszerűbben is megadhatod. Pl. egy cellában az összes többi lap B20 celláiból ki akarod nyerni a minimum értéket, az összegző lap képlete:
=MIN(Munka1:Munka3!B20). Természetesen a saját lapjaid nevét írd a Munka1 és Munka3 helyére.

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

2012-01-22 08:00:56 #12667

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

perfag

aktív tag

válasz ng0ofy üzenetére #12665

Úgy kell ahogy leírtad, kettőspontot az első és utolsó munkalapnév közé, felkiáltójel és cellahivatkozás.
Pl. B3-as adatok összegét akarod megadni minden munkalapról egy összesítő munkalapon (ami az első lap a munkafüzetben):
- kijelölöd az összesítő lapon a cellát,
- kattintasz a szumma jelen,
- kijelölöd a második munkalapot (pl. Andora)
- a bal alsó sarokban ott vannak a lapfülgörgető nyilak, az utolsóra ugratsz
- lenyomod a Shift-et, rákattintasz az utolsó munkalapra (pl. Zambia)
- rákattintasz a B3 cellára
- Enter
=SZUM(andora:zambia!B3)
Pisthy csendes tag

2012-01-21 23:51:45 #12666

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Pisthy

csendes tag

válasz Pisthy üzenetére #12651

Sziasztok!
Ha valakit érdekel, hogy lehet excelbe lévő képet egy userform-on lévő Imageboxban meg jeleníteni a lenti címen megtaláltam!
http://www.mrexcel.com/forum/showthread.php?t=331220
ng0ofy KORREKTOR

2012-01-21 18:44:57 #12665

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ng0ofy

KORREKTOR

All sheet hivatkozás van?
Ilyesmi kellene: all sheet.$oszlop$sor
(van egy 176 lapos (világ országai ) anyagom, minden országról ugyanazok az adatok, ugyanabban a táblázatban. Pár sort össze kellene vetni és próbálta többféleképpen hivatkozni az összes lapra egyszerre, de a libreoffice nem ismerte fel a próbálkozásaim lényegét )
maross nagyúr

2012-01-20 10:28:44 #12664

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

maross

nagyúr

Hello
Lenne egy cellam, amelyik folyamatosan frissul (tozsdei adat, egy szam), a vegso cel ebbol egy real time chart rajzolasa lenne. Ahogy olvasgattam, ehhez eloszor egy tablazatatot kell letrehozni ezekbol a folyamatosan frissitett szamokbol, es majd azt lehet kirajzoltatni. Egyelore mar ott elakadtam, hogy nem tudom a cella frissuleset se "eszrevenni", hogy lehet ezt kezelni? Belegondolva meg jobb 1 masodpercenkent megnezni az erteket, es majd azt kirajzolni.
Koszi, Maross.

eladó 100+ új/használt társasjátékom: https://tinyurl.com/tarsasjatekok
bozsozso őstag

2012-01-18 17:18:47 #12663

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

válasz Delila_1 üzenetére #12661

Ok rendben megpróbálom makró rögzítés után beilleszteni a kódba. A sortörésben meg hátha mond valaki valami okosat.
Köszönöm szépen.
Delila_1 veterán

2012-01-18 15:39:27 #12662

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Wasquez üzenetére #12659

Az A2 értékétől függően színezi a teljes sort a lenti feltételes formázás:
=ÉS($A2>=10;$A2<=30)
Itt a lényeg a $ jeleken van.

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

2012-01-18 15:36:11 #12661

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz bozsozso üzenetére #12658

A sortörés megszüntetését majd megmondja valaki más.
A címsorok ismétlése a Word 2007-ben úgy oldható meg, hogy kijelölöd a címsort, aTáblázateszközök | Elrendezés | Adatok | menüben a Címsorismétlést választod.

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

2012-01-18 14:18:42 #12660

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bugizozi

őstag

válasz Wasquez üzenetére #12659

[link]

VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
Wasquez senior tag

2012-01-18 13:20:05 #12659

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Wasquez

senior tag

Sziasztok
Van egy táblázatom, amiben van egy oszlop, amiben egy szám van, erre a számra kellene csinálnom egy feltételes formázást, hogy ha az értéke tól ig van, akkor az egész sor legyen piros.
Ezt hogyan tudom megcsinálni?
Az adott cellát be tudom feltételesen formázni, de hogyan tudok a cella színére hivatkozni a sor formázásánál?

PC
bozsozso őstag

2012-01-18 09:40:45 #12658

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

bozsozso

őstag

Sziasztok,
Az alábbi kódrészlettel illesztek be egy word dokumentumba táblázatot valamint a végén törlöm is a forrás adatokat.
Sheets("Fej").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy .Selection.PasteAndFormat wdFormatOriginalFormatting Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("J1").ClearContents Sheets("Fő").Select
A problémám az lenne, hogy ha a táblázat átcsúszik egy következő lapra akkor esetlegesen megtöri a cellákat és úgy folytatódik a következő oldalon. Ezt el lehet kerülni valahogy? Esetlegesen úgy kezdve a következő oldalt, hogy a forrás 1. sorával kezdjen? Így a táblázat oszlop nevei is minden oldalon látszódnának.
Előre is köszönöm a segítséget.
poffsoft veterán

2012-01-17 13:03:18 #12657

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

válasz ArchElf üzenetére #12653

Köszi.
Konkrétan?

[ Szerkesztve ]
Delila_1 veterán

2012-01-17 12:54:23 #12656

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Mythunderboy üzenetére #12655

Lehet, hogy a védelem beállítása előtt tervező módban hagytad a vezérlőt.

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

2012-01-16 10:32:55 #12655

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Mythunderboy

csendes tag

Sziasztok!
Tudna valaki segíteni,hogy az Active x vezérlő lapvédelem alatt is működjön? Mert nekem nem engedi
Köszi

Spacesynth 4 ever!
Songo senior tag

2012-01-16 09:32:13 #12654

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Songo

senior tag

válasz perfag üzenetére #12652

köszönöm átnézem
ArchElf addikt

2012-01-16 09:01:32 #12653

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ArchElf

addikt

válasz poffsoft üzenetére #12646

Nem kell makró, megoldható concat, len, fkeres függvényekkel (vagy egyszerű hivatkozásokkal, ha a rövidítések olyan sorrendben vannak, mint a nevek).
AE

Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
perfag aktív tag

2012-01-15 22:25:37 #12652

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

perfag

aktív tag

válasz Songo üzenetére #12648

Az angol megy?
Create a Pivot Table from Data on Different Sheets és Create Excel Pivot Table from Multiple Sheets és Consolidate multiple worksheets into one PivotTable report - ennek kell, hogy legyen magyar verziója is.
Pisthy csendes tag

2012-01-15 20:39:22 #12651

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Pisthy

csendes tag

Sziasztok!
Szeretném megkérdezni tudja e valaki, hogy lehet egy excel táblában lévő képet visszaolvasni egy form-on lévő imagebox-ba.
Már próbálkoztam Image1.Picture = ActiveSheet.Pictures("Név") nem sikerült.
Előre is köszi a segítséget!
Fire/SOUL/CD félisten

2012-01-15 19:51:10 #12650

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Fire/SOUL/CD

félisten

válasz Viktor89 üzenetére #12649

Nem lehet. Max annyit tehetsz (már ha ez nem fog bekavarni, mert pl függvények hivatkoznak a cellá(k)ra), hogy összevonsz több cellát és több sorban írod be az értékeket.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Viktor89 aktív tag

2012-01-15 19:44:50 #12649

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Viktor89

aktív tag

Sziasztok!
Két egymásmelletti oszlopnak lehet egymástól eltérő sormagasságot beállítani? Ha igen hogyan? Sehogy nem tudtam,csak együt a kettőt.
Songo senior tag

2012-01-14 16:34:58 #12648

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Songo

senior tag

Sziasztok
1 kis segítséget szeretnék kérni
adott egy 2007-es office
2 Excel táblázat 12-12 munka lappal
Ebből kellene nekem egy kimutatást csinálnom úgy hogy oszlopban elsőben a nevek másodikban az értékek.
De soha nem csináltam még ilyet és nekem egyszerre csak 1 munkalapból sikerült értéket kivennem.
Hogy tudom a 2 táblázat összes munkalapját hazsnálni forrásnak?
Minden munkalap azonos szerkezetű
Előre is köszönöm
Üdv
Delila_1 veterán

2012-01-14 14:07:31 #12647

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz motinka üzenetére #12645

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.
poffsoft veterán

2012-01-14 13:32:54 #12646

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

Erre nincs senkinek megoldása?

[ Szerkesztve ]
motinka tag

2012-01-14 13:16:54 #12645

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

motinka

tag

válasz Delila_1 üzenetére #12642

Delila, nagyon köszönöm a segítségedet, működik ahogy szerettem volna.

MoTiNka
Delila_1 veterán

2012-01-14 07:40:59 #12644

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz archen üzenetére #12643

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.
archen csendes tag

2012-01-13 21:17:26 #12643

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

archen

csendes tag

válasz Delila_1 üzenetére #12622

Köszönöm Delila, tökéletesen működik!
Delila_1 veterán

2012-01-13 16:17:38 #12642

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz motinka üzenetére #12641

Jobb, ha a teljes átírtat megint berajzolom ide.
Private Sub Worksheet_Change(ByVal Target As Range) Dim sor As Integer, usorH As Integer Dim WS2 As Worksheet, sorH, f As Boolean Application.EnableEvents = False Set WS2 = Sheets("HÓNAP") usorH = WS2.Range("A1").End(xlDown).Row sor = 2 f = False If Target.Address = "$A$2" Then If Target = "" Then Range("A2:D5000") = "" Else Range("A3:D5000") = "" For sorH = 2 To usorH If WS2.Cells(sorH, "A") = Target Then Cells(sor, "B") = WS2.Cells(sorH, "E") Cells(sor, "C") = WS2.Cells(sorH, "J") Cells(sor, "D") = WS2.Cells(sorH, "AI") sor = sor + 1 f = True End If Next If f = False Then Range("B2") = "Nincs adat erre a napra" Range("A2:D5000") = "" End If End If End If Application.EnableEvents = True End Sub

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

2012-01-13 16:00:22 #12641

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

motinka

tag

válasz Delila_1 üzenetére #12636

köszönöm Delila!
az alábbi működik:
Set WS2 = Sheets("HÓNAP")
usorH = WS2.Range("A1").End(xlDown).Row
sor = 2 f = False
tehát itt átírtam az 1-est 2-re és az első sort így nem bántja csak a 2 sortól írja az adatokat.
sajnos volna még egy problémám, a HÓNAP fülről csak 3 oszlopból hoznék át adatot, azaz csak 3 sor beírását kelle törölni.
ezt én azt gondolom itt lehetne átírni,
If f = False Then
Range("A2") = "Nincs adat erre a napra"
Range("C1:IV1").Delete
End If
de ez nem működik:
If f = False Then
Range("A2") = "Nincs adat erre a napra"
Range("B25000").Delete
End If

MoTiNka
Delila_1 veterán

2012-01-13 15:50:56 #12640

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz rroolleerr üzenetére #12639

Nincs mit.

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

2012-01-13 15:49:52 #12639

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

rroolleerr

csendes tag

válasz Delila_1 üzenetére #12638

Köszönöm szépen! Tökéletes
Delila_1 veterán

2012-01-13 15:35:12 #12638

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz rroolleerr üzenetére #12637

Ezt a makrót rendeld a lapodhoz:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target) Then _ Range("A2") = Range("A2") + Target End Sub

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

2012-01-13 15:30:58 #12637

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

rroolleerr

csendes tag

Olyan szeretnék megvalósítani, hogy van két cellám, és ezek tartalmát összeadom. Az egyiket használom értékbevitelre, a másikba pedig az összeget szeretném.
Vagyis A1+A2=A2. Ezt nem működik körkörös hivatkozás miatt.
Ha az összeget egy 3. Cellában képzem, az sem jó Én úgy akarom megoldani, hogy az A2 ben legyen az összeg, és ehhez akarnám mindig hozzáadni az A2 –s cella tartalmát. Vagyis, Vagyis, mindig A1- be írom be az új összeget. A függvénynek az A1 –s és A2 –s cellát kellene összeadnia, majd az eredményt az A2 –be letárolni. Következő bevitelkor, A2, letárolt értékhez, adja hozzá az A1 –s mező tartalmát.
Tud valaki valami jó megoldást javasolni?
A1 = ide írom, be az új értéket
A2 = itt tárolom az összeget
Delila_1 veterán

2012-01-13 11:17:01 #12636

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz motinka üzenetére #12635

Szívesen.
A For sorH = 2 To usorH kettesét írd át 1-re.
If Target.Address = "$A$1" Then helyett If Target.Address = "$A$2" Then
Rows("1:5000").Delete helyett Rows("2:5000").Delete
Rows("2:5000").Delete helyett Rows("3:5000").Delete
A lekérdezendő dátumot az A2 cellába írd be.

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

2012-01-13 11:11:57 #12635

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

motinka

tag

válasz Delila_1 üzenetére #12631

Delila, ez tökéletes, köszönöm!
Még egy apró kérdés, hogy ír a kigyűjtős fülre a 2. sortól, tehát hogy ott tudjak egy fejlécet csinálni? .

MoTiNka
Delila_1 veterán

2012-01-13 09:13:07 #12634

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Faterkam üzenetére #12632

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.
Delila_1 veterán

2012-01-13 09:12:35 #12633

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Pityke78 üzenetére #12626

Van Fejlesztőeszközök menüpontod? Ha nincs, ez a hiba.

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

2012-01-13 09:11:24 #12632

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Faterkam

addikt

válasz Delila_1 üzenetére #12630

Delila_1: Nagyon köszönöm!!!!!!!!!!!!!!!!! Szuper működik!!!

"Ha nem válaszolok PÜ-re 1 nap alatt, akkor lehet, hogy az a 5 ember között vagy, akit letiltottam a 14 év alatt!" https://tinyurl.hu/LdG3
Delila_1 veterán

2012-01-13 09:04:08 #12631

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz motinka üzenetére #12627

Valószínű, hogy a két lapodon nem egyformák a dátumokat tartalmazó oszlopok. Elképzelhető, hogy az egyiken szövegként adtad meg az értékeket, nem dátumként.
A "kigyűjtős" laphoz kell rendelned a makrót. Az elején értékadások vannak.
If Target.Address = "$A$1" Then 'ha az A1 cella változik... If Target = "" Then 'és ez üres (törölted a tartalmát) Rows("1:5000").Delete 'akkor törli a sorok előző tartalmát Else 'ha értéket vittél az A1-be... Rows("2:5000").Delete 'akkor a 2. sortól törli a régi adatokat For sorH = 2 To usorH 'végig megy a Hónap lap A oszlopán If WS2.Cells(sorH, "A") = Target Then 'ha ez azonos az 1. lapra bevitt értékkel ... Cells(sor, "B") = WS2.Cells(sorH, "E") 'az 1. lap akt. sorába másol Cells(sor, "C") = WS2.Cells(sorH, "J") Cells(sor, "D") = WS2.Cells(sorH, "AI") sor = sor + 1 f = True 'ez egy figyelő, ha volt egyezés, True-ra vált End If Next If f = False Then 'ha nem volt egyezés, Range("B1") = "Nincs adat erre a napra" 'ezt írja az 1. lap B1-be Range("C1:IV1").Delete 'törli az előző C1:IV1 tartomány tartalmát End If End If End If

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

2012-01-13 08:52:48 #12630

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Faterkam üzenetére #12629

Adj érvényesítést a cellákba, ami csak ennek a két karakternek a bevitelét engedi meg, akkor nincs szükség a feltételt tartalmazó cellára.
Adatok | Érvényesítés. Megengedve: Lista, Forrás: E;B

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

2012-01-13 08:32:21 #12629

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Faterkam

addikt

Sziasztok!
Kellene egy kis segítség. Van egy teszt táblázat és azt szertném, hogy a válaszba csak a két betű közül lehessen beírni egyet. Tehát a C4 vagy E vagy B. Alá a C/-ba a HA függvénnyel meg kiírja hogy ok. De beírtam, hogy =HA(c4=e,b;"ok";"Rossz válasz")
Nem vagyok egy nagy ász, ez így nem jó. Valakinek ötlete?
Előre is köszönöm!
[link]

"Ha nem válaszolok PÜ-re 1 nap alatt, akkor lehet, hogy az a 5 ember között vagy, akit letiltottam a 14 év alatt!" https://tinyurl.hu/LdG3
csferke senior tag

2012-01-13 07:30:16 #12628

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

csferke

senior tag

válasz Delila_1 üzenetére #12616

Delila_1,
valóban nem voltam elég figyelmes a K2 és K3-as cellák képlete valóban kielégítő, fölösleges tovább bonyolítani.
köszönöm
motinka tag

2012-01-12 22:33:21 #12627

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

motinka

tag

válasz Delila_1 üzenetére #12613

Delila,
köszönöm a megoldást, most próbálgatom, egyelőre nem működik.
Elmagyaráznád hogy melyik sor mit csinál?
Jelenleg annyi működik, hogy amikor beírom a dátumot az A1 cellába, beírja a B1-be hogy "Nincs adat erre a napra" és minden mást letakarít ezen a "kigyüjtés" nevű fülön.
Ha jól értettelek ehhez mondtad hogy rendeljem a makrót.

MoTiNka
Pityke78 őstag

2012-01-12 20:24:03 #12626

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Pityke78

őstag

Eltűnt az excelemből az egyéni makróim.
Ráadásul nem is tudok egyéni makrót menteni, mert az írja ki, hogy "Az indítókönyvtárban lévő Egyéni makró-munkafüzetnek nyitva kell lennie a rögzítéshez."
Ezt hogy tudom megtenni, vagy hova tűntek az egyéni makróim?
Köszi
poffsoft veterán

2012-01-12 13:05:39 #12625

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

poffsoft

veterán

Üdv!
A beosztásos problémámhoz lenne újabb makróra szükségem:
A G8:AH49 táblában oszloponként meg kellene keresni a pontosan az "o" betűt tartalmazó cellákat. Ha talál ilyet, akkor az adott sor "C" oszlopában lévő névhez tartozó rövidítést kellene az adott oszlop 60-dik sorába beírni. Ha van még egy "o" az oszlopban, akkor az ahhoz tartozót a 61. sorba, és így tovább, max 6 előfordulás lehet.
Az adott névhez tartozó rövidítés viszont nem az aktuális lapon, hanem az "Éves" lapon az A1746 tartományban van, ahol ha a név az A17 cellában van, a hozzá tartozó rövidítés a K17-ben, ha a B17 cellában van a név, akkor az L17-ben a rövidítés.
Remélem érthetően írtam le

[ Szerkesztve ]
Delila_1 veterán

2012-01-12 12:56:12 #12624

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz amdk7 üzenetére #12623

Nincs mit.

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

2012-01-12 12:53:03 #12623

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

amdk7

aktív tag

válasz Delila_1 üzenetére #12620

Köszönöm, müködik!

Adataimat többé kevésbé az adatlapomon, illetve a személyigazolványomban találod meg. :)
Delila_1 veterán

2012-01-12 12:31:32 #12622

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz archen üzenetére #12621

Sub Tartalom() Dim sor As Integer, oszlop As Integer, uoszlop As Integer, Tartalom As String uoszlop = Selection.Column - 1 sor = Selection.Row For oszlop = 1 To uoszlop Tartalom = Tartalom & Cells(sor, oszlop) & "," Next Selection = Left(Tartalom, Len(Tartalom) - 1) End Sub

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

2012-01-12 12:17:46 #12621

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

archen

csendes tag

Sziasztok, megint elakadtam
A " & esc(Str(.Cells(rowctr, i).Value)) & " kifejezésnél szeretnék segítséget kérni.
Egy olyan makróra lenne szükségem, ami egy tetszőleges excel cellába felsorolná ennek az 1-től i-ig terjedő alakjait (vesszővel elválasztva), pl i=3 esetén ez lenne a cella tartalma:
" & esc(Str(.Cells(rowctr, 1).Value)) & "," & esc(Str(.Cells(rowctr, 2).Value)) & "," & esc(Str(.Cells(rowctr, 3).Value)) & "
előre is köszönöm! =)
-Rics
Delila_1 veterán

2012-01-12 12:10:15 #12620

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Delila_1 üzenetére #12619

Hát ez hogy ment el kétszer?!

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

2012-01-12 12:08:53 #12619

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz amdk7 üzenetére #12617

=IF(COUNTA(V12:V50)=0,"",IF(COUNTIF(V12:V50,"Nem felelt meg")>0,"Nem felelt meg","Megfelelt"))

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

2012-01-12 12:08:52 #12618

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz amdk7 üzenetére #12617

=IF(COUNTA(V12:V50)=0,"",IF(COUNTIF(V12:V50,"Nem felelt meg")>0,"Nem felelt meg","Megfelelt"))

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

2012-01-12 11:46:54 #12617

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

amdk7

aktív tag

Újabb kérdés merült fel.
Egy oszlopot cellatartományt kellene vizsgálni: V12:V50
Három dolog szerepelhet benne:
"megfelelt"
"Nem felelt meg"
""
Ha talál a tartományban egyetlenegy "Nem felelt meg"-et, akkor írja ki, hogy: Nem felelt meg különben megfelelt.
Értelemszerüen ha nincs a tartományba írva semmi, akkor ne írjon semmit.
UI.: Angol office, de jöhet magyarul is, legfeljebb megfejtem.
Előre is köszöntem.

Adataimat többé kevésbé az adatlapomon, illetve a személyigazolványomban találod meg. :)
Delila_1 veterán

2012-01-12 09:26:39 #12616

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz csferke üzenetére #12614

Nem nézted meg a csatolt képet, pedig ott a K2 és K3 cella éppen azt tartalmazza, amit kértél.
Amit most írsz, körkörös hivatkozást eredményezne. Az A1 cellában akarod megjeleníteni azt az adatot, amit a VLOOKUP az A oszlopban talál.
Tettem az első sorba (A:D) egy autoszűrőt, a G oszlopba pedig egy összefűzést (=A2&" "&D2)
Az érvényesítésben (I1 cella) forrásként a $G$2:$G$6 tartományt adtam meg, mert a 2:6 sorokba írtam adatokat. Az I1-ben történő kiválasztás után az autoszűrő a választás szerint szűri az A:D tartományt. Az I1 törlése esetén minden sor látszik.
Nem írtad, hogy az A és D oszlopok közül melyik tartalmazza a város, ill. a cég nevét, ezért 2 makrót írtam. A megfelelőt rendeld a lapodhoz.
Private Sub Worksheet_Change(ByVal Target As Range) 'Város=D oszlop, Cég=A oszlop Dim betu%, krit If Target.Address = "$I$1" Then If IsEmpty(Target) Then Selection.AutoFilter Field:=1 Exit Sub Else Range("A1").Select For betu% = Len(Target) To 1 Step -1 If Mid(Target, betu%, 1) = " " Then krit = Left(Target, betu% - 1) Exit For End If Next End If Selection.AutoFilter Field:=1, Criteria1:=krit End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) 'Város=A oszlop, Cég=D oszlop Dim betu%, krit If Target.Address = "$I$1" Then If IsEmpty(Target) Then Selection.AutoFilter Field:=4 Exit Sub Else Range("A1").Select For betu% = 1 To Len(Target) If Mid(Target, betu%, 1) = " " Then krit = Right(Target, Len(Target) - betu%) Range("J2") = krit Exit For End If Next End If Selection.AutoFilter Field:=4, Criteria1:=krit End If End Sub

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

2012-01-12 08:18:03 #12615

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

amdk7

aktív tag

válasz Fire/SOUL/CD üzenetére #12593

Szia,
Persze, egyébként is kimutatás lenne belőle, csak ott akadtam el, hogy a hónapokra jellemző százalékot, hogy írassam ki.
Mert ugye ha sorokra (hó.nap.) kiszámolgatom, és azokat összegzem, nem ugyanaz, mint ha az adott hó összes hibáját elosztom az adott hó vizsgált darabszámaival.
De ha van egyszerü megoldás...
mindenre nyitott vagyok.

Adataimat többé kevésbé az adatlapomon, illetve a személyigazolványomban találod meg. :)
csferke senior tag

2012-01-12 08:17:59 #12614

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

csferke

senior tag

válasz Delila_1 üzenetére #12550

Szia Delila_1!
Pár napig nem követtem a fórumot de most ott folytatnám ahol abbahagytuk.
#12549-ben feltett kérdésemre:
Lehetséges-e a legördülő listában, hogy 2 nem egymás melletti oszlop (A, D) tartalma jelenjen meg?
#12550-ben válaszoltál is csak én nem igazán arra gondoltam.
Tehát CSAK a legördülő menüben kellene, hogy látszódjon a 2 oszlop A és D de magában az A1 cellában mint eredmény CSAK a kiválasztott alapján az A oszlop megfelelő cellája.
Nekem olyasmi kellene mint pl. amikor ki kell egy céget választani és csak a cég neve kell, hogy szerepeljen mint eredmény de sokban megkönnyíti a kiválasztást ha pl. a város neve is szerepel a legördülőben (az adatok a városok szerint vannak rendezve)
köszi
Delila_1 veterán

2012-01-12 08:10:24 #12613

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz motinka üzenetére #12610

A kérdéses laphoz rendeld a makrót.
Private Sub Worksheet_Change(ByVal Target As Range) Dim sor As Integer, usorH As Integer Dim WS2 As Worksheet, sorH, f As Boolean Application.EnableEvents = False Set WS2 = Sheets("HÓNAP") usorH = WS2.Range("A1").End(xlDown).Row sor = 1 f = False If Target.Address = "$A$1" Then If Target = "" Then Rows("1:5000").Delete Else Rows("2:5000").Delete For sorH = 2 To usorH If WS2.Cells(sorH, "A") = Target Then Cells(sor, "B") = WS2.Cells(sorH, "E") Cells(sor, "C") = WS2.Cells(sorH, "J") Cells(sor, "D") = WS2.Cells(sorH, "AI") sor = sor + 1 f = True End If Next If f = False Then Range("B1") = "Nincs adat erre a napra" Range("C1:IV1").Delete End If End If End If Application.EnableEvents = True End Sub

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

2012-01-12 07:23:19 #12612

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz ancsi777 üzenetére #12606

Nézd meg a #6603-as kérdést, és rá a választ a #6604-ben.
Máshol is van hasonló kérdés, csak az érvényesítés, és indirekt szavakra kell keresned.

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

2012-01-12 07:21:28 #12611

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ancsi777

csendes tag

válasz m.zmrzlina üzenetére #12609

Köszönöm a segítséget!
motinka tag

2012-01-11 22:03:07 #12610

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

motinka

tag

válasz motinka üzenetére #12560

az én "kis" problémámra senki nem tud valami okosat mondani?

MoTiNka
m.zmrzlina senior tag

2012-01-11 21:26:09 #12609

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

m.zmrzlina

senior tag

válasz ancsi777 üzenetére #12608

Küldtem fájlt.
ancsi777 csendes tag

2012-01-11 20:16:02 #12608

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ancsi777

csendes tag

válasz m.zmrzlina üzenetére #12607

Van mindkettő, de a 2010 jobb lenne, mert melóhoz kell és a munkahelyemen az van.
m.zmrzlina senior tag

2012-01-11 19:21:08 #12607

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

m.zmrzlina

senior tag

válasz ancsi777 üzenetére #12606

Én tudok egy megoldást, de ahhoz Excel2007 vagy 2010 kell, és nagyon nem fogsz szeretni érte mert 19 szinten kell hozzá egymásba ágyazni a HA() fv-t.
Milyen verziót használsz?
ancsi777 csendes tag

2012-01-11 18:29:38 #12606

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ancsi777

csendes tag

Sziasztok!
Segítséget szeretnék kérni. Szeretnék olyan legördülő listákat létrehozni az excelben,amik egymástól függenek. Pl. az elsőben kiválasztható a megye pl. Zala. Ha ez kiválasztásra kerül, utána már csak a zalai településeket ajánlja fel a következő legördülő listában.
Az elsőt létre tudom hozni, csak azt nem tudom, hogy a többinek hogy álljak neki.
Köszi! Anita
Delila_1 veterán

2012-01-11 18:02:41 #12605

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Pityke78 üzenetére #12603

Tegyél ki két gombot, és rendeld hozzájuk értelemszerűen a makrókat.
A magyar az A, az angol a B oszlop helyesírását ellenőrzi.
Sub magyar() Columns(1).CheckSpelling SpellLang:=1038 End Sub Sub angol() Columns(2).CheckSpelling SpellLang:=1033 End Sub

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

2012-01-11 17:52:12 #12604

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Pityke78 üzenetére #12603

Vehetsz fel számított mezőt (azt hiszem, így hívják). Ha a két táblázat hányadosát akarod számítani, vagy 2 kimutatást készíts, és úgy számolj, vagy a mezőnevekben utalj a táblázat számára.
F7-tel indul a helyesírás ellenőrzése. A beállításoknál meg tudod adni a nyelvet.
A magyar indítása VB-ben Cells.CheckSpelling SpellLang:=1038, angolé
Cells.CheckSpelling SpellLang:=1033.

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

2012-01-11 17:47:57 #12603

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Pityke78

őstag

válasz Delila_1 üzenetére #12602

De a két adatforrást hányadosát így nem tudom jelölni diagramon, nem?
Más:
Ha excelben szeretnék mondjuk angol szótárat csinálni, akkor tudok olyat, hogy az egyik oszlopot automatikusan angol helyesírásnak megfelelően ellenőrizze, a másik oszlopot meg magyarként? Be tudom így állítani? Egyáltalán automatikus ellenőrzés van, mint a szövegszerkesztőkben?
Delila_1 veterán

2012-01-11 17:08:38 #12602

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

válasz Pityke78 üzenetére #12601

Több lapról is veheted az adatokat a kimutatásokhoz, van erre lehetőség.

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

2012-01-11 17:06:44 #12601

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Pityke78

őstag

válasz Delila_1 üzenetére #12599

Az még kevés, mert két különböző táblából kell kinyernem az adatokat és azok hányadosát ábrázolni diagramban.

Új hozzászólás Aktív témák

Hirdetés

Topikgazda

Bővebben a topikgazda rendszerről...

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek