Szia!
A munkalap SelectionChange eseménye nem lenne jó erre?
Üdv.

szia
jó lehet, de annyira nem néztem még utána hogy lehetne ezt akár egy cella értékének változásával összekötni
ha esetleg tudsz vmi linket ahol utána olvashatok vagy példa van fent azt megköszönném

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

Szia!
Pl.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:B8")) Is Nothing Then
   Target.Value = "akarmi"
End If
End Sub
Ha a kiválasztott cella nem esik az A1 : B8 tartományba, beleírja a cellába a szöveget.
[Itt a helpje]
A target paraméter az a tartomány (egy vagy több cella), amely újonnan lett kiválasztva. A tartomány minden paraméterét vizsgálhatod az eseménykezelő makróban, sőt más cellák, tartományok, paraméterek függvényében alakíthatod a makró futását.
FONTOS: Ha cellák értékét változtatod vagy másik tartományt szeretnél Select v. Activate paranccsal elérni a makró közben, akkor az elején ki kell kapcsolnod az eseménykezelést az Application.EnableEvents=False sorral - a kilépés előtt pedig visszakapcsolni True paraméterrel.
Üdv.

Igen hasonló az elképzelés, de olyan kellene ami be is ír vmit és mivel céges így korlátozott a telepítési lehetőség
Ráadásul még van egy program ami figyeli a tevékenységedet (nem minden számít aktív munkának) de ha az excelt használod az jó, ezért kellene ebben megoldani

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

Window Media Player ha meg van nyitva (nem kell, h fusson valamilyen lejátszás) sem engedi.

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

Miért nem lottózom? Annyira biztos voltam benne, hogy erre kell

A Pulover's Macro Creator program kell neked, van portable verziója is. Én egy játékban kattintás helyettesítőnek használom. Ugyan nem lett gyorsabb a kattintás, sőt, de viszont nincs is ínhüvelygyulladásom, mint egy játékostársamnak
Lényeg, hogy lehet benne mindenfélét csinálni, tutorialt is találsz hozzá, kifejezetten Excelhez valót is találsz. Most 2 perc alatt csináltam egy olyat, ami arrébb lépteti az Excelben a kurzort és az előre meghatározott szövegből ír be egy szöveget. Lehet véletlenszerűen is időt választani két parancs közti időtartamra.

Honlap: [link]

Letöltés (portable is): [link]

[ Szerkesztve ]

''Ha az agyunk olyan egyszerű lenne, hogy megérthetnénk, olyan egyszerűek lennénk, hogy nem értenénk.''

Köszi megnézem

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

Sziasztok!
Excel 2010-ben dolgozok és a következő logikai feladatban szeretnék segítséget kérni:
első oszlopban nevek vannak
második oszlopban tavalyi tanév
harmadik oszlopban idei tanév
második és harmadik oszlopban az szerepel, hogy befizette e az adott tanuló az osztálypénzt, legyen a szöveg, hogy "befizette" és "nem fizette be"
Hogy lehet a legegyszerűbben kiemelni azokat a diákokat, akik egyik évben sem fizették be?
Köszönöm!

Pl. feltételes formázással

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,

Vagy ha nem akarsz a feltételes formázással trükközni, akkor a D2-ben azt mondod, hogy =HA(ÉS(A2="nem fizette be";B2="Nem fizette be");"!";""), aztán ezt lehúzod az aljáig és aki egyik évben sem fizetett, annál ott lesz a felkiáltójel a D oszlopban (amire természetesen szűrni is lehet).

[ Szerkesztve ]

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

Köszönöm, mindkettőtöknek a megoldást!

Sziasztok,

Az alábbi feladatot kellene megoldanom:
Van 2 munkalap, mindkét munkalapon az "A" oszlopot ("A2" és attól lefelé) kellene beraknom egy legördülő listába. Úgy tudom megoldani, hogy csinálok 3. munkalapot, ahová behivatkozom egymás után a két munkalap "A" oszlopát. Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait. Van erre ötletetek, hogy ne kelljen manuálisan arrébb raknom az adatokat, ha betelik az üresen hagyott sor?

Segítséget előre is köszönöm!

Üdv: Dani

dinamikus legördülő listát nézd meg

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

Köszönöm, ez részben megoldás. (dinamikusan bővül a lista)
Viszont ettől még nem tudom összefűzni a két oszlopot.

Olyan legördülő lista kellene, amiben több oszlop van, szóval pl. ilyen?
Ha az adatoknak mindenképpen külön munkalapon kell lenniük, akkor kell hozzá makró, ha megoldható, hogy egy munkalapra kerüljenek az adatoszlopok/tartományok(mint a képen), akkor makró sem kell feltétlenül.

"Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait"
Ezt sajnos nem értem... Ha a 2 oszlopban/tartományban nem azonos számú kitöltött cella van, akkor a legördülő listának nincs értelme...

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!

Egy "lista összevonási" lehetőség:

Munka1 munkalap A oszlopban értékek
Munka2 munkalap A oszlopban értékek
Munka3 munkalap az "összesítő":
A1 -> =DARABTELI(Munka1!A:A;"<>")-1 Munka1-en az értékek száma
B1 -> =DARABTELI(Munka2!A:A;"<>")-1 Munka2-n az értékek száma
C2-től -> =HA(SOR()-1<=$A$1;Munka1!A2;HA((SOR()-1)-$A$1<=$B$1;INDIREKT("Munka2!" & CÍM((SOR()-$A$1);1;;1));""))

Az A1-ben és B1-ben lévő képletek beépíthetők a C2-be.

Szia,

Indexes ilyesmi megoldáson gondolkodtam, de mire összeraktam volna, te kompletten meg is írtad helyettem.

Nagyon szépen köszönöm!

Sziasztok.

Vettem egy win10 termékkulcsot, csak az a baj, hogy ez home verzió és nem tartalmazza az excelt és a word-öt. Tud valaki egy módot arra, hogy beszerezzem őket fizetés nélkül? A termékkulcs már önmagában a fél havi fizetésem volt, az office pedig még drágább, szóval nem fogok költeni rá még egyszer. Ismerősöm nem árulta el, hogy nem lesz a home verzión egyik sem, aki csinálta a gépemet... :(

Szia!
Ezt itt szerintem hiába is kérdezed. Fordulj bizalommal az ismerősödhöz.
Üdv.

Windows sosem tartalmazott Office-t alapból, max. ha valami Windows-al előtelepített gépet vettél és adtak "ajándékba" pl. egy fél-egy éves Office 365 előfizut mellé...
Windows Home verziókon is megy az Office, szóval ismerősöd nem tudom miről beszél.

További kérdés esetén fordulj ezekhez a topikokhoz:
Windows 10 | Microsoft Office és Office 365

[ 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,
A Windows és az Office 2 külön termék, előbbiből van Home és Professional... De nem attól nincs rajta Excel és Word mert Home, hanem mert az egyik Windows, a másik meg Office. Gondolom a fizetés nélküli beszerzést legális keretek között értetted, mert egyébként záros határidőn belül moderálnák a posztodat Egyébként itt a HA!-n is találsz aprópénzért legális Office kulcsot.
Egyébként nem akarok a zsebedben turkálni, de elég drágán adhatta az ismerősöd azta kulcsot, ha bármilyen havi fizetés felét kérte érte.

[ Szerkesztve ]

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

Ha van interneted, akkor van online Excel és Word ingyen. --> [link]
Persze kell hozzá regisztrálni, és csak online működik böngészőből.

Online vettem a kulcsot. 35 ezer volt és az nekem fél havi. (Szabolcsi vagyok)
Hol találok olcsón itt legál kulcsot? Az érdekelne.

[ Szerkesztve ]

Az a baj, hogy egyáltalán nem kézreálló az excel és a cellák pontatlanok. Sokkal nehezebb gyorsan haladni vele. Gépen szinte csukott szemmel csináltam mindent. A word-öt nem néztem még online, de az biztos jobb és az nem lényeges olyan szinten.

HA! Hirdetések: [link]

[ Szerkesztve ]

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

Üdv.

Van olyanra (egyszerű) lehetőség, hogy adott cellák (szöveg) tartalmát random összevonja egy cellába?
A konkrét példa: adott 9 betű, mindegyik 1-1 cellában (A1="Á", B1="H", C1="T", D1="É", E1="K", F1="M", G1="Ó", H1="Z", I1="O"), ebből szeretnék az A oszlopba mondjuk lefelé haladva random "szavakat" alkotni. Milyen képlettel tudnám ezt megoldani? Természetesen 1 betű csak egyszer szerepelhet.

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

Jó olvasást

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

Köszi, szóval nem egyszerű.
Megnézem, aztán ha nem megy, kitalálom fejből (1 értelmes magyar szót kellene alkotnom belőlük ).

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

Hogy mi?
Az A1 cella mindkét Excelben A1. Mi az hogy pontatlan egy cella?

Szia!

Szerintem ezt csak makróval lehet megoldani, de akkor sem biztos, hogy értelmes szót tudsz kihozni az A1:I1 tartományban megadott betűkből.
A3-tól kezdve lefelé íródnak be a "szavak".
A két makrót másold be egy modulba. A csillagokkal jelölt sorban írd át a 15-öt nagyobbra, ha több, vagy kevesebb szót akarsz kihozni.
A Veletlen makrót kell indítanod.

Sub Veletlen()
    Dim oszlop As Integer, sor As Integer
    
    Range("A3:A100") = ""
    Range("N2:V2").FormulaR1C1 = "=COUNTIF(R1C14:R1C22,R[-1]C)"
    
    For sor = 3 To 15 '******** a 15-öt írd át
        Random
        For oszlop = 14 To 22
            If Cells(2, oszlop) > 1 Then
                oszlop = 0: Random
            End If
        Next
        
        Range("N1:V1").Copy
        Range("N1").PasteSpecial xlPasteValues
        
        For oszlop = 14 To 22
            Range("A" & sor) = Range("A" & sor) & Cells(1, Cells(1, oszlop))
        Next
    Next
    Range("N1:V2") = ""
    Cells(1).Select
    Application.CutCopyMode = False
End Sub


Sub Random()
    Range("N1:V1") = "=RANDBETWEEN(1,9)"
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.

Korán van még...

[ 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)

Mihez?

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

Mert válaszoltam Neked, aztán kimentem kimosni a szememből a csipát, a hideg víz hatására meg megvilágosodtam, hogy hülyeséget írtam, így megváltoztattam a hozzászólást "Korán van még..." jeligére.

Akkor még1x:

A feladat kivitelezéséhez a kombinatorika, azon belül az ún. ismétlés nélküli variáció lekódolása szükséges. Ezt még meg lehet írni makróban, de mivel közben az is befigyelt, hogy "értelmes magyar szó" is kitétel, ezért már értelmetlen az egész. Ahhoz pluszban kellene -ahogy lappy is írta- egy adatbázis, ami max. 9 betűs magyar szavakat tartalmaz.

[ 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)

Az a nagy kérdés, hogy hány magyar 9 betűs szó van, és az honnan tölthető le.

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 mindenkinek, hogy foglalkoztok vele, de a 2. pohár whiskey-kólám 1. kortya után megvilágosodtam, és beugrott egy szó, rákerestem, létezik, szóval az lesz a megfejtés (kis játék volt egy oldalon).
Amúgy közben kiszámoltam, hogy hány variáció lett volna (362.880), és azt mind végigolvasni, hogy melyik értelmes szó (ezt én terveztem megtalálni, csak a variációkat akartam volna kiíratni az excel-lel), nem kis idő lett volna, plusz bele sem férne egy oszlopba. Úgyhogy tárgytalan, de köszönöm a fáradozásotok.

Szerk.: bocs, közben látom, Fire/SOUL/CD is leírta a variációk számát.

[ Szerkesztve ]

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

és mi lett az értelmes szó?

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

Van egy-kettő

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)

Neeem, 9 betűs a megoldás, mindegyik betűt fel kell használni. Ezt az oldalt én is megtaláltam, de nem ismerte azt a szót, ami a megoldás lett. Akit érdekel, üzenetben elküldöm, de ide nem akarom kiírni a játék vége előtt.

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

Sziasztok!

Esetleg van valakinek tapasztalata egyszerűen lapokon ugyan azon helyen lévő (Pl. B2-es cellában van minden lapon), szövegek listázására egy lapon?
Illetve adott lapokra mutató hiperlinkekekre? A Névkezelőben kell megoldani legegyszerűbben?
(Office 2016..)

Előre is köszönöm,ha valaki tud segíteni.

Üdv.

Van vmi szabályosság a munkalapok nevében?

[ Szerkesztve ]

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

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

For Each ws In Worksheets
If ws.Name <> "List" Then
Sheets("List").Cells(x - 1, 1) = ws.Name
Sheets("List").Cells(x - 1, 2) = ws.Range("a1").Value
End If
x = x + 1

Next ws

End Sub

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

Első esetben az x-1-edik sor nulla, hibára fut.

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

Sziasztok,

Az alábbi PIVOT-os problémám lenne.

Van egy táblázat az alábbi oszlopsorrendben: Dátum (nap) ; Hónap ; Ár ; Termék1 ; Termék2; Termék3

Ezeket Pivot táblázatba rakom és kalkulációs mezőben összeszorzom az árat az egyes termékekkel. Az eredmény jó naponként, de ha hónaponként akarom megjeleníteni rosszul összegzi (az árat összeadja és összeszorozza a termékek összegével, vagyis nem naponként összegzi a szorzást). Ezt meg lehet oldani Pivotban? Az alsó képen látható, hogy amit megkapni szeretnék, de a sárga hátterű celláknak kellene, hogy kijöjjön.

köszi a segítséget előre is.

[ Szerkesztve ]

Csoportositas hónapok szerint

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

Egy sima ÁTLAG függvény hogy hozhat nullát, ha csak simán egérrel kattintgatva a paraméterben hivatkozott cellákat, van értelmes értéke? Mellette másik oszlopban az ugyanolyan függvény meg nem nulla.

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

nem értem egy példát mutass

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

Adott egy excel, aminek az egyik oszlopában ilyen cellák vannak:
['0,0','20,0','40,0','60,0','80,0','100,0']
Ezt szeretném szétszedni, hogy minden érték külön sorba kerüljön:
0,0
20,0
40,0
...
Viszont a sor többi értéknek minden új sorban meg kellene jelennie. Tudtok segíteni?