Szia!

Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
Next
End Sub

Üdv.

Sziasztok!

Az a problémám, hogy a kimutatásomban vannak oszloponként azonos elemek, amiket azonosság esetén is sorba kellene rendeznem, egy vagy több másik oszlopban szereplő érték alapján.

Meg lehet oldani, hogy egy kimutatásban szereplő adatok több szempont szerint is rendezve jelenjenek meg?
Magyarán, elsődleges rendezés mondjuk B oszlop értéke csökkenő sorrendben, majd ha van több azonos elem akkor az adott tétel E oszlopbeli értéke döntsön, mondjuk csökkenő értékben, azonosság esetén az F oszlop értéke számítson, stb.

Próbáltam, de ezt nem tudtam összehozni.
Ha sima adatok rendezése akkor egy több szintű rendezés nem jelentene problémát, de ez nem az :-)

szia

köszi, de run time erroral elszáll. Nem tudom mi lehet az oka

Szia!

Melyik sorban száll el? Van-e munkalapon kívül más is a munkafüzetben (pl. diagramot tartalmazó lap)?

Üdv.

[ Szerkesztve ]

azt hol látom melyik sorban akad el?
nincs más csak munkalap, makró biztonsági beállíátsok okozhatnak gondot? (bár nem írt ki semmi figyelmeztetést)

Szia!

A makrót lépésenkénti módon indítsd el.
A VBA ablakban látni fogod, hogy hol jár éppen.

Üdv.

azt hiszem meg van.

egy elrejtett fülön van 1 pivot. mit kellene módosítani makroban hogy manuálisan kelljen futtatni fülenként? még az is nagy segítség és sokat könnyít a melón.

köszi

Szia!

Ha csak az elrejtett fülön van pivot, akkor így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh.Visible=xlSheetVisible Then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkor
If sh.Pivottables.Count = 0 Then 'legyen a feltételben a For Each után
Ha viszont csak az aktuális munkalapon szeretnéd alkalmazni, akkor csak a Dim és a For ...Next ciklust hagyd benne, a többit kommenteld ki (aposztróf ' a sor elejére)

Üdv.

Szia!

Egy munkalaphoz így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
'For Each sh In Worksheets
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
'Next
End Sub
Ha csak elrejtett lapon van pivot, akkor
Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh,Visible=xlsheetVisible then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkor a feltétel a For Each után:
If sh.Pivottables.Count >0 Then

Üdv.

Sziasztok,

excel 2016
magyar

Arra van lehetőség hogy kijelölök egy cellát, és gyorsbillentyűvel rögtön odaugrik?

Azt tudom hogy az "F5" lenyomásával lehet ugrani, de ezzel a módszerrel be kell gépelni hogy hova akarok menni, és ez elég idegesitő mert elég nagy a tábla, és arra a fix pontra mindig vissza kell mennem, igy jó lenne ha lenne erre valami módszer.

Elöre is köszönöm

Kiegészítés:
A blogmotor miatt 2x kellett írnom, persze, hogy elrontottam másodjára
A pivottáblás feltétel így jó:

If sh.Pivottables.Count = 0 Then

Remélem kitaláltad.

Üdv.

[ Szerkesztve ]

Szia!

Makró:
Sub ugrik()
Range("A5").Select
End Sub
Ezt hozzárendeled egy kényelmes billentyű kombinációhoz.
Viszont ha van eseménykezelés is valamelyik makródban, akkor eseménykezelés kikapcs-bekapcs is kell:
Application.EnableEvents=False
Range("A5").Select
Application.EnableEvents=True

("A5") helyére írod a cella címét.

Üdv.

nagyon király, a rejtett lapos megoldással és így az összegző sheet is megmarad eredeti formájában

nagyon köszi!

Köszönöm

sziasztok
olyan kérdésem lenne, hogy vba-val tudok kiíratni képletet a cellába?

If Range("C1").Value = "OK" Then Range("F5").Value = "=HA(U3>=S3;"EZ";"")"

Előre is bocsi ha rosszul írtam bármit is, kezdő vagyok még, csak felületesen próbálkozom.
Azt a hibát kapom futtatáskor, hogy : Compile error: Syntax error

[ Szerkesztve ]

Szia!

Nem a Value, hanem a Formula tulajdonságot kell használnod. Ezen kívül angol függvényneveket és annak megfelelő formátumot kell alkalmaznod:
If Range("C1").Value = "OK" Then Range("F5").Formula = "=IF(U3>=S3,""EZ"","""")"

Üdv.

Üdv!

Adott egy kis összegző táblázat, legyen pl. cikkszám és polc formájú. A képen meghatározott módon vannak számosítva a polcon lévő darabok a táblázati jobb oldalon , és bal odalon a termék cikkszáma.

Engem az érdekelne ha kiszedem egy adott polcon lévő termék számának összegét pl a H9-es cellába, akkor azt külön ki lehet e íratni úgy , hogy a cikkszám helyett egy más elnevezést használok. Ebben az esetben ez azt jelenti, hogy a kijelölt D12-es cellában lévő A6 cikkszám helyett pl azt írja ki hogy zöld kocka, ne a kibogozhatatlan nevű cikkszám legyen ott. Magyarul engem az érdekelne hogy egy meglévő cellaérték mellé mégegy ilyen "nickname" vagy "tag"-elés adható e a cellának.

http://steamcommunity.com/id/DrTechnoid/

Szia!

"ki lehet e íratni úgy , hogy a cikkszám helyett egy más elnevezést használok"
Ha az Excelnek megmondod, melyik cikkszám milyen nevű terméket takar, természetesen.
Ehhez kell csinálnod egy kis "szótárt" 2 oszlopban, első oszlop cikkszám, második oszlop megnevezés.
Utána az Fkeres függvénnyel megkeresed a cikkszámnak megfelelő megnevezést és azt írod a cellába. Vagyis a cellába egy Fkerest tartalmazó képlet kerül.

Üdv.
Ps. Megjegyzést adhatsz a cellákhoz, de azt nem lehet képlettel megjeleníteni.

[ Szerkesztve ]

Kellene egy kis otlet/iranymutatas a tolem tapasztalabbaktol:
Van egy excel file-om ami jelenleg 160mb, eleg sok adat van benne, es ez honaprol honapra no. a file felepitese ugy nez ki, hogy a-ca oszlop import egy masik szoftverbol, majd mellett cb-fm kulonbozo fv-ek ami nagyreszt az a-ca adatait hasznaljak.
Csak megnyitni eltart kb 2 percig, egy teljes kalkulacio tobb percig is eltart. Hogyan tudnam gyorsabba tenni?
Arra gondoltam az a-ca adatokat bedobom egy access tablaba, csak nem tudom mellette a cb-fm oszlopokat hogy tudnam access-ben (meghatarozott) fv-el /logikaval kitolteni?
Ha kesz az access table akkor pedig excel powerpivot hozzaferessel elemezgethetnem az adatokat.
Szerintetek ez jo otlet? Ha nem milyen iranyba gondolkozzak? Merre olvasgassak?miben gondolkozzak?
Esetleg van tippetek, hogy akar a jelenlegi excel tablet hogy tudnam irto gyorsa tenni?

koszi

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

Szia!

Az Acces jó ötlet. Természetesen ott is vannak jól használható függvények, lehet számított oszlopokat betenni, de nem kell vele az adatbázist növelni, elég lekérdezésként megcsinálni. Érdemes rajta elgondolkodni sőt más adatbázis kezelőben is.
Az Excel tekintetében:
Biztosan vannak olyan adatok a táblában, amik már nem módosulhatnak a számítások során - bár be vannak képletezve, minden számolás ugyanazt az eredményt kell, hogy adja - pl. múlt idők adataiból számítottak.
Ezeket én sürgősen átalakítanám értékké (kijelöl - másolás - irányított beillesztés saját magára értékként), ekkor nem fogja a számítási kapacitást terhelni többé. Szerintem elég, ha csak az újonnan bejövő adatokhoz tartoznak képletek.
Vannak olyan képletek is, amelyeknek az "eredménye", ha megnézed az fx gombra nyomva, frissítés (pl ilyen az indirekt függvény is és jó pár másik). Ha lehet, az ilyen képleteket próbáld más - ugyanazt az eredményt adó képlettel helyettesíteni - persze lehet, hogy ilyenkor segédoszlop vagy másik munkalap is kellhet.

De a képletek átalakítása értékké a szükségtelen számításokat elhagyva szerintem kellő gyorsulást fogsz észlelni az előbbi bekezdés nélkül is.

Üdv.

Megpróbálhatod a fájlt xlsx helyett xlsb formátumban menteni, a megnyitáson, mentésen biztos gyorsítani fog.

Nagyon köszi!
Kipróbálom még ma !

Sziasztok
Azt hogy tudom megcsinálni, hogy ha egy bizonyos feltétel teljesül, akkor annak legyen nyoma excelben, akkor is ha később a feltétel már nem áll fenn?
Tehát: Például az A1 cella, ha nagyobb mint a B1, akkor legyen nyoma excelben akkor is, ha már a feltétel nem áll fenn... (közben ugye A1 cella értéke folyamatosan frissül/változik).
sima HA függvény nem jó( =HA(A1>B1;"OK";"") , mert ha A1 már nem teljesül a feltételnek már nem fogja kiíratni "OK"-ot. VBA-ban sem találtam megoldást rá, bár azt hozzá kell tennem, hogy nagyon amatőr vagyok benne

Szia!

Csak VBA-ban tudod megcsinálni. Egy cella értékét beállítod mondjuk 0-ra, ez lesz a jelzőcella.
A makró megnézi, hogy A1 értéke nagyobb-e mint B1 értéke. Ha igen, a jelzőcella értékét átállítja 1 -re, ha nem akkor a jelzőcella értéke marad változatlan.
Ezzel a módszerrel a jelzőcella mutatja, hogy volt már nagyobb érték. Ha azt is meg szeretnéd tudni, hányszor, akkor a jelzőcella értékét minden alkalommal növelni kell eggyel, amikor a feltétel teljesül.
Vázlatosan:
If Range("A1").Value>Range("B1'").Value Then Range("C1").Value =1 (vagy a második esetben Range("C1").Value=Range("C1").Value+1

Mivel a feltétel nem teljesülése esetén nem kell hozzányúlni a cella értékéhez (sőt tilos), ezért nem egy sorban lehet rendezni a vizsgálatot és az értékadást.
Természetesen a jelzőcellába más értéket is írhatsz a feltétel teljesülése esetén.

Üdv.

Köszi! kipróbálom.

koszi Feri-nek is. ki probaltam mindkettot, gyorsulni gyorsult de meg (szerintem) igy is lassu. szoval meg gondolkodnom/google-znom kell hogy tudom meggyorsitani

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

Szia!
Feltétlenül kell minden "alapadat" egy Excel fáljban? A számítások eredményét nem elég a fájlban tárolni? Az alapadatokat pedig másik fájlban, esetleg havonta szétválasztva.
Azt ne várd, hogy a naponta növekvő fájl nyitása és számolása, mentése majd meggyorsul valami isteni csoda folytán.
Sok adat esetén bizony tud lassú lenni, ezzel barátkozni kell, vagy szabni-varrni az adatokat/fájlokat, vagy egyszerűen áttérni adatbázis kezelőre.
Értem én, hogy a főnökök Excelre vannak rágyógyulva, de nem hiszem, hogy minden egyes apró adatot egyenként is meg szeretnének nézni.
Tedd a közlésre szánt információkat egy fájlba, az adatokat pedig egy másikba. Naponta egyszer frissíted az "élmény" fájlt - ezt te kibírod. Másoknak pedig gyorsan megnyílik a nekik szánt adag.
Tudom, mit beszélek, én is voltam ilyen helyzetben - bár igaz, csak havonta frissültek az adatok -, minden hónapban kismillió adat érkezett, ebből kellett és lehetett emészthető állapotot csinálni némi gondolkodás után.

Üdv.

nem ismerem annyira, de power bi nem segítene rajta?

van, hasznalom, dashboardingra
(es nem a fonokok hasznaljak a 150mb file-t hanem a kollegak hogy reszletes(ebb) elemzeseket csinaljanak)

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

Jó reggelt. Adott egy sales report amiben termékek vannak, sajnos a termék súlya nem szerepel. Tudva a súlyt, milyen módon hozok létre egy új oszlopot ahova megadom a termék súlyát?

Nem foglalkozik itt amúgy valaki excel oktatással?

(#39181) dellfanboy - fkeres mire? Van egy oszlopom amiben benne van a pack neve(több terméket tartalmaz) és vannak oszlopok termékre külön bontva(ebben benne van a mennyiség).

[ Szerkesztve ]

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

beszursz egy oszlopot majd fkeres?

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

Szia!

Mindezzel együtt, továbbra is azt kérdezem, szükség van-e rá, hogy minden sorban mindig ott legyenek a képletek?
Gondolom használsz makrókat, amik szükség esetén a képleteket is beírhatják a megfelelő helyekre.
Aztán át lehet gondolni a szerkezetet is.
De talán valóban egy valódi adatbáziskezelő lenne a megoldás.

Üdv.

Sziasztok
VBA futtatásánál erre kapok egy " Type mismatch" run time error 13-as hibát:
If Range("CS10").Value > Range("T3").Value And Range("CW10").Value < 1.5 Then Range("CS7").Value = 1

Egy debugra klikkelés után egészen a "Range("CS7").Value = 1"-ig sárgára festi.
Tudnátok segíteni, hogy mi lehet a baj?

Szia!

Valamelyik cellában hiba van, ezért nem tudja összehasonlítani. Próbáld részenként, az immediate ablakban megnézni, mit ír a cellák értékeire.

Üdv.

Szia
kezdő vagyok még, megtudnád mondani ezt az ablakot hol találom?

[ Szerkesztve ]

Közben megtaláltam, most próbálom keresni, hogy kell használni

Szia!

?Range("A1").Value Enter az A1 cella értékét írja ki. A ? a Print rövidítése.
Ugyanígy lehet kifejezéseket is kiíratni.
Úgy működik szintaktikailag, mint a makró.

Üdv.

Igen köszi nagyjából meg is van. Talán a hiba az, hogy : - ?Range("CS10").Value
- Error 2007
CS10 es cellában egy átlag képlet van( =ÁTLAG(CR10R68)), amibe csak bizonyos idő elteltével kerül érték automatikusan. Talán nem a .Value a megfelelő VBA-ban ?
Köszi a segítséget!

Urak, hova kell beírnom pontosan az -fkeres függvényt?

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

a táblázat végére vagy másik munkafüzet ahol látni szeretné csak ne érjen bele a nagy tömbbe

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

Eddig rendben van, az nem tiszta, hogy derül ki számomra mennyi kg. egy doboz termék. Nem tudom mit kell beírni tegeződjünk ha nem nagy gond

[ Szerkesztve ]

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

inkább azt írd meg hogy melyik oszlopban lévő adatot keresed (ezt keresem) és melyik oszloppal kellene visszatérni (eredmény)

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

sziasztok
VBA-ban Immadiate -ben, ha ezt kapom eredményül:

-?Range("CS10").Value
-Error 2007

akkor mi lehet a gond? A CS10- es cellában egy átlag függvény van , ami csak a későbbiekben automatikusan kerül kitöltésre.

Úgy gondolom ez okozza a hibát VBA futtatásánál: " Type mismatch" run time error 13.
Köszi a segítséget

Szia!

Az Error 2007 a nullával való osztási kísérlet miatt van. Ha a CS10 cella képletéhez tartozó területen jogosan nincs még adat, akkor hibakezeléssel tudod a problémát kezelni:
If Iserror(Range("CS10") Then
Range("CS7").Value = 1 'ide azt az értéket írd, amit a cellában ebben az esetben látni szeretnél.
Else
If Range("CS10").Value > Range("T3").Value And Range("CW10").Value < 1.5 Then Range("CS7").Value = 1
End If

Persze meg kell még nézned, hogy a többi cellában. amit használsz a feltételekben, milyen értékek szerepelnek.

Üdv.

[ Szerkesztve ]

F oszlopban található a csomag elnevezése - tartalmazhat több fél terméket. Feltételezzük van benne Termék1, Termék2 és Termék3. Termékeknek van különálló súlya, ez kell nekem. És a végeredmény a következő: - az F oszlopban található minden csomagnak a súlya. Nem tudom érthető-e ahogyan leírtam.

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

A termék neve és a termék súlya is F oszlopban van? Így nem tudok segíteni!

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

Az F oszlopban a csomag neve és a tartalma van ami lehet: Termék1, Termék2, Termék3. De lehet csak Termék1 Termék2, stb.

Az M, N, O oszlopban látjuk mennyi van az adott termékből az adott csomagban. Tudom a termék súlyát, 5 termékünk van. Nem tudom hogyan fogjak neki, nagyon nem megy az excel

[ Szerkesztve ]

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

Szia!
"Tudom a termék súlyát, 5 termékünk van."
Ezeket az értékeket be kell tenni két oszlopba egy munkalapra.
1. oszlop megnevezés
2. oszlop termék súlya
Ha a termékneve valóban az F oszlopban van:
Az Fkeres első paramétere a termék neve, amit az F oszlopból veszel.
Második paramétere az a két oszlop, ahol az előzőleg mutatott értékek vannak, pl. Munka1!$A$1:$B$5
Harmadik paraméter 2 - mivel a második oszlop tartalmazza a súlyt
Negyedik paraméter 0
A példa képen viszont a termékek az M-O ill gondolom a Q oszlopig vannak, mivel 5 terméket említettél.
Akkor nem kell Fkeres függvény.
Ha sorrendben vannak a termékek az M-Q oszlopban és az AA1-AE1 cellákban vannak a megfelelő súlyok,
akkor az M-Q oszlop következő sorába írd be az alábbi képletet (a termék1 értéke alá):
=M2*AA$1
majd másold le jobbra a Q oszlopig.
És kész.
Vagy R oszlop következő cellájába írd a szorzást és másold le még 4 oszlopra jobbra. Ekkor külön oszlopokban (R-V) kapod az egyes termékek súlyát.

Üdv.

[ Szerkesztve ]

Termék nem az F oszlopban van, F oszlopban egy csomag van ami több terméket tartalmaz. A termékek különálló oszlopban vannak.

http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein

Szia!

Akkor tanulmányozd a második felét a válaszomnak.

Üdv.