Kicsit utánanéztem a dolognak. Nem elsőre, de találtam egy Topic-ot, ami ezzel foglalkozik.
Itt van

Eddig személyesen nem találkoztam ezzel a problémával, de úgy tűnik létezik.
Valószínűleg Excel 2013 BUG. Megkockáztatom, hogy ezen belül a 64 bites verzió hibázik, mert azzal szoktak bajok lenni.

A központi szerver, amit említettél, milyen oprendszert futtat?
Távoli asztallal éred el?
64 bites Excel fut rajta?

Nem találtam megoldást a dologra, csak azt, hogy Ne Excel 2013-ban csináld a rendezést.

Magánvéleményként még lenne ötletem, bár inkább érdekes kísérlet, mint valódi ötlet.
Ha a 2013-hoz feltennéd a PowerQuery bővítényt, és azzal olvasnád be az adatokat a rendezetleg táblázatból, és a PowerQuery-vel rendeztetnéd. Kíváncsi lennék az eredményre.

Imre

Elvileg úgy van, hogy ha az add in-t engedélyezted, akkor az editorban a Project explorer ablakában (Ctrl-R) látszik az add-in, mint egy munkafüzet, vagy mint a PERSONAL.XLSB.

Ha itt szerkeszted a kódot, akkor menteni is lehet.

Ha itt is azt mondja, hogy read only, akkor még az lehet, hogy a fájl maga írásvédett lett valahogy.

Keresd meg a fájlrendszerben, és jobb klikk/tulajdonságok/írásvédett ki/be. Ezalatt természetesen ne fusson az Excel.

Hogy sikerült?

Imre

Az a baj, hogy nem az oszlopokra hivatkozik a képlet, hanem csak a fejléc celláira.
Ez van ott most:
=COUNTIFS(Táblázat1[[#Headers];[1)Neme:]];$A11;Táblázat1[[#Headers];[7)Hallott már reform ételeket értékesítő éttermekről? (egészséges ételeket értékesítő éttermek)]];B$2)

Ennek kellene lennie:
=COUNTIFS(Táblázat1[1)Neme:];$A11;Táblázat1[7)Hallott már reform ételeket értékesítő éttermekről? (egészséges ételeket értékesítő éttermek)];B$2)

Máris kijön az 57-es eredmény

Ha jól látom, csak azt próbálgatjátok, h oszlop címzés helyett hogy lehetne struktúrált hivatkozással, táblázatban.
Az a baj, hogy ha egy struktúrált hivatkozást elmásolsz jobbra, akkor az oszlopok követni fogják a másolást. Tehát nem olyan egyszerű lekötni az oszlopokat.
Van rá megoldás, de nem túl triviális.

Imre

Jó helyre tetted 🙂
Úgy működik, mint egy Excel munkalap függvény, tehát egy üres cellába állsz, és utána
Egyik lehetőség, hogy:
1. megnyomod az fx gombot a függvény beillesztéséhez
2. kategória: felhesználói
3. Ott kiválasztod ezt a függvényt
4. kattintgatással megadod a paramétereket úgy, ahogy a fenti képen csatoltam.

Másik, gyorsabb lehetőség
1. Beírod, hogy: =subst_multiple(
2. fx vagy Ctrl+A
3. Megadod a paramétereket

ha megvan egy cella, akkor lehúzhatod az oszlopban, ha a módosítandó szövegeid oszlopban vannak.

FONTOS Info: A cserélendő listának egyedinek kell lennie. Ha lenne két vagy több olyan, amik ugyanúgy kezdődnek, vagy részben tartalmazzák egymást, akkor nem biztos, hogy jó cserét csinál.

Ha ilyenbe ütköznél, akkor kicsit módosítani kell a függvényt, hogy az első cserénél ugorjon ki a ciklusból, illetve a cserélendőket hosszuk szerint növekvőbe kell rendezni.

Meg még lehet vele egyéb gond is, ez a használat során fog kiderülni.
Kezdetnek biztos jó lesz.

???

Imre

• A hozzászólás módosításra került: 8 years, 1 month telt el-horvimi.
• A hozzászólás módosításra került: 8 years, 1 month telt el-horvimi.

Szia!

ha össze tudsz rakni egy két oszlopos megfeleltetési táblát, hogy mit mire kell cserélni, akkor abból már lehetne dolgozni.

Összedobtam neked egy UDF-et.
Egy külön munkafüzetben tedd egy modulba, majd mentsd el.
A munkafüzet legyen nyitva, úgy tudod használni.

Function subst_multiple(originalstring As String, findstrings As Range, subststrings As Range) As String
Dim f As String
Dim r As String
Dim i As Long

    If findstrings.Rows.Count = subststrings.Rows.Count Then
        For i = 1 To findstrings.Rows.Count
            f = findstrings.Cells(i)
            r = subststrings.Cells(i)
            If InStr(originalstring, f) <> 0 Then
                originalstring = Replace(originalstring, f, r)
            End If
            
        Next
        
        subst_multiple = originalstring
    Else
        subst_multiple = "#Find and replace arrays must have the same size!"
    End If
End Function

Majd szólj, hogy milyen…

Imre

• A hozzászólás módosításra került: 8 years, 1 month telt el-horvimi.

Szia!

Ritkán csinálok ilyet, de volt kedvem hozzá.
Mellékesen szörnyű a formátum, részvétem…

Szóval azt találtam ki, hogy végigkeresem az első oszlopot a „Totál” szavakra.
Az első kivételével minden „Totál-t” tartalmazó cella mellett kezdődik az átmásolandó tartomány, és a vége 12 sorral feljebb, annak a sornak a végén van.
Tehát ha „item” nevű range változóban megvan, hogy hol találta a „Totál” szót, akkor a másolandó tartomány így fogható meg:

Set current_range = Range(Item.Offset(0, 1), Item.Offset(-12, 1).End(xlToRight))

Ezt másolni kell a tetején lévő folymatosan bővülő fejléc vége utánhoz.

Kb ennyi az algoritmus.

Az összeillesztésekhez tettem egy függőleges vonalat. ha nem kell, kiveheted.

Feltöltöttem

Ha OK, jössz egy sörrel.

Imre

Galk!

Ez így rendben van, és ha Zsuzsa erre gondolt, akkor OK.

Én úgy értettem, hogy egy hónap adatait szeretné látni csak.
Tehát az augusztusi forgalom, és mellette augusztusig az összes.
Azért gondoltam ezt, mert a csatolt megoldás haladó szinten egy alap dolognak számít

Ha PIVOT-ban szűrsz egy hónapra, akkor a göngyölített is csak az egy látható értéket mutatja, aminek göngyölített összege ugyanaz lesz.

De lehet, hogy túlgondoltam.

ha Zsuzsa még ránéz, majd megmondja, mi volt a feladat.

Nagyon köszi!

Imre

Ezt egy PIVOT-ban sztem nem lehet megcsinálni.
Én azt tenném, hoyg ha megvan a havi bontású PIVOT, akkor mellette egy oszlopban képlettel kiszámolnám az addig a hónapig összesített adatokat.
Kell egy rész, ami a hónapból előállítja az adott hónap utolsó napját, és ezt adnám oda a SZUMHA (SUMIF) függvénynek, hogy adja össze az adott dátumnál korábbiakat.

Feltételeztem, hogy az év az ugyanaz. Erre az információra a dátum összeállításában szükség van, vagy kell egy PIVOT oszlop az Évvel.

tölts fel egy mintát a PIVOT-tal, és visszatöltöm mire gondoltam.

Eggyel persze jobb lenne, ha megpróbálnád ez alapján megoldani.

Imre

Szia!

Ugyan nem egy képlettel, hanem néhnánnyal, de megoldottam.
A megoldást a Munka2 N oszlopától találod. A konkrétan keresett eredmény az S oszlopban.

Ezért mondjuk vállon veregetem magam.

• A hozzászólás módosításra került: 8 years, 2 months telt el-horvimi.

Kitaláltam rá valamit, de csak akkor működik jól, ha az 5-nél nagyobb Top 5-ben nincsenek egyforma értékek.

ha ez nem biztos, h teljesül, akkor hirtelen nincs rá ötletem azon kívül, hogy leprogramozni.

???

Szia!

Csak azt felejtetted el leírni, hogy most hogyan számoltok.
– Mit jelentenek a Munka1-en az első sorban az egy cellába írt, vesszővel elválasztott értékek?
– A Munka2 HUF oszlopána számítási menete kellene saját szöveggel leírva, mint egy munkafolyamat.

Imre

Szia!

Én ezt találtam erre. Kipróbáltam, nekem működött
Előtte csináltam egy „nevek” nevű tömbkonstanst a névkezelőbe.

={"Kovács András";"Tóth Zsuzsanna";"Kovács Béla";"Kiss József"}

A névkezelőből kolvasni egy töb elemeit az Evaluate függvénnyel lehet, ami a szögletes zárójel is egyben.

Sub get_array_from_named_range()
    Dim arr
    
    arr = [nevek]
    MsgBox (arr(1, 1))
    MsgBox (arr(2, 1))
    
    pos = WorksheetFunction.Match("Kovács András", arr, 0)
    MsgBox pos
End Sub

Definiáltam egy dinamikus tömböt, majd beleolvastam a „nevek” tartományt
A tömb egy oszlopos lett, és az elemek egymás alatt, de sor,oszlop indexxel érhetők el úgy, hogy az oszlop index mindig 1-es
Tehát kiolvasom egy tömbváltozóba a névkonstans tömböt, majd abból kiolvasom az első sor első oszlop elemét, majd a második sor első elemét.

A tömbben keresni lehet a megvalósított munkalapfügvényekkel is.
Ezt csinálom a második részben a match függvényel.

erre gondoltál?

Imi

• A hozzászólás módosításra került: 8 years, 2 months telt el-horvimi.
• A hozzászólás módosításra került: 8 years, 2 months telt el-horvimi.

Ez most már kihívás nekem. Mármint, hogy összehozzam, hogy értsük egymást.
Az alapján, amit küldtél, nem lettem okosabb.
A „melyik sorban van találat…” értelmezhető úgy, hogy hányadik sor, és úgy is, hogy írjuk ki a sor adatait.
Stratégiát váltok, konkrétabban kérdezek vissza.
Ez a minta adat:

Tól    Ig
100    105
106    110
111    115

Mondjuk keresed a 101-et
MIT SZERETNÉL EREDMÉNYKÉNT KAPNI? (Látni az eredmény cellában)
——————————————————
A) 100 – 105 (Egy cellában így beírva, ami ugye szöveg lesz)
B) 100, 105 (Két egymás melletti cellában)
C) 105
D) 100, 101, 102, 103, 104, 105 (Egy cellában)
E) 100, 101, 102, 103, 104, 105 (Egymás melletti cellában)
F) 1 (mert az első sorban lévő 100 és 105 közé esik)

Egyéb, éspedig:

???

• A hozzászólás módosításra került: 8 years, 2 months telt el-horvimi.

Kérlek, még egy kicsit pontosíts:
– A két érték közötti összes szám kell?
– Ha igen, hogy jelenjenek meg? Egy cellában, vagy …?
– Ezek egész számok?
– A tól és az ig soha nem egyenlő?

• A hozzászólás módosításra került: 8 years, 2 months telt el-horvimi.

Szia!

Új kérdést új Topic-ban tegyél fel lszi!
Köszi!

http://excel-bazis.hu/uj-forumtema-inditasa

Szia!

Ez egy klasszikus UNPIVOTING feladat.
A hőskorban erre makrót kellett írni.

Aztán megjelent néhány Excel ADD-IN, ami megcsinálja, de nem találtam eddig ingyenest.
Viszont az új sláger, a PowerQuery ingyens add-in.

Egy ideje már nézegetem. Excel 2010-hez és 2013-hoz letölthető, Excel 2016-ba már bele van építve.
Kb 1 perc volt, míg a problémádat megoldottamm vele. Konkrétan van ilyen menüpontja.
Egysezrűen zseniális.

Itt egy leírás, hogyan kell csinálni.

Visszatöltöm a megoldást. Csak 1000 rekordot hagytam benne, hogy fel tudjam tölteni.

Imre

Szia!

Az Excelben a szűrések nem dinamikusak, legyen az auto vagy haladó szűrés. Az új adatok esetén vagy adatmódosítás esetén újra kell futtatni a szűrést.
A Te problémád ez alapján úgy oldható meg, hogy az alaptábla módosítása esetén lefut egy eseménykezelő makró, ami szűri a kékeket, és kimásolja a kék munkalapra, majd szűri a pirosakat és másolja a piros munkalapra.
A kék és piros lapok korábbi tartalmait persze előbb törli.
Módosításnak számít új adat bevitele vagy meglévő módosítása.

Ennek a módszernek 2 problémája van:
1. Minden cella módosításakor lefut. Ez akkor probléma, ha gyakran módosítasz a fő táblázatban, és sok adatod van.
2. A makrókat szeretik kiküszöbölni. Ez jogos is, csak akkor használjunk makrókat, ha anélkül nem oldható meg egy feladat.ű

MAKRÓMENTES MEGOLDÁS?
Hát, ki lehet próbálni valamit, amit egy korábbi cikkben írtam le.
Dinamikus szűrés tömbképlettel.
Ez a módszer sok adat esetén várhatóan lassú lesz, két szűrt munkalap esetén pedig pláne.
De néhány száz sorig egy jobb gépen elviselhető lehet a sebessége.

Kicsit hozzá kell igazítani a Te problémádhoz, de megoldás lehet.

Próbáld meg!

OK, feltöltök egy megoldást, ami megmondja, hogy az első munkalapon lévő szó, hányszor szerepel a második munkalap első oszlopában bárhol, akár mondatban is.

Ez egy tömbképlet, ezért ha hozzányúlsz, Ctrl-Shift-Enter-rel kell lezárni.
Hogy lásd a szerkesztőlécen aképlet elején és végén a kapcsos zárójeleket.

A B2-be írtam a képletet, utána lehúztam az aljáig.

Ahol nullát kapsz, az a szö nem szerepel sehol a másik munkalapon.

Imre

Igen, szerintem is a checkbox-ok és a fájlnevek összerendelésénél van a kulcspont.
Tehát amikor készíted a checkboxokat, akkor a .name tulajdonsággal lehetne a nevük a PDF fájl neve is.
.name=Cells(cell, "J").Value

A Copy files makróban pedig végig loopolsz az összes checkboxon, és amelyik be van kapcsolva, az olyan nevű fájlt az adott útvonalról másolod a kívánt helyre.

Sub loop_checkboxes()
Dim cb As CheckBox
    For Each cb In ActiveSheet.CheckBoxes
        If cb.Value = xlOn Then
            MsgBox cb.Name 'Ide tehetnéd a másolást
        End If
    Next
End Sub

Nyilván az útvonalak valahogy összeállnak string összefűzésekből, vagy bárhogy…

Imre

Szia!

Amiben feltöltesz, legyen eredeti, ami a másolat, legyen árnyék nevű. csak az érthetőség kedvéért.

Felvázolok 3 megoldást

A leggyorsabb, de kissé favágó módszer az lehetne, ha egyszerűen képlettel lemásolod az árnyék munkalapon az eredetit.

Ha az eredeti adataid pl. az ‘Eredeti’ munkalap A1-ben kezdődnek, akkor az árnyék munkalap A1-es cellájába felviszel egy egyenlőség jelet, majd átkattintasz az eredeti munkalap A1 cellájára.
Ezt azután addig másolod jobbra a kitöltő fogantyúval, amíg a fejléc tart. (meg fog jelenni a fejléc másolata.
Majd az egészet másold lefelé addig, amíg nullákat nem kapsz, azaz az eredeti lapon elfogynak a már kitöltött adatok. Ha jó előre lehúzod, azaz sok nullákkal teli sorod legyen, akkor egy darabig nyugodtan töltheted az eredetit, a kitöltött adatok automatikusan meg fognak jelenni ugyanott az árnyék verzióban is, ha azonos munkafüzetben vannak.
Az árnyék verzió lehet másik munkafüzetben is, de ebben az esetben csak akkor jelennek meg automatikusan az árnyék verzióban is az adatok, ha az nyitva van. Különben minden megnyitáskor kérdezni fogja, hogy frissítse-e a külső hivatkozásokat, és IGEN válasz esetén szinkronizálja az árnyék verziót az eredetivel. Ezt a kérdést letilthatjuk, és megmondhatjuk neki, hogy ne kérdezzen, csak automatikusan frissítsen.
——————————————————————————————
Ha ez a megoldás nem felel meg, mert nem képletként, hanem értékként szeretnéd látni az árnyék adatokat is, akkor makrót kell írni az eredeti munkafüzetbe, ami eseményként érzékeli egy cella tartalmának megváltozását.
Tehát ha egy cella értéke megváltozott, akkor az árnyék munkalap ogyanazon cellájába másoljuk át az új értéket. Sima eseménykezelés. Itt is lehetnek külön munkafüzetben, de akkor mindenképpen nyitva kell lennie mindkettőnek az adatbevitel során.
———————————————————————————————–
Ha időben el akarod és tudod különíteni az adatbevitelt és az árnyék lap megnyitását, illetve az eredeti és árnyék verziókat külön munkafüzetben tartanádakkor fordítva kell csinálni, és az árnyék fájlba kell makrót írni, amiben megnyitáskor automatikusan lefut egy makró, ami az eredeti adatokat értékként átmásolja az eredeti munkafüzet megadott lapjáról az árnyék munkafüzet megadott lap megadott tartományába.
És IGEN, az átmásolt oszlopok után lehetnek képlet oszlopok, amiket hozzá lehet húzni az átmásolt tartomány méretéhez.
A makró azt csinálná, hogy megnyitja az eredeti fájlt, majd átmásolja a megadott munkalapon lévő táblázatot az árnyék munkafüzet megadott tartományába.
Ha kell, a képlet oszlopokat hozzá igazítja.
——————————————————————————-
Lehet, hogy kissé hosszadalmasan írtam le, de én ezek közül választanék.

Imre

Letöltöttem, kipróbáltam.
Nekem megcsinálja.
Office 365, Excel 2013

NHÉ formátumot választottál?
Most látom, hogy a fenti képen hibás formátum van kiválasztva. A te dátumaid a fájlban Nap/Hónap/Év formátumúak, a képen HNÉ látszik, mert elbénáztam.

Ja, és a villám kitöltés is működik nálam.

• A hozzászólás módosításra került: 8 years, 3 months telt el-horvimi.
• A hozzászólás módosításra került: 8 years, 3 months telt el-horvimi.

Szia!

A felső index megoldható, mert a kettesnek és a hármasnak van felső indexnek megfelelő külön karakter definíciója a betűkészletekben.
Ami biztosan működik:
1. Egy üres cellát válassz
2. Beszúrás szalag->Szimbólum (A szalag végén egy omega jel)
3. Keresd meg a kis felső kettest vagy hármast. A kisbetűk után nem sokkal.
4. Szúrd be a cellába
5. Szerkesztő módban másold ki a kis kettest vagy hármast (Ctrl-C)
6. Egyéni számformánál illeszd be a megfelelő pillanatban: 0,00″m²”;-0,00″m²”

Persze a negatív részt csak akkor, ha lehetnk negatív számok is. Ez négyzet vagy köbméternél a való életben elég ritka.

Kipróbáltam, megy.

Neked?

Imre

Szia!
Ez egy klasszikus hiba, szinte mindenki elköveti, amikor egy képletben változót akar használni.
Az a gond, hogy a képlet valójában egy szöveg. Dupla idézőjellel kezdődik és záródik. ha ebben csak így simán beírod a változót, akkor annak a neve, és nem az értéke lesz a képletbe, mint szöveg.
Ezt próbáld:

Activecell.FormulaR1C1 = _
   "=INDEX('" & fc & ".xls'!C5,MATCH(RC1," & fc & ".xls'!C1,0))"

Ugye külön figyelni kell a szimpla idézőjelekre is.
A módszer lényege, hogy meg kell szakítanod a szöveget azon a helyen, ahová a változó megy. Jelen esetben az INDEX kezdete és a szimpla idézőjel után.
Befűzöd a változót, és tovább folytatod az eredeti stringet.
A változó következő előfordulásakor újból ugyanez a teendő.

Imre

• A hozzászólás módosításra került: 8 years, 4 months telt el-horvimi.
• A hozzászólás módosításra került: 8 years, 4 months telt el-horvimi.

Szia!

Ha jól értelmezem, akkor nem munkafüzetről, hanem munkalapról van szó.
Egy munkalapon belül nem lehet ilyet csinálni, ilyen csak Word-ben van.
Olyat lehet, hogy az álló és fekvő részek külön munkalapokon vannak.
A tájolás munkalaponként állítható.
Nyomtatáskor pedig meg kell adni, hogy az egész munkafüzetet nyomtassa.

Imre

A táblázatos verziót számtalanszor csináltam. Most még egyszer kipróbáltam, működik.
Valamit nem jól csináltál szerintem.

Miután táblázattá alakítottad, ki kell jelölni az adatokat, és a kijelölést külön elnevezni.
Ez nem lehet ugyanaz a név, mint a táblázaté.

A lista adaforrásának a tartománynevet kell adni.

Ha az oszlopos megoldás OK, akkor végül is mindegy.

Imre

Szia!

A minta alapján a feladat egyszerűbb, mint gondoltam. Csak tudni kell hozzá, hogy a feltétel szerinti megszámláló függvények (DARABTELI/COUNTIF, STB..) ismerik a joker karaktereket.

Ha jól értem, azt keresed, hogy egy teljes domain név (www.valami.hu) hányszor szerepel az
„1-organikus-találat” oszlopban, hányszor a „2-organikus-találat” oszlopban, stb…
Nem pontos egyezésre, hanem bárhol.
Ehhez a „*www.valami.hu*” szöveget kell keresni, illetve megszámoltatni.

A megoldás tehát csak annyi, hogy a keresendő név elé és utána egy csillagot kell fűzni.
Szóval ha azt keresed, hogy az „F” oszlopban hányszor szerepel a B2-ben lévő domain név bárhol, akkor a képlet:

=DARABTELI(F:F;"*"&$B2&"*"

Ha a keresendő domain cellájának oszlopát lerögzíted, és teljes oszlopokban keresel, akkor húzható lesz a képlet.

Visszatöltöttem a fájlt. Erre gondoltál?

Imre

Szia!

Lenne egy ötletem, tölts fel egy mintát!

Imre

Ez is remek megoldás, köszi!

Ez teljesen jó, amit írtál, csak a „Sheet” szót többes számba kell tenni.
Tehát
Sheets(“Munka2”).Range(“c78”).Value = Sheets(“Munka2”).Range(“c78”).Value + 1

Imre

Szia!
Szóval ezt makróval lehet megcsinálni.
Több megoldás is lehetséges, és többféle gomb is létezik. Űrlap vezérlő és Active-X vezérlő.

Leírom az egyik lehetséges megoldást ActiveX vezérlő gombokkal.

1. Kapcsold be a Fejlesztőeszközök (Developer) szalagot
2. Ezen a szalagon a Beszúrás gomb lenyíló menüjében az ActiveX vezérlők közül az első a nyomógomb
Ezzel rajzolj 2 gombot.
3. Az elsőn duplán kattintva, megjelenik a Click esemény kezelője, egyelőre még üresen. Itt A Sub és End sub közé megadhatod, hogy mi történjen, ha megnyomod a gombot.
Ide írd be ezt:
Activesheet.Range("A1").Value=Activesheet.Range("A1").Value+1

4. Csináld meg ugyanezt a másik gombbal is, csak csökkenteni kell, nem növelni.
5. A gombokra írt szöveget úgy tudod módosítani, hogy jobb klikk->Tulajdonságok->Caption sor
6. A gombokat működésbe hozni pedig úgy, hogy a szalagon a Beszúrás mellett van a Tervező mód, amin egy kék vonalzó van, azt kapcsold ki. Ezután kattintásra már gombként működik.
7. Módosítani a tervező gomb bekapcsolásával tudsz.

Remélem érthető.

Imre

Szia!

Itt az lenne a kérdés, hogy ha kiválasztotta a gyártót és a terméket, akkor ahhoz csak egy saját termék tartozhat, vagy többől kellene választani?
Tehát a „kiválasztás lapon a C3-ban már egy konkrét érték lenne, vagy az is legördülő menü?

Van most 4 db típus táblázatod. Ezeknek az elemszáma mekkora a valóságban?
Mennyire fog később bővülni?

Mindenesetre kitaláltam valamit, csatoltan elküldöm.

Imre

Szia!

Nekem úgy tűnik, mintha kihagynál egy lépést a végén
A Manage Rules… ablakban nincs olyan gomb neked, hogy Edit rule…?
Ezt olvasd át:
http://www.contextures.com/excelpivottableconditionalformat.html

Imre

Kedves András!

A kernel32 és a kernel64 Windows oprendszer API-k. Leginkább dll fájlok, amiben meghívható windows szintű függvények vannak.

A sleep valószínűleg egy olyan fv, ami fél másodpercig „nem csinál semmit”
Én csak nagyon körültekintően használnék ilyesmit, mert más-más gépeken más-más eredményt produkálhat, vagy egyik gépen talán nincs is ottauz a dll, amiből hívnék egy függvényt.

Biztosan megvan az okod, miért akarod, gondolom valami figyelem felkeltés, de ez a villogó dolog meglehetősen old style.

Azt sokkal egyszerűbb megcsinálni, hogy amíg nem töltik ki, valamilyen színű legyen a háttere, utána meg normál. Ez egy sima eseménykezelés.

A sheet kiválasztása eseményhez egy olyan kód, ami megnézi az adott cellát, és ha üres, akkor megszínezi valahogy
Az adott cella tartalom módosulásához pedig a háttérszín alapra állítása.

imre

Szia!

Itt bizony az INDIREKT függvényt kell segítségül hívni.
Ezzel lehet szövegesen összerakni egy hivatkozást.

Az oszlop indexét használva a CÍM (ADDRESS) függvénnyel meg lehet tudni a keresett oszlop első cellájának címét. Ebből lehet teljes oszlophivatkozást készíteni.

Visszatöltöttem a megoldást.
Elég brutális lett, de megvan lépésenként is.
A tetejére változóként felvettem az adatokat tartalmazó munkalap nevét, és a fejkléc sorszámát.

Ha nem túl nagy a táblázat, akkor fog működni.
Sok adattal lassú lesz.

Majd írj vissza, hogy jó-e így!?

Imre

• A hozzászólás módosításra került: 8 years, 6 months telt el-horvimi.

Kedves István!

csak pontos feladatleírás alapján tudok kalkulálni egy ilyet.
Nagyjából értem, de nagyon korlátozott az időm, ezért fontos számomra, hogy ne legyen olyan, hogy megcsinálok valamit, sé kiderül, hogy nem erre gondoltál, vagy még ezt, meg még azt kellene bele megcsinálni.

Ha kapok konkrét mintákat, a mappaszerkezetet, és egy eredmény fájl mintát, akkor tudom megítélni, mekkora feladat lenne.
Azt is jó lenne látni, hogy a dátumot hogy szeretnétek megadni, amihez tartozó napló bejegyzéseket kiszedi minden fájlból?

Köszi,

Imre

Szia!

Amit csinálni szeretnél, azt nem lehet makró nélkül megtenni.
Elvileg is aggályosnak találom a dolgot, miszerint mit keresnek adatok és képletek is ugyanabban az oszlopban? Részösszeg képletek?

További kérdések:
– A beillesztendő adatmennyiség mindig ugyanakkora?
– A képletek mindig ugyanoda esnek? Azaz ugyanabban a sorban vannak?
– A képletek pozíciójában mi található a beillesztendő adatok esetén? Ott üresek vannak? Vagy esetleg a képletek eredményei értékként?

Ötletem viszont lenne, amit kipróbálhatsz.
Ha el tudnád rejteni a beillesztés idejére azokat a sorokat, amikben a képletek vannak, és a beillesztésnél meg tudod oldani valahogy, hogy a képletek pozíciója kimaradjon, de legyen egybefüggő a beillesztendő adatsor, akkor még akár sikerülhet is a dolog.

A képletek sorainak elrejtés egyszerűbb falat mint a másik.

Imre

Szia Tamás!

Majdnem biztos voltam benne, hogy dátum mezővel szívsz.
Ezekkel autofilternél és advanced filternél is csak a baj van.
Makrófuttatáskor konkrétan nem eszi meg a dátumot dátum formátumban.
Tehát nem írhatod ezt:

>=2016.03.24

Az már eggyel jobb próbálkozás volt, (mert gondolom sejtetted a problémát), hogy megpróbáltad összefűzni a dátumot, de az eredmény továbbra is dátum forma maradt:

Range("C2").Select
ActiveCell.FormulaR1C1 = "=""<=""&YEAR(RC[10])&"".""&MONTH(RC[10])&"".""&DAY(RC[10])"

Az egyik lehetséges megoldás az, hogy megnézed, hogy annak a dátumnak, ami akarsz,
mi a dátumszáma, és azt írod a feltételbe. Pl.: a 2016.03.29 dátumszáma 42458.

Tehát ez jó lehet:
<=42458

De ez elég béna, ezért számított formában érdemes beírni a cellába a makró futtatás előtt:

="<="&DÁTUM(2016;3;27)

Beírás után különben ez dátumszámkét fog látszódni
<=42457

És végül, ha makróval akarod beírni:

Selection.FormulaR1C1 = "=""<=""&DATE(2016,3,27)"

Így a dátum egyes részei lehetnek befűzött változók is.

Kipróbáltam a küldött fájlon, működik, úgyhogy menni fog Nálad is, most nem xcsatolom vissza.

Minden jót, majd jelezd, hogy rendben van-e!

Imre

• A hozzászólás módosításra került: 8 years, 8 months telt el-horvimi.

Azt hiszem nagyjából értem.
Tehát lenne négy altábla, ami kategóriánként tartalmaz indulásként egy összeget.
Te azt szeretnéd, hogy soronként töltögetve a csatolt táblát, ahol leegyszerűsítve megadod tételenként, hogy mely kategóriába esik, illetve kijön, hogy levonandó az összeg vagy hozzáadandó az adott kategóriához, lásd az altáblákban, hogy kategóriánként hogy állsz a kerettel.

Én azt csinálnám, hogy szépen töltögetném ezt a táblát. Előjelesen írnám be az értékeket.
Ami levonandó. az negatív, ami hozzáadandó, az pozitív szám legyen.

Majd csinálnék az egészből kategóriára bontva egy PIVOT táblát, ami összesíteni az összegeket.
Az összesenek valószínűleg negatív számok lesznek.
Ezek az összegek azt mutatnák, hogy mennyit kell hozzáadni a kiindulási összeghez az adott kategóriában.
Ha egy vagy több új sort kitöltöttél, akkor frissíted a PIVOT táblát.

Végül hozzáadnám képlettel ezeket a számokat a kiindulási összegekhez kategóriánként.

Az eredmények mindig mutatnák, hogy mennyi pénz van még, ami elkölthető.

Én valahogy így kezdenék neki.

Imre

Szia!

Én nem látok csatolmányt.

Hát, ezt teljesen automatizálva nem nagyon megoldható. Legalább is most hirtelen nem látom…

Kézzel könnyű lenne a képlet eredményét értékként lemásolni egy másik oszlopba, de nyilván nem ezt akarod.
Te azt szeretnéd, hogy ha kitöltöttek egy cellát, akkor az abból fakadó eredményt el lehessen tenni egy független cellába. (Mi van, ha véletlenül rossz adatot adott meg?)

Az a baj, hogy ha ezt automatizálni szeretnénk, akkor egy olyan makrót kellene írni, ami figyeli, hogy megváltozik-e a képlet eredménye, és ha IGEN, akkor lementi egy cellába az aktuális eredményt mint értéket. Ez simán megoldható, viszont minden változáskor le fog futni, tehát nem csak az első változáskor.
Azt is nézni kellene, hogy hányadszor változik, és csak az elsőnél másolja ki az eredményt.
Én ezt most passzolom.

Ha leírnád, mit szeretnél valójában ezzel, talán lehet más megoldás.
Olyat pl.lehet, hogy egy cellába csak egyszer lehessen írni, utána védje le a cellát vagy az egész sort.

Ezek persze eseménykezelő makrók.

Imre

Szia!

Elég gyakori kérdés ez. Az azonosságok vagy a különbségek a kérdés.
Színnel megjelölni, kiszűrni, megszámolni…

Egy speciális, legtriviálisabb példát már mutattam korábban itt, a Bázison.

Ez csak színnel jelöli a különbségeket.

Általánosabb megoldás, ha az egyik listában a tételek mellé egy új oszlopban megnézed, hogy az aktuális tétel szerepel-e a másik listában. Ezt lehet DARABTELI, HOL.VAN, FKERES függvényekkel csinálni. Én a DARABTELI-t javaslom. Angol neve COUNTIF.

=HA(DARABTELI(masik_lista, akt-tétel)>0;1;0)
vagy
=--(DARABTELI(masik_lista;akt-tetel)>0)

Mindkét képlet 1-est ad, ha az aktuális tétel benne van a másik listában és nullát, ha nincs benne.
Ezután az oszlop alján összeadva az egyesek számát, megkapod, hogy hány olyan tétel van, ami benne van a másikban is.

Ha nem akarsz segédoszlopot, akkor egy cellában rögtön meg lehet kapni az eredményt, de ez egy összetett tömbképlet eredménye.

Feltöltöttem egy minta fájlt.

Jelezd, hogy jó lett-e?!

Imre

Lenne még egy ötletem, ha képletekkel akarod megoldani, de ehhez a sorokban lévő rekordokat oszlopokba kell transzponálni. ha Fix oszlopszámosd van, akkor ez járható út lenne.

Ki kell jelölni egy segéd-tartományt, ahol a varázslat történik.

A TRANSZPONÁLÁS (TRANSPOSE) függvény úgy tud elforgati egy tartományt, hogy ezután leköveti a változásokat.

Ha minden sorodat egymás mellé transzponálod oszlopokba, akkor ezekből már lehet másodlagos oszlopokat generálni a második legördülő listának, amiben már nincsenek üres cellák.
Itt egy lehetséges megoldás:

Imre

Szia!

Ezt láttad már?

Imre

Szia Emese!

Úgy értelmeztem, hoyg az angol ABC szerint kell megoldást keresni, azaz a magyar ékezetes magánhangzókat az angolra váltva akarod a megoldást.
Amit Te csináltál különben teljesen jó, de azért ajánlom figyelmedbe a visszatöltött alternatív megoldási javaslataimat. A magyarázat a fájlban.

Imre

Mikor sima tartománnyal kipróbáltam úgy, hogy létrehoztam az egyéni nézeteket, üresen mentettem a fájlt, bezártam, kinyitottam, majd bemásoltam egy szűrendő tartományt, nagyobbat, mint az egyéni nézet ,létrehozásakor volt, akkor működött. Az „újra alkalmaz” úgy tűnik, arra való, hogy ha az érvényben lévő szűrés közben új rekordok kerülnének a végére, azokra is érvényesíti a szűrést.
A szűrés törlésekor vagy a tartomány törlésekor, a fájl bezárásakor szürke lesz.

Majd írd meg mi lett!

Rossz hírem van!

Kíváncsi voltam, ezért kipróbáltam adatkapcsolatos verzióban.
Itt az a gond, hogy a frissített külső adatkapcsolatok Táblázatként jelennek meg.
Így viszont ugye nincs egyéni nézet.

Ha átalakítom tartománnyá, akkor elvész az adatkapcsolat, ráadásul az egyéni nézet nem ismeri fel a tartományt.

Access lekérdezéshez kapcsolódtam.

Úgyhogy ez nem lesz ennyire egyszerű sajnos.
🙁

Szia!

Néhány tipp:
Vegyük előbb az új árlistát.
Ha az új ár oszlop mellé felveszel egy segédoszlopot, akkor oda FKERES fv-el kikerestetheted a régi listában a cikkszámot, és az alapján a régi árat. Ha nem találja a cikkszámot, akkor hibát ad. Ezt egy HAHIBA fv-el lekezelve visszaadhatsz egy saját értéket. Ezzel lesznek azok, amik újak.
Ha viszont megtalálja az előző listában, akkor összevetheted a két árat, és visszaadhatsz ennek megfelelő értékeket (Pl. „Fel”/”Le”/”Maradt”)
tehát egy képletben vegyesen használsz HAHIBA, FKERES és HA függvényeket egymásba ágyazva.

A régi árlistában ugyanezt megteheted, és az új oszlopba kikeresteted HOL.VAN vagy FKERES függvénnyel, hogy a régi cikkszám szerepel-e az újban.

Ha a segédoszlopos verzió már megy, megpróbálhatod a megtalált képleteket alkalmazni feltételes formázáshoz.

Kicsit tornázzál rajta.

Imre

Szia!

Sajnos a problémád nem oldható meg PIVOT-tal.
Sőt, így, hogy vízszintesen periódusonként nézed, másként is meglehetősen bonyolult.

Összeraktam neked egy modellt, és egy részére ki is húztam a képleteket.
Azért nem az egészre, mert átlépte volna a az 512k limitet a mérete.
Ha a képleteket függőlegesen és vízszintesen is kihúzod, kb. 1.7 mega a méret, és az újrakalkulációs idő 1 perc is lehet. XLSB-be mentve kicsivel kisebb lesz a mérete.

A zöld képlet megkeresi adott termékhez és periódushoz tartozó minimális kedvezményes árat.
Ez egy tömbképlet, és a több, mint 30e sorban meglehetősen lassú. Sajnos nincs MINHA és MINHATÖBB függvény az Excelben, de megoldható így.

A barack pedig kikeresi az összefűzött oszloppal kiegészített táblázatból azt a sort, ahol az aktuális termék és a min. kedvezményes ár van, és kiveszi a normál árat.
Ha megnézed a 7UP sorban az április 2014 oszlopot, akkor ott van, amit kerestél. Nem túl sok helyen van eltérés különben a két ár között, de azért előfordul.

Erre gondoltál?

Imre

Szia!

Szerintem csak az lehetett a baj, hogy esetleg nem Ctrl+Shift+ENTER-rel ( CSE ) zártad le azt a bizonyos bonyolult képletet.
Na, mindenesetre egy kicsit még reszeltem rajta:
– Táblázattá alakítottam az A-H oszlopokat
– N2-től egy új sorban kiszámolom, hogy melyik kódból hány van, meddig kell majd lehúzni a képletet
– A képletet az N4-ben átírtam táblázatos verzióra, utána CSE!!!
– Elhúztam vízszintesen a végéig
– Elkezdtem őket lehúzni függőlegesen is a 2. sorban olvasható darabszámig. R oszlopig jutottam, a többi a te dolgod

A táblázattá alakítást azért csináltam, hogy ne kelljen kijelölni a tartományokat, hanem a z oszlop nevével hivatkozhassak. Az oszlopokba bele kell vennia fejlécet is, ezért van #Mind rész is benne.

Sok sikert,

Imre

Szia!

Nincs ilyen lehetőség jelenleg, Excel 2016-ig. Valószínűleg nem is lesz.
Lehetséges megoldások, kerülő utak:

Ahogy te csináltad
A szűrés után kimásolod a látható rekordokat, és azon készíted el a PIVOT-ot, vagy módosítod a már létező Pivot adatforrását. Ez makróval automatizálható.
Lenne két munkalapod. Az egyiken az adatbázis, a másikon a szűrésnek megfelelő sorok.
A PIVOT táblát a szűrt adatok alapján elkészíted.

Ha változik az adatforrásod, vagy másik szűrést állítasz be, akkor a makró kitörölné az előző adatokat a szűrés lapról, az új szűrést odamásolná, majd módosítaná a PIVOT adatforrását az aktuális mérethez.

Adatbázis, pl ACCESS bevonásával
– Az adataidat Access-be linkeled
– Ott készítesz egy Query-t a szűrésnek megfelelően
– Az Excelben a PIVOT táblát a lekérdezéshez kapcsolod.

Ebben az esetben, ha változik a forrás adat, akkor csak frissíteni kell az Access-ben a becsatolt adttáblát, és fissíteni kell a PIVOT táblát, ami befrissíti az Access lekérdezést.

kb. ez jut eszembe

Imre