A frissítést "gyalog" kell elvégezni, vagy egy gombbal (a hozzárendelt makróval) tudod egyszerre frissíteni a 3 kimutatást.

Sub Frissites()
ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
ActiveSheet.PivotTables("Kimutatás2").PivotCache.Refresh
ActiveSheet.PivotTables("Kimutatás3").PivotCache.Refresh
End Sub

Az A2 képlete legyen

=Ha(H2>=0;"Bevétel";"Kiadás")

A képletet tartalmazó oszlopot nem érdemes az A-ba tenni, mert új sornál át kell ugranod a bevitelnél. Tedd például a dátumot az első oszlopba. Mikor a Ctrl+0-val beviszed a dátumot, automatikusan másolódik a Kiadás / Bevétel képlete.

[ Szerkesztve ]

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

Ennyire durvát kérdeztem ezzel?

Infó [ITT] (többek között...)

Persze ez nem igazi SDI, de legalább a win tálcáján mindegyik munkafüzet megjelenik (ha a tálca is "úgy akarja").
A 2013-as már "valódi" SDI (ha jól tudom).

Na ez az, hogy ez be volt kapcsolva.. kikapcsoltam, vissza, és most jó. Köszi.

Egy kis segitseget kerek, hogyan tudok masik munkalapon keresni.
Az elso munkalapon van egy tablazat, A-K oszlopok, az adatok 50 sorban.
Ket masik munkalapon van 1-1 tablazat, A-K nevek a C oszlopban szerepelnek.
A feladat annyi, hogy a D oszlopba az A-K adatok melle beirva 1-50 kozotti szamot, az E oszlopban megjelenjenek a hozza tartozo ertekek.
Valamiert nalam nem mukodik.:-(

fkeres függvénnyel

FKERES(keresni kívánt érték; tartomány, amelyben az érték megtalálható; visszatérési érték oszlopszáma a tartományban; pontos egyezés vagy közelítő egyezés – 0/HAMIS vagy 1/IGAZ érték)

a keresés és érték visszaadásnál be kell írni vagy kattintva a munkalap nevét

[ Szerkesztve ]

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

Sziasztok!
Egy kis segítségre lenne szükségem.
Meg lehet e oldani azt egy diagrammon, hogy ha adott érték alá esik akkor legyen mondjuk piros az oszlop ha pedig fölé akkor pedig zöld?

Ketté kell szedni az adatsort. Nekem csak így sikerült megoldanom. Az első adatsor utolsó elemét meg kell ismételni a második sor első elemeként. Így folytonosnak tűnik majd.

üdv, föccer

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

Helló!
kérdés
van 4 db cella 5-dikbe az eredmény a 4 db cellába van érték az ötödikbe pedig minden cella után agyon hozzá 8-at Így az 5 cellába 32 lesz.Persze ha nincs mind a 4 cellába érték akkor csak annyiszor adjon hozzá 8-at.
erre szeretnék megoldást probáltam a darabtelit darab de nem jött össze
köszönöm

=DARAB2(A1:A4)*8

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

A Ctrl+0 nem képletet másol, hanem beteszi az aktív cellába a mai dátumot. Beviszed a dátumot az első oszlopba, mire a többi oszlopban lévő képletek megjelennek ebben az új sorban.

A dátumot tartalmazó oszlop is szerepeljen a kimutatás(ok)ban, ha időintervallumra akarsz szűrni.

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

basszus nagyon szépen köszönöm Delila_1

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.

A diagramban az A; C és D oszlopokat ábrázold. Az adatsorok formázását kell módosítanod, hogy jó legyen a kinézet.

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

Excel 2013 ban bütykölök egy táblázatot. A D oszlopban egy legördülő menüvel kilehet választani anyagtípusaokat. Az E oszlopban meg ennek a méreteit.Ezekből a A F oszloptól kezdve klf adatokat keres ki egy Adatok nevű munkalapfülről. Van két anyag típus ami mindig hibát dob. A szintaxis ugyanaz mint a jól működőknél. A T_szelvény_EM10025 és a HH_Négyzeatcél nem működik.

A fájl ismerete nélkül erre nem lehet válaszolni.

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

lehet nem tartozik mellé adat?
nincs benne a táblázatban?
más ötletem nincs rá hogy mi okozza látni kellene hozzá

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

Sziasztok!

Hogy tudnék ebben a sorban

ActiveSheet.Cells(2, x + 2).Formula = "=RC[-1]*2222222"

"2222222" helyett a

=(INDEX('sheet2'!$A$1:$N$400,MATCH(A2,'sheet2'!$B$1:$B$400,0),12),""0"")

képlet eredményére hivatkozni? Sheet2 neve változik, azért nem jó, ha csak azt írnám be a makróba.

Run-time 1004
ap-def, or obj-def a hibaüzenet.

[ Szerkesztve ]

Sziasztok!

Van egy elég összetett, makrókra nagyban épülő táblázatom, ami Office 365 alatt nem nagyon akar menni (2007, 2003 alatt hibátlan). A következő hibát kapom:

Rákattintva a Debug-ra, pedig ezt:

Hiányzik valamilyen komponens a 365-ből? 32 bites a szoftver, ha ez lényeges infó.

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

"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)

Az adagsúlynál szám helyett szöveg van.

Úgy néz ki, hogy ott beviteli mező helyett címke (Label) van a formon, amibe a címsor kerül be valami módon. Ez vonatkozik a Műszak db-ra is.

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

van egy hosszú táblázatom és belőle egy grafikon, amit szeretném, hogy állandóan a jobb felső sarokban legyen, bármerre görgetek a táblázatban.
.xlsx alapformátumban megoldható? vagy mindenképpen makróbarátba kell átrakni?

ezt találtam rá eddig, de nem működik a "lebegés", csak a pozicionálás: [link]

Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs

Sziasztok!

Egy diagram megjelenítésében van problémám. Következők az adataim:

Percentage 100% 76% 62% 56% 36% 0%
Score 2564 2550 2194 1813 1457 1457

Amire a beszúrt diagram így néz ki:

A probléma ezzel, hogy az X tengelyen 100-0 egyenletesen szeretném megjeleníteni az értékeket. Ha megnézitek, akkor az 50% most nem középen van, hanem elcsúszva jobbra. Hogyan tudnám elérni, hogy egyenletesen, 100-0-ig terjedjen az x tengely? Az X tengely beállításainál csak ezek az elérhető opciók: [link]

Pl így lenne jó:

[ Szerkesztve ]

Nézz el ide.

Nálad az legyen a kijelölt terület, amiben a grafikon van. Tehát nem a grafikon.

Keress rá a fényképezőgép szóra ebben a topicban, többet tudsz meg az alkalmazásáról.

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öszönöm, egyszer már javasoltad egy másik feladat kapcsán, de az a gondom ezzel is, hogy megvan a "másolat", de nem marad egy helyben, hanem mozog a táblázattal, ha valamelyik irányba görgetem.

Nekem az kellene, hogy a táblázat fölött "ússzon", tehát bármerre megyek a táblában, mindig ugyanott lássam a grafikont, úgy mint a panelek rögzítésével első sor/oszlopnál.

[ Szerkesztve ]

Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs

Az már nem megy makró nélkül.

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

nekem megfelel úgy is, ha van rá ötleted

[ Szerkesztve ]

Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs

hello!

hasonló a problémám mint múltkor, makróban hogy tudnám azt elérni, hogy az ok-ra szűrve a B oszlop elemeit vágólapra tegye?

A B C D E
1 12 ok
2 13 ok
3 14 ok
4 15 ok
5 16 ok
6 17 ok
7 18 ok
8 19 ok
9 20 nok
10 21 nok
11 22 nok
12 23 ok
13 24 nok
14 25 ok

Köszi

[ Szerkesztve ]

Spóroljunk! Kerül, amibe kerül!

Nevezd el a fényképezőgéppel létrehozott képet Kép-nek.

A laphoz kell rendelned a makrót (lásd a Téma összefoglalót).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Kép").Left = ActiveCell.Left + ActiveCell.Width + 20
ActiveSheet.Shapes("Kép").Top = ActiveCell.Top + 20
End Sub

A plusz értékeket módosíthatod ízlésed szerint, akár negatív értékre is.

Makróbarátként kell mentened a füzetedet.

[ Szerkesztve ]

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! Már többször belefutottam, de egyszerűen egy számskálát (pl. 0% és 200% között vannak értékek) nem tudok feltételesen formázni úgy, hogy minden szám, ami 105%-nál kisebb, az legyen piros, ami meg 115%-nál nagyobb, az zöld). Próbáltam úgy, hogy számként adtam meg. Úgy is, hogy százalékként, de egyszerűen valamit nem értek meg a jelek szerint, hogy hogyan működik. Kérhetek egy kis segítséget?

Ez az eredmény, nem is használja a zöld színt, minden piros:

[ Szerkesztve ]

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

A típus százalék legyen, nem szám.

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 az úgy nem jó, mert a "százalék" itt (a feltételes formázásnál) nem egy abszolút érték, hanem egy relatív érték, ami 0 és 100 között van.

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

A két érték 1,05 és 1,15 legyen.

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 nem megy...

Minden zöld, kivéve a nulla:

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Az aktuális értékektől függ a színezés.

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

Range("E2:E100").Copy

[link]ide irtam, hogy ne offoljam , ha nem ide tartozik, de egyenlöre nem találtam megoldást rá. excelben tökéletesen müködik, de a netesben már nem., pedig az lenne a lényege, hogy mindenki, hozzáférjen és szerkeszthesse.

Annyira nem egyszerű

Szóval a makrónak azt kell tudnia, hogy rászűr az OK-okra és a kapott sorokban, vágólapra teszi a B oszlop elemeit!

Tehát ebben a 12-19-ig tartó tartományt, a 23-at és a 25-öt rakná vágólapra.

Spóroljunk! Kerül, amibe kerül!

sziasztok!

akad néhány száz e-mailem lementve a hálóztra, minden emailben 1 vagy több csatolmány található. van esetleg talonban egy makrotok ami egyenként megnyitja ezeket a lementett maileket és elmenti a benne található csatolmányokat, mindenféle névkonvenció nélkül? köszönöm, nagy segítség lenne

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

Az alábbi programkódom van, azt meg lehet oldani, hogy ne kérdezze meg mindig a Word, hogy keressen-e elölről? Van benne egy csere, amit kb. húszszor végre kell hajtani de mindig kidobálja az ablakot a makró.
Nem Excel. de a Word is nagyjából ugyanazokat használja gondolom.

[/Sub PDM_1()
'
' PDM_1 Makró
'
'
Selection.WholeStory
Selection.PasteAndFormat (wdFormatPlainText)
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "?"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p"
.Replacement.Text = "*;"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Copy
End Sub

Köszi

[ Szerkesztve ]

Spóroljunk! Kerül, amibe kerül!

Sziasztok!

Egy kis segítséget szeretnék kérni az alábbi problémára:

Adott egy excel táblázat ( hivatalos nyomtatnány). olyan 30-40 kitöltendő cellával. Van, ami mindig állandó pl kitöltő neve, elérhetőségei. De van ami változik. Ilyen nyomtatványból le kell gyártanom kb 1500 db-ot. Az egy nyomtatványra kerülő minden adatom megvan egy másik excel táblázatban. 1sor=1 nyomtatványra felírandó minden adat.

Gondolom a probléma megoldható (??), de fogalmam sincs milyen irányban induljak el. Tudna ebben valaki segíteni? Előre is köszönöm!!

körlevélben gondolkodtál
oda olyan adatokat rakhatsz bele ami állandó és változó
én azzal próbálnám, de látatlanba nehéz megmondani hogy ez mennyire válik be mert ugye nem ismerem a táblázatban milyen adatok vannak

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

Szia!

[Ezt] tanulmányozd át.
Az adatok összekeverve, hogy ne lehessen senkit se felismerni (azért vannak benne idióta nevek ).

Hirtelenjében csak a data.hu-ra tudtam feltölteni telefonon keresztül (cégnél tiltott a data), remélem működik a letöltés...

[ Szerkesztve ]

Sziasztok,

egy kis segítséget szeretnék kérni:

Adott mondjuk 'Szabik' nevű munkalap és azon az 'A' oszlopban rögzítek dátumokat 'yyyy-MM-dd' formátumban. 'Eredmeny' nevű munkalapon pedig szintén 'A' oszlopban felírom januártól decemberig a hónapokat és azt szeretném megtudni, hogy adott hónapban hány nap szabi lett kivéve 'Szabik' munkalap alapján.

Egy minta fájlt elérhető az alábbi linken, a könnyebb érthetőség miatt és jó lenne, ha csak függvényt kellene használni.

[Minta fájl]

A segítséget előre is köszönöm.

Szia

két fgv kell hozzá az egyik a HÓNAP fgv a másik meg a darabteli fgv ezekkel
a hónap függvényel megnézed a szabik melyik hónapba esnek a darabteli meg összeszámolja

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