Szia!

A userform kódlapján van a program, ami meghív egy file megnyito modult ami a folapon van. Utána dolgozik a userform progi, majd a folapon lévő másik program bezarja a filet.
1) azért van külön bontva, mert a megnyitást és bezárást több helyen is használom.
2) fontos, hogy az adatbázis minél rövidebb ideig legyen megnyitva, mert ugyanezen programot másik gépen is futtatjuk majd, és közös adatbázisba dolgoznak.

Amit javasoltál hétfőn megnézem, de elvileg ma próbáltam és teljesen meghülyült tőle az excel. De lehet, hogy rosszul csináltam, mert tobb dolgot is csináltam egyszerre (pedig erre nem vagyok kepes, szóval hibazhattam... 😀 )

Szia!
Próbáld meg a következőt:
Mielőtt elmented az adatokat, jegyezd meg, melyik az aktív control a userformon. A fájl bezárását végző makróben a bezárás után tedd a fókuszt erre a controlra:
Pl. Userform1.Textbox1.Setfocus
Ha máshol szeretnéd folytatni, akkor arra a controlra kell tenni a fókuszt, ahol a folytatás következne.
Üdv.

Nálatok sem ismeri a Térkép diagram, Pest megyét?
Van valami trükk, amivel megjeleníthetőek az adatai?

[ Szerkesztve ]

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)

Szia!
Nálam - Office365 - elég volt úgy írni, hogy Pest megye!

Üdv.

[ Szerkesztve ]

Ááá, csessze meg a Moha meg a Páfrány, köszönöm, műxik!

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)

Szia!
Igazán nincs mit. Mivel a többi megyénél ragaszkodott a hivatalos megnevezéshez, gondolom az volt a baj, hogy Budapest tartalmazza a pest szót, ezért kellett hozzá a megye.
Persze nem előszörre sikerült eltalálnom a baját.
Üdv.

Erről jut eszembe: Létezhet olyan térkép, ami a (önkormányzati/országos)választási körzeteket képes mutatni?

Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

Megfordult a fejemben, csak ugye Veszprém kapcsán (ami város és megye is egyben) el is vetettem a gondolatot, hisz azzal nincs gond. Persze így utólag belegondolva, teljesen logikus a dolog, hisz Pest az nem város, hanem Budapest városnak egy része... Még1x, thx!

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)

Szia!
Szerintem az országos választási bizottság honlapján érdemes kereskedni, illetve esetleg a választási törvény mellékleteként. De egyáltalán nem biztos, hogy digitalizálva van.
Üdv.

Ott csak pár Google maps beágyazást találtam. Ezért is kérdeztem, hogy esetleg beépítve van-e ilyesmi. Sőt lehetne gyártani hasonlót? Pl. fogok egy (utca)térképet, arra "berajzolom" a határokat, és abból készíteni egy cella társítást.

[ Szerkesztve ]

Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

Sziasztok!
Ugyan google sheets, de hátha...
Egy filter függvény által kinyert sort transzponálnék egy oszlopba, de úgy, hogy a filter első két oszlopát (transzponálva, sorát) kihagynám.
Lehet ezt így, egyáltalán? Most egy segédsorral oldom meg, aminek meghatározott területét transzponálom, de elegánsabb lenne anélkül.
Előre is köszönöm!

"Egy filter függvény által kinyert sort..."
Milyen filter függvényről van szó?

Amúgy sima szűrt sorból csak 2 lépésben lehet transzponálni, elsőre a szűrt sorokból kijelölöd a kívánt tartományt, simán copy-paste-l valahova beilleszteted, másodikra meg ezt a beillesztett tartományt tudod már transzponálni.

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)

"Milyen filter függvényről van szó?"
A google sheets FILTER függvénye. Jó kis cucc cellaérték alapú lekérdezésekhez.
=FILTER(raw_data!A:V;raw_data!A:A=X2;raw_data!B:B=W2)
Ebből az A:V oszloptól tartó sort akartam transzponálni, de csak a C:V oszlopokat. Viszont a szűrési feltételek pont a "lecsípendő" oszlopban vannak, szóval úgy hiszem szükséges a segédsor.

Köszönöm a kimerítő választ. Erre gondoltam. A táblázatokat átnézem majd.
Üdv

Sziasztok!
Powe queryvel beolvastatok egy txt fàjlt. Hiába állítom be query ben a formátumot egy bizonyos sor 2382. sortól valamiért számként tölti be a tartomànyba. Az adatokat power pivot adatbàzisba ia betöltöm ott dàtumként jelennek meg.
Ha a txt ből kitörlök pàr sort akkor nincs gond. Ha új munkalapra töltöm be akkor sincs gond. Ha a tartomàny sorait kitörlöm és a formàtumot minden cellàból törlöm akkor szintén rosszul tölti be a 2382. sortól.

Szia!
Gyakorlatilag a dátum is számként van tárolva az Excelben. A "hibásan" betöltött értékeket megformázhatod dátumként, helyes értékeket fogsz kapni.
Valószínű, hogy azon a munkalapon - (vagy a txt-ben?) - van egy "kapcsoló", ami nem engedi tovább a dátum formátumot, hiszen új munkalapon "hibátlan" a betöltés.
Üdv.

Tudod, sokszor nem a megoldás értelme a lényeg, hanem maga a megoldás, mert én rendkívül sokat szoktam tanulni belőle. A fentiekből is tanultam...

kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni

Szia!
Azt tudom, hogy számként tárolja de queryvel a formátum be van àllítva ahogy azt kell.
De miért csak egy bizonyos sorszàmtól csinálja ezt?
Azért gond a formàtum újra és újra beàllítása mert plussz kattintgatàsokat eredményez.
Hol lehet ilyet kapcsolni vajon? És azért fura mert csak bizonyos sortól csinálja ezt. Hiába törlöm az egész munkalapon (mindent töröl opcióval). Újból előhozza.

Szia!
Talán a munkalapon van olyan nem látható dolog, ami ezt előidézi.
Nézd meg légy szíves az F5 - ugrás - irányított - utolsó cella eredménye mi. Ha ez túl van az "értelmesen" használt tartományon, akkor ez lehet az esetleges oka. Ebben az esetben töröld ki a teljes sorokat a normál tartomány végétől az eddigi sorig.
A mindent töröl opció sajnos hagyhat szemetet még hátra.
Üdv.

ott jelenik meg valami:

hogy tudom az első két sort törölni?
bár most jól olvassa be de ha txt bővül akkor szerintem megint gond lesz

Szia!
Ez még nem az utolsó cella, az irányított gombra kattintva bejelölöd az "utolsó cella" pöttyöt.
Akkor a munkalap utolsó használt cellájára ugrik.
Egész sort úgy törölhetsz, hogy kijelölöd az egész sort - a kis nyíllal a sor számán. Ezután jobb egérgomb - töröl.
Üdv.

Köszi
Úgy tűnik ez lesz az

Üdv!
Feltételes formázás: Egy adott cella formázáshoz kiválaszthatok a felsorolt feltételek közül, vagy megadhatok egy képletet. Ez utóbbi, nem megy. :-( hiába kezdem egyenlőségjellel, nem lesz belőle képlet.
Azt szeretném, hogy egy választott cella (D10) háttérszine piros legyen, ha a C4 cella nem üres, és maradjon eredeti háttérszín, ha a C4 üres. Még annyi, hogy a google sheet-ben dolgozom, a felhőben, nem a sima excelben.
Tehát egy másik cella értékétől függjön az adott cella háttérszine. Köszönöm ha segítetek.

[ Szerkesztve ]

A D10 cella formázási képlete
=$C$4<>""

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

az üres függvény elegendő, de negatív logika kell így a képlet így néz ki
=nem(üres(C4))

Bámulatos hol tart már a tudomány!

Szia,

Próbáld ki esetleg ezt. Mielőtt meghívod a fájl megnyitót jegyeztesd meg az aktuális fájlt és utána aktiváld vissza.

Dim wbCurrent As Workbook
Set wbCurrent = ThisWorkbook

<itt hívd meg a főlapos dolgot>

wbCurrent.Activate

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Szia,

PQ-ben igazából az adattípust tudod állítani (szöveg, egészszám, törtszám, dátum stb), ami a könnyebb olvashatóság miatt hoz is egy formátumot (amit a Windows Területi beállításaiból vesz ki, de a LOCALE opcóval eltérhetsz tőle).
Amikor az eredményt munkafüzetre küldi a PQ, akkor ha nincs cellaformázás (vagyis General/Általános-ra) van állítva, akkor használja az alapot, különben pedig a cellaformátumát.

A mintád alapján 2 dolog lehet:
1. 2385-ös sortól lefelé lehet hogy számformátum van a cellákra állítva.
2. Dátum adattípus konverziónál hiba történt és valójában nem dátum adattípust használ. Amikor kiküldöd a munkalapra az adatsort akkor a Connections/Kapcsolatok alatt kiírja hogy pl. 3500 rows loaded (with 500 errors).

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Köszönöm szépen!

Szia,

A FILTER első tartományának nem kell tartalmaznia a szűrendő oszlopokat, egyszerűen csak hagyd ki onnan az A oszlopokat:
=FILTER(raw_data!C:V;raw_data!A:A=X2;raw_data!B:B=W2)

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Nagyon köszönöm!
Megpróbálhattam volna mielőtt idesírok.

Sziasztok,
Sok olyan munkafüzetem van, amiben 70-100 munkalap van.
Van-e olyan függvény, ami az összes munkalap kijelölése esetén a 'ctrl+home' minden lapon végrehajtódig?
Köszi a segítséget előre is.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

nincs olyan függvény csak makróval lehet
Sub HomeAllSheets()
Dim sh As Worksheet
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
For Each sh In ActiveWorkbook.Worksheets
    sh.Select
    Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
Next sh
Sheets(1).Select
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Köszi szépen, erre gondoltam, ez gyors volt.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Az összes lap kijelölése után a Ctrl+Home minden lapon végrehajtódik, nem kell hozzá makró.

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

Sajnos teljes kijelölés után csak a látható lapon hajtja végre, ezért kértem segítséget (O365HU), bár lehet, hogy ráférne egy teljes újra rakás, mivel több minden nem úgy működik, ahogy megszoktam.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Két dátum különbségét hogy lehet megkapni év, hónap, nap formátumban? A DÁTUMTÓLIG nekem nem akar eredményt visszaadni.

Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)

Ismert problémák szekciót olvasd el!

=DÁTUMTÓLIG(A1;B1;"Y") & " év - " & DÁTUMTÓLIG(A1;B1;"YM") & " hónap - " & DÁTUMTÓLIG(A1;B1;"MD") & " nap "

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)

Ez nem biztos, hogy kivitelezhető - pontosabban, kérdés, hogy mi a pontos követelmény...

pl
1) mi a különbség Jan 28 és Feb 28?
- 1 hónap, vagy 31 nap?
2) mi a különbség Jan 31 és Feb 28?
- 28 nap, vagy?
3) mi a különbség Feb 1 és Márc 1 között?
- megint 1 hónap, vagy szintén 28 nap (vagy 29, ha szökőév van)?

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Kivitelezhető, csak máshogy.
A feladvány egy lista nevekkel, és munkaviszony kezdő és befejező dátumával. Mellé kell, hogy hány év, hány hónap (hány nap).
A két dátum dátumformátumban maradt, és mellé simán kivontam a befejezőből a kezdőt. Ebből lett egy szám, ami megadja a napok számát (illetve sorszámot 1900.01.01 után), egyénire formáztam a cellát ezzel a kóddal: éé "év" hh "hónap" nn "nap" és ki is jött, ami kell.

Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)

Oké és mennyi nap van 1998 Márc 11 és 1999 Máj 10 között? 1 év 2 hónap és 28 nap?

Ráadásul a megoldásod nem is jó ott sem, mert 22 év 0 hónap és 30 nap...

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Sziasztok!
Cellaértéket, és a cellához tartozó megjegyzést szeretném másolni saját magába, a cellához tartozó függvény nélkül.
Van erre valami egyszerű (beépített) lehetőség?
(Az irányított beillesztés lehetőségeinél sajnos nem láttam ilyen opciót.)

Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)

Szia!
Két lépésben tudod irányított beillesztéssel szerintem:
1. Irányított beillesztés - értéket - ezután marad kijelölve
2. Irányított beillesztés - jegyzetet (v. későbbi verzióban jegyzetet és megjegyzést)
Üdv.

Köszi, így jó lesz.

Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)

Sziasztok!
Lenne egy Excel munkalap.
A felső részén szeretnék egy állandó kereső mezőt, melybe csak belekattintok és szövegre keres az egész lapon. Enter, majd oda ugrik (vagy kilistázza A találatokat és választani Lehet).
Ne kelljen nyomogatni a ctrl+f gombot.

Előre is köszönöm a segítséget.

Tel: +36202955333 ^^ -V.m.L-

A másik, hogy egy olyan dátumot+időt szeretnék az egyik sarokba, ami folyamatosan frissül. Akár a másodperc is.

Előre is hála, ha segít valaki.

Tel: +36202955333 ^^ -V.m.L-

MA() és a MOST() függvények. Ehhez visszont cella frissítés kell. Pontosabban újrakalkulálás.

üdv, föccer

Építésztechnikus. Építőmérnök.

Google segít ebben

Bámulatos hol tart már a tudomány!

Sziasztok,
Abban kérek segítséget, hogy több munkalap egyidejű kijelölésével hogyan tudom megadni az ablaktábla rögzítését. (valószínűleg csak macro-val oldható meg)
Segítséget előre is köszönöm.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Sub AblakRogzites()
    Dim lap As Integer
    Application.ScreenUpdating = False
    For lap = 1 To Worksheets.Count
        Sheets(lap).Select
        Range("B2").Select  'Itt írd át a rögzítés helyét
        ActiveWindow.FreezePanes = True
    Next
    Application.ScreenUpdating = True
End Sub

Ez a makró minden lapon rögzíti az ablaktáblát B2-ben. Az első sor és első oszlop nem mozdul el görgetéskor. A B2 helyét átírhatod az igényednek megfelelően.

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 szépen, mint mindig...

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro