-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Melack
veterán
válasz szatocs1981 #30601 üzenetére
Tehát AD szinten állítsam be a usert, hogy csak read-only jogai legyenek a file-ra?
Ex-Informatikai Szolgáltató Asztali Munkatárs
-
tgumis
tag
válasz szatocs1981 #30592 üzenetére
Köszi de az a rész lényegtelen. Akinek kell az tudni fogja, hogy hogyan oldja fel a szűrêst. Az első részében segitsetek légyszíves mert azt nem tudom. Szóval megnyitaskor szűr záráskor kikapcsolja a szűrést.
-
-
Sweetraver
csendes tag
Sziasztok!
Segítséget szeretnék kérni olyanban, hogy van egy több ezer soros Excel táblám, mely munkaköri megnevezéseket és egy egyedi azonosító kódot tartalmaz. Fkeressel lett behúzva a munkakörhöz a kód. (munkakör neve alapján) Sajnos a munkakört nem tudom átnevezni, akkor megtalálná könnyen.
A gond ugye, hogy az Fkeres csak az első találatot hivatkozza be, ha ugyanaz a munkakör. Hogy tudom megoldani, hogy a megfelelőt keresse meg?pl.
Project manager - Pénzügy - P001
Project manager - Beszerzés - P001
Project manager - Logisztika - P001Most ezt látom. Azonban a beszerzésen és a logisztikán levő Project managernek is más a kódja. Ezt kellene bekeresnem.
Ez kellene képlettel:
Project manager - Pénzügy - P001
Project manager - Beszerzés - B007
Project manager - Logisztika - L013FKeres és Hol. van-ra gondoltam de itt 2 oszlopról van szó, nem sorról.
Tudnátok egy képletet adni erre?köszönöm!
-
tgumis
tag
válasz szatocs1981 #30604 üzenetére
Köszönöm a segítséget. Remélem meg tudom csinálni.
-
Melack
veterán
válasz szatocs1981 #30604 üzenetére
Active Directory céges környezetben. Nekem egyszerűbb azzal dolgoznom, ha már van rá lehetőség.
Ex-Informatikai Szolgáltató Asztali Munkatárs
-
ny.janos
tag
válasz Sweetraver #30605 üzenetére
Ha jól értem, akkor a munkakör és a szervezeti egység külön oszlopban van. Ez esetben a legegyszerűbb megoldás, hogy készítesz egy segédoszlopot, melyben összefűzöd az előbbi 2 értéket, s arra keresel. (Persze a FKERES képletben is megteheted az összefűzést, ha nem szeretnél segédoszlopot.)
-
hallgat
csendes tag
Köszönöm, ez az út járható egyenlőre számomra
Nem használtam még ilyen irányú összekötést az Excel és az SQL között, ezért bizonytalankodtam, de ez teljesen járható.A tapasztalatokat és a tanácsot is köszönöm, igyekszem megkönnyíteni az életünket és elérni a PQ integrálást.
A "jobb helyekről" csak annyit, hogy az idén térünk át 2003-ról 2010-re. Eddig kiváltság volt a 2010 használata. Azt hiszem ez elég sokat elmond.
Igaz, ezres nagyságrendű a licence, nem játék az átállás, de nagyon itt volt az ideje. Már ennek is örülök.Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
#02644736
törölt tag
Olyanban kérnék segítséget, hogy van egy 12 oszlopos táblázatom, amiben csak az elsö 5 oszlopot töltöm ki minden sorban, a többit nem mindig. Hogyan lehetne egy másik táblázatba kigyűjteni, hogy pl. a 8. oszlopban melyik sorokban van érték beírva, és ebből a sorból kellene a 8. oszlop és az első oszlop értéke. Ezt kellene minden sorra megnézni.
Remélem érthetően írtam le a problémámat. -
DeFranco
nagyúr
válasz Delila_1 #30598 üzenetére
köszönöm, így már értem
/all vizualizációs, ötletelős kérdésem lenne még, ebbe tegnap, a fenti munka során futottam bele.
adott egy adattábla, rendre napi egy adatsorral,
A2(dátum) B2(dátum hónapja) C2(dátum hetének sorszáma) D2(hét napja) E2(érték1) F2(érték2) G2(érték3)
A3(dátum) B3(dátum hónapja) C3(dátum hetének sorszáma) D2(hét napja) E3(érték1) F3(érték2) G3(érték3)és így tovább, egymás alatt, mondjuk január 1-től dec 31-ig.
szeretném esztétikusan megoldani, hogy "gombnyomásra" összesíthetőek legyenek az adatok (E-F-G) hónap, illetve hét sorszáma szerint.
erre elvileg jó lenne a részösszeg funkció, amivel két problémám van:
- az objektív problémám az, hogy a hetek átlóghatnak a hónaphatárokon, így pl. két 40. hét részösszeg lesz, egyszer hétfőtől szerdáig a 10. hónapban és csütörtöktől vasárnapig a 11. hónapban. ez mindenképpen hibás így.
- a szubjektív problémám az, hogy szeretném egy fokkal esztétikusabbra megcsinálni, mint a részösszeg randa bal margója, jó lenne, ha olyan kis csecse gombokkal lehetne állítani mondjuk a táblázat tetején az összegzési szintet, mint a slicerek pl. a power pivotban.kiváló megoldás még rá a sima pivot, egyszerűen azt húzom sorfejlécbe, ami szerint akarok összesíteni,d e ha megoldható, szeretném egy kicsit felhasználóbarátabbá - látványosabbá tenni a fent említett gombokkal.
a legtöbb megoldásnak fő problémája a hetek hónapok közötti átlógása, így nem tudok kialakítani hónap/hét 1:1 hierarchiát.
az elvárt kimenet tehát pl. felül három gomb (napi, heti, havi) és alatta egy tábla, ami a gombnyomás szerinti "mélységben" összesíti az adatokat, tehát napi nézetben napi bontás 365/366 sor, heti nézetben heti, 52/53 sor, havi nézetben havi 12 sor.
valahogy érzem, hogy ez megoldható, sőt, megoldható különösebb makrózás nélkül is, teljesen életszerű igény, biztos szállít rá megoldást a program, de nem találom.
jelenleg egy olyan favágó megoldásnál tartok, hogy a 3 táblát egymás alá teszem, csinálok egy (rejtett) segédoszlopot, ami jelöli a sor aggregáltsági szintjét, és a gombhoz makróval szűrést rendelek, ami az adott szintet jelölő segédoszlop értékre szűr. ezt meg tudom csinálni, de elég favágó megoldásnak tartom, kíváncsi vagyok van-e ettől szebb, elegánsabb eljárás.
[ Szerkesztve ]
-
opzozi
tag
Excel guruk, nektek az én problémám gondolom ujjgyakorlat lesz.
Van egy oszlopom, tele számokkal, de mondjuk ez több ezer soron keresztül. Hogyan tudom egy keresett szám értékét átírni a feltételeknek megfelelően.
Tehát mondjuk olyasmit szeretnék, hogy a keresett oszlopban az 5-nél nagyobb számokat írja át 1-re.Xiaomi Poco X3 Pro
-
Delila_1
Topikgazda
válasz DeFranco #30612 üzenetére
A kimutatásban a sorcímkékhez a C (hét száma) oszlopot tedd be, az értékekhez pedig a 3 adatot (E:G).
Szűrj a hétre, akkor mindegy, melyik hónapban van az adott hét. Például márciusra az idén 5 hét is jut. 9–13. Gomb sem szükséges, a kimutatásban ott a legördülő a választási lehetőségekkel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DeFranco
nagyúr
válasz Delila_1 #30614 üzenetére
tudom, kimutatással megoldható simán (bár kell a havi összesítés is, ezért nem úszom meg ebben a megközelítésben a sorcímke cserét, de ez lenne a legkevesebb), de ha lehet, akkor mégis ilyen interaktív, "lát egy táblát meg három gombot" megoldással oldanám meg.
nekem jobban tetszik a kimutatás, én nagyon szeretem, ebben az esetben is teljesíti a feladatot, "szakmai" érdeklődésből keresem, hogy a fentiek szerint megoldható-e. egyszerűen bizsereg bennem a gondolat, hogy tuti ott van az orrom előtt, mert biztos, hogy meg lehet csinálni, gondoltak rá, csak nem találom.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz opzozi #30617 üzenetére
Azt egy kis makróval, amit modulban helyezel el.
Sub Csere()
Dim CV As Object
For Each CV In Selection
If CV > 5 Then Range(CV.Address) = 10
Next
End SubKijelölöd a területet, ahol cserélni akarsz, és indítod a makrót.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
gyga
senior tag
Üdv.
Olyan makróra lenne szükségem ami: sor(oka)t másol át A laról B lapra. C oszlop képlete A1-B1
sorsz A oszlop B oszlop C oszlop
1 ____ 100____ 200____ -100
2
3
4
.
.
.
.
ha C1 pl nem nulla akkor másolja azt a sort a B lapra, és minden olyan sort egymás alá másoljon át ahol nem nulla.
Vagy ha lehet valahogy egyszerűbben az is jó lenne.
Az a lényeg hogy azok a sorok kerüljenek át a B lapra ahol a C oszlopban nem nulla az érték.
Lehetőleg a makró adatváltozásra fusson le.
Előre is köszi a fáradozásért[ Szerkesztve ]
A kisebbség is számíít, teszkó.
-
Delila_1
Topikgazda
-
#02644736
törölt tag
Erre valaki?
Grafikont kellene csinálnom belőle.
-
fila
senior tag
Van kb 500 cellám tele függvényekkel.
Több esetben nem hoz adatot, hiányzik, zéróosztó stb. üzenetet ad.
Sokáig tartana átírni a képleteket hahiba függvényre, ami megoldás lenne nekem. (0 érték hiba esetén)
Meg lehet valahogyan oldani gyorsabban, könnyebben?
Köszi
5% kedvezmény kód minden rendelésre. iherb.com: ZCD546
-
Delila_1
Topikgazda
Laphoz rendeld:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then Masolas
End SubModulba másold:
Sub Masolas()
Dim usor As Long
Sheets("Munka2").Range("A:C").ClearContents
ActiveSheet.Range("$A:$C").AutoFilter Field:=3, Criteria1:="<>0"
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:C" & usor).Copy Sheets("Munka2").Range("A1")
ActiveSheet.Range("$A:$C").AutoFilter Field:=3
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
Sziasztok! Van egy érdekes problémám, eddig nem jött még elő. Van egy teljesen szimpla képlet az M oszlopban, mégpedig a B oszlop dátuma alapján egy FKERES függvény hoz egy árfolyamot.
Eddig működött, január óta nem akar. Ha a decemberi (az elválasztó vonal feletti részből) formátummásolóval áthozom az ecsetet, nem segít. Ha a cellát (oszlopot) dátumformátumúra állítom, nem segít.
Egyetleg dolog segít, ha én átírom/bepötyögöm a dátumot, akkor működik a képlet is. Miért is?
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Geryson #30627 üzenetére
Mégis baj lehet a B oszlop adataival.
Újra tedd a teljes oszlopot dátum formátumúvá, majd lépkedj végig azokon a cellákon a B oszlopban, ahol nem hozta az M oszlop képlete a jó értéket.
Cellán F2, majd Enter. Az F2 hatására szerkesztő módba kerül a cella, a kurzor az adat végén lesz, az Enter fixálja az értéket. Ha az van beállítva, hogy az Enter után lefelé lép a kurzor (ez az alapérték), akkor már adhatod is a következő F2-t, Entert.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
válasz Delila_1 #30629 üzenetére
Uch, ez kemény. 1.457 sort egy élmény volt végigpötyögni. Furcsa, mert ugyan ebből a táblázatból dolgozom évek óta, tehát ahonnan kimásolom az adatokat.
Hát köszönöm szépen, legalább orvosoltad még ha az okát így nem tudjuk...
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
alfa20
senior tag
sziasztok!
Makróban szűrők egy oszlopra és kierőltetem a látható cellákat
Range("G2:G" & usor).SpecialCells(xlCellTypeVisible).Selectviszont ha nincs szűrési feltét, akkor hibát kapok: "nincs ilyen cella" ezt hogy tudom át ugrani?
On Error GoTo tova1-al nem sikerültOn Error GoTo tova2
ActiveSheet.Range("A1:W" & usor).AutoFilter Field:=23, Criteria1:="szures"
Range("G2:G" & usor).SpecialCells(xlCellTypeVisible).Select
Selection.Font.Bold = True
tova2:"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
ny.janos
tag
válasz Geryson #30631 üzenetére
Erre fapados megoldásként azt javaslom a majd 1500 sorból a hibás adatok egyenkénti javítása helyett, hogy másold ki a hibákkal tarkított teljes oszlopot egy jegyzettömbbe (.txt), ami ezzel minden formázást elveszít. Az oszlop adatait törlöd ezt követően, az oszlopformátumot állítsd be dátumra, majd a jegyzettömbből másold vissza az értékeidet. Így minden egyes dátumodnak meg kellene javulnia.
-
ny.janos
tag
Kérdés: miért akarod eltüntetni a hibaértékeket?
Ha nem a látvány zavar, hanem további műveletet szeretnél végezni ezen cellákat tartalmazó tartománnyal, ami a hibaérték miatt nem lehetséges, akkor ellenőrizd az ÖSSZESÍT (AGGREGATE) függvényt, mert jó esély van arra, hogy használni tudod, és nem lesz szükséged 500 cella adatainak változtatására. -
#02644736
törölt tag
Sziasztok! Megint próbálkozok, hátha valaki tud segíteni. Van egy 12 oszlopos táblázatom, jó sok sorral, és diagramot kellene ábrázolnom az első és a tizedik oszlop adataival, de a tizedik oszlopban nem minden sorban van adat. Az megoldható, hogy a diagram ne vegye figyelembe ott, ahol nincs érték a tizedik oszlopban, vagy van rá valami képlet, macro, amivel azokat a sorokat ki lehet egy másik munkalapra másolni, ahol az első és a tizedik oszlopban is vannak adatok, hogy azután onnan csináljak diagramot? A táblázat folyamatosan bővül.
Tud valaki segíteni? -
wallair
csendes tag
Sziasztok!
Van egy 365 soros tábláztom aminek az első oszlopa a mintavételezés időpontja (YYYY.MM.DD HH:MM), a következő 2 oszlop is kézzel bevitt érték. A következő oszlopokban képletek. A képletek be vannak másolva mind a 365 sorba, az értékük viszont "---", ha még nincs feltöltve előttük a dátum, illetve a mért érték. Mindezt egy diagrammon ábrázolom, de a görbe utolsó pontja mindig a 0 értéket veszi fel, azaz a diagramm mindig eggyel több sort jelenít meg, mint ahány sor fel lett töltve adattal, ennek az értékét pedig nullának veszi.
Hogyan érhetném el, hogy a grfikonon megjelenített utolsó érték ténylegesen az utolsó feltöltött cellák értékeit jelenítse meg? -
gyga
senior tag
válasz Delila_1 #30626 üzenetére
Szia.
Kicsit térjünk vissza hozzá. Melyik paramétert kell módosítanom ahhoz hogy ne a C oszlopra szűrjön hanem pl X oszlopra?
Sheets("Munka2").Range("A:X").ClearContents
ActiveSheet.Range("$A:$X").AutoFilter Field:=24, Criteria1:="<>0"
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:X" & usor).Copy Sheets("Munka2").Range("A1")
ActiveSheet.Range("$A:$X").AutoFilter Field:=24Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 24 Then Masolas
End Sub
És még valami másoláskor csak értéket vigyen át a munka2re képletet és hivatkozásokat ne.A kisebbség is számíít, teszkó.
-
Mittu88
senior tag
Sziasztok!
Egy olyan, fájlokon átívelő makrót szeretnék írni, amivel frissíteni lehet az eredetileg indított fájlt (excelt).
Ez úgy működne, hogy megnyitom X fájlt. Ez érzékeli, hogy a szerveren egy rejtett mappában van-e olyan nevű fájl, mint ami az X fájl verziója. Ha nincs, akkor megnyitja Y fájlt, ami bezárja X fájlt, lemásolja a szerverről az X új verzióját, majd bezárja önmagát (Y fájlt), esetleg elindja X új verzióját az asztalról.Eddig ennyire jutottam: A FinoMin.xlsm az X fájl, az ujverzio.xlsm az Y fájl
X fájl ide vágó makrója
Private Sub UserForm_Activate() 'Login userform automatikusan indul a fájl megnyitásakor
On Error Resume Next
Application.ScreenUpdating = False
nincsujverzio = True 'Ha nincs új verzió, igaz, ha van, hamis.
Call Verzio
If nincsujverzio = False Then
MsgBox "Van új verzió!", vbOKOnly
Workbooks.Open "\\srv01v\database$\FinoMin\ujverzio.xlsm"
Application.Run "'ujverzio.xlsm'!nyitas"
End If
End sub
Private Sub Verzio()
Dim verziofajlnev As Variant
verziofajlnev = Dir("\\srv01v\Database$\FinoMin\")
While (verziofajlnev <> "")
If InStr(verziofajlnev, Login.verziolabel.Caption) > 0 Then 'A Login egy űrlap, aminek az egyik labeljén van a verziószám
nincsujverzio = True
Exit Sub
End If
verziofajlnev = Dir
nincsujverzio = False
Wend
End SubAz ujverzio.xlsm (Y fájl) makrója pedig külön modulban a nyitas, ami igy néz ki:
Public Sub nyitas()
Dim fajlnev2 As String
Dim idozito As Double
On Error Resume Next
Application.Visible = True
fajlnev2 = "FinoMin.xlsm"
Workbooks(fajlnev2).Saved = True
Workbooks(fajlnev2).Close 'Eddig jól működik, itt áll meg
FileCopy "\\srv01v\Database$\FinoMin\FinoMin.xlsm", "C:\Documents and Settings\" & Environ("username") & "\Desktop\FinoMin.xlsm"
FileCopy "\\srv01v\Database$\FinoMin\FinoMin.xlsm", "C:\Documents and Settings\" & Environ("username") & "\Asztal\FinoMin.xlsm"
Thisworkbook.Save
Thisworkbook.Close
End SubA probléma, hogy amikor fut a kód, a Workbooks(fajlnev2).Close résznél leáll az egész, mivel az eredeti fájl bezárul. Így pont a lényeg, az utána következő másolási folyamat marad ki, ergo nem frissül a fájl az asztalon.
Légyszi segítsetek, azt se tudom, hogy hogy keressek rá az ilyen problémára fórumokon. -
Delila_1
Topikgazda
Az eredeti kérdésedben a C oszlop értéke az A és B oszlopétól függött. A laphoz rendelt makróban azt az oszlopo(ka)t figyeld, amelyik(ek) befolyásolják az X értékét. Ha pl. az E és G oszlopok adják az X értékét, akkor:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =5 Or Target.Column =7 Then Masolas
End SubModulba:
Sub Masolas()
Dim usor As Long
Sheets("Munka2").Range("A:X").ClearContents
ActiveSheet.Range("$A:$X").AutoFilter Field:=24, Criteria1:="<>0"
usor = Range("X" & Rows.Count).End(xlUp).Row
Range("A1:X" & usor).Copy
Sheets("Munka2").Range("A1").PasteSpecial xlpaste.Values
ActiveSheet.Range("$A:$X").AutoFilter Field:=24
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
alikov
csendes tag
Sziasztok!
Segítségeteket szeretném kérni abban, hogy pl. 924 óra az hány nap, óra, perc.
Addig eljutottam 924/24=38 nap, de az óra:perc nem tudom hogy kellene kiszámolni.
Azt szeretném, hogy az egyik cellába ez legyen látható: 38 nap xx óra xx perc. -
-
föccer
nagyúr
---
Jó, leültem, rájöttem, hogy rég tanultam matekot. n.-dik gyök X = X 1/n-en. Én meg 10 perce rágom a kefét, hogy nem találom az n. gyök függvényt.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Fferi50
őstag
válasz Mittu88 #30642 üzenetére
Szia!
Úgy gondolom, a nyitas makró tartalmát az ujverzio.xlsm Workbook_open eseményébe kellene beletenned, így az a fájl megnyitásakor lefutna.
(Melyik excel verzióról van szó?)
De akkor sem tartom igazán szerencsésnek ezt a megoldást, mert a füzeteken keresztül-kasul ugráló makrók tudnak ám problémát csinálni.
Én egy külön fájlba tenném ezt a verzió kezelést, ami megnézné, hogy van-e új verzió, ha igen, végrehajtja a kimásolásokat és utána akár be is zárhatja magát.Üdv.
-
EmberXY
addikt
Sziasztok!
Oszlop összeadással kapcsolatos kérdésem lenne, azt már tudom, hogy egy teljes oszlopot hogyan lehet összeadni, de olyan kérdésem lenne, hogy van-e olyan képlet, ami csak egy bizonyos cellától lefelé adja össze a teljes oszlopot?
Köszönöm.Up the Irons!
Új hozzászólás Aktív témák
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office