- Ennyibe kerülnek a Huawei Pura modellek Európában
- Mobil flották
- Telekom mobilszolgáltatások
- DIGI Mobil
- iPhone topik
- Samsung Galaxy A54 - türelemjáték
- Apple iPhone 11 - népalma
- Motorola Edge 40 neo - színre és formára
- Termékoldal buktatta le a Huawei Watch Fit 3-at
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
Hirdetés
-
A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
ph A cég újdonsága azokat célozza, akik egy nagyobb fajta, hüvelykujjtámasszal ellátott, ugyanakkor pehelysúlyú eszközt vásárolnának.
-
Hi-Fi RUSH - Ismét felbukkant a Nintend Switch változat
gp Ezúttal az európai korhatár-besorolás oldalán találkozhattunk a játék adatlapjával, egyre esélyesebb hogy újabb platformra is befut a program.
-
Az üzleti chatbot lehet az új fejőstehén
it Üzleti chatbotot indított az Anthropic, azt reméli, hogy sok pénz folyik majd be a cégektől.
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz #05304832 #14951 üzenetére
Szívesen, örülök, hogy sikerült összehozni.
Köszönöm a felajánlást. Úgy látszik, Debrecen tele van asztalosokkal, akik Excelt használnak. Nemrég költöztem, és a szükséges asztalos munkákat egy olyan srác végezte, akinek régebben ezen a fórumon segítettem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
Üdv!
Adott egy tábla, A és B (és C és D) oszlop.
Össze kellene számolnom képletben, hogy hány darab olyan elem van az A oszlopban, ami "ABCD"-vel kezdődik, feltéve, hogy a B oszlop adott sora nem üres....[ Szerkesztve ]
-
félisten
válasz poffsoft #14955 üzenetére
Nem tudom, milyen verziójú az Excel, de ha 2007 vagy újabb akkor
=COUNTIFS(A1:A6;"abcd*";B1:B6;"<>" &"")
Ha a teljes A és B oszlopot vizsgálnád, akkor
=COUNTIFS(A:A;"abcd*";B:B;"<>" &"")
(magyar Excel-ben DARABHATÖBB a megfelelője)
UI: Ha a 2003 vagy régebbi Excelben is kell használni/használják a táblázatot, akkor ez nem jó megoldás.
[ 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)
-
poffsoft
addikt
válasz Fire/SOUL/CD #14956 üzenetére
Köszi,
ha jól emléxem 2007-es, magyar, holnap megpróbálom, mert a melóhelyen kell[ Szerkesztve ]
-
zz76zz
csendes tag
Help plízzz!
Dátumból szeretnék szöveg formátumot.
Ha megcsinálom azt hogy átmásolom másik oszlopba kiveszem a pontokat és szöveges cellaformátumot csinálok, akkor minden okés, de amint makróba teszem, átalakítja a exceles tárolási formára pl: 41106erre fordította a makrorögzítő, amit fentebb leírtam:
Columns("B:B").Select
Selection.Copy
Columns("F:F").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("F:F").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Selection.NumberFormat = "@"
Mi a hiba? vagy hogyan tudnám egyszerűbben átalakítani?www.vagyunk.hu
-
Delila_1
Topikgazda
válasz #05304832 #14953 üzenetére
Ezt nem értem. Tegyél be egy képet, ahol 2 egyforma sor van, és alá írd be, mi legyen ezekből.
Rövid nevű adatokat adj, hogy jól láthatóak legyenek ennyi oszlop esetén is. Elég, ha az adatok 1-1 betűből, számból állnak.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz #05304832 #14963 üzenetére
Az összefűzésből kihagyom az F oszlopot, az M oszlopba beíratom a SZUMHA függvényt, ennek az értékét másoltatom az F oszlopba.
Sub Gyomlal_1()
Dim sor%, usor%
usor% = Range("A1").End(xlDown).Row
'Adatok összefűzése az N oszlopba
Range("N1") = "Összefűzve"
Range("N2:N" & usor%) = "=A2&B2&C2&D2&E2&G2&H2&I2&J2&K2&L2"
'Irányított szűrés az U oszlopba
Range("N1:N" & usor%).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"U1"), Unique:=True
'M oszlopba FKERES-sel darabszám, AE-be SZUMHA függvény
Range("M1") = "Egyedi tétel"
For sor% = 2 To usor%
Range("M" & sor%) = Application.WorksheetFunction.VLookup(Range("N" & sor%), Range("U:AD"), 10, 0)
Cells(sor%, "AE").FormulaR1C1 = "=SUMIF(C[-17],RC[-17],C[-25])"
Next
Range("AE2:AE" & usor%).Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues
'Azonos sorok törlése
For sor% = usor% To 2 Step -1
If Application.CountIf(Range("N:N"), Range("N" & sor%)) > 1 Then _
Range("A" & sor% & ":M" & sor%).Delete shift:=xlUp
Next
'Segédoszlopok adatainak törlése
Columns("M:AE").ClearContents
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.
-
Balinov
félisten
sziasztok, bocs, ha hulye a kerdes, de Excel 2007-ben meg lehet oldani valahogy, hogy filternel a listat elohozva azt atmeretezve kesobb, default is akkora listat mutasson?
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
gyga
senior tag
Két dátum közötti különbséget évre kerekítve kellene kiszámolni. Ebben kérek segítséget pl:
1988.01.01 és 2010.02.03. között 22 évA kisebbség is számíít, teszkó.
-
gyga
senior tag
Ez a feladat:
Készítsen egy körlevelet: amelyben értesíti a címzetteket fizetésemelésről. 20%-os fizetésemelést kapnak, azok, akik a cégnél 20 évnél nem régebben dolgoznak, ugyanakkor, akik a cégnél 20 éve vagy ennél régebben dolgoznak 25%-os fizetésemelésben részesülnek. A ledolgozott időt egész számra kerekítsük, a táblázatot Excelben készítsük. A levélben hivatkozzon a címzett nevére, régi és új fizetésének értékére, egyúttal a levél alján szerepeljen a mai nap dátuma is automatikus frissítéssel.
Erre kellene segítség, hogyan kell megoldani?
A kisebbség is számíít, teszkó.
-
Delila_1
Topikgazda
válasz zz76zz #14972 üzenetére
=ÉV(C1)&HÓNAP(C1)&NAP(C1), utána szöveg formátumot adsz az oszlopnak, vagy saját magára értékként beilleszted.
A makróban az utóbbinál így hivatkozol rá:
változó=b1&"", ettől szöveggé konvertálódik[ 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.
-
lappy
őstag
Szia!
=INT((D6-E6)/365,25)
ez kiszámolja hogy mennyi a ledolgozott idő a legközelebbi egész felé kerekítve.
A többi feladat rád vár hogy megold azt hogy ha 20 kisebb vagy nagyobb akkor hogyan változik a fizetése!
A D6 a mai nap![ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Vizes Tomi
tag
Üdv Mindenkinek !
Egy meglehetősen láma kérdést szeretnék feltenni, Az egyik excel táblázatom fejlécében szögletes zárójelben megjelent az, hogy Csoport. Azóta bizonyos funkciókat nem tudok használni. Mi lehet a baj, illetve a munkafüzet megosztása dolgokat megnéztem és ott nincs átállítva semmi.
Köszönöm
-
lappy
őstag
-
félisten
válasz Vizes Tomi #14988 üzenetére
Több munkalap van kijelölve. Kattints valamelyik munkalap fülön jobb egérrel és csoport szétbontása.
[ 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)
-
Traxx
őstag
Sziasztok!
Nem olyan régen segítettetek nekem egy táblázattal kapcsolatban, amely összességében kiváló, kaptam miatta az elismerést, de tiétek az érdem Viszont kértek egy kiegészítést, aminek a legegyszerűbb megoldására nem tudok rájönni.
A könnyebb érthetőség kedvéért feltöltöttem ide a fájlt. A harmadik, Nyh munkalapon lenne a probléma, a Karbantartási lap. Ennek az lenne a lényege, hogy az adott hónapban, amikor van valamilyen esemény, ez töltődjön ki, és ezt a lapot kinyomtatva odaadjuk a feladatot végző kollégának, aki a feladat elvégzését ezzel tudja igazolni. Viszont ezt a lehető legkevesebb melóval szeretném megoldani, tehát lehetőleg úgy, hogy ha kitöltöm pl. a javítás dátumánál szereplő dátumot mondjuk a C37-be, akkor hozza az Elvégzett munka megnevezésénél az Ellenőrzés 2-t, ill. a Cserélt alkatrésznél szereplő bejegyzést. És előre nem igazán jutok
Jó az a megoldás is, hogy egy ilyen javítási lap lenne, és az mindig felülíródna, vagy az a megoldás is tökéletes, hogy ha mindegyik eseményhez van külön lap (ha szükséges persze).
Előre is köszönöm ismét 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)
-
Vizes Tomi
tag
válasz Fire/SOUL/CD #14989 üzenetére
Igen ez volt a baj
Köszönöm
-
Ceree
senior tag
Sziasztok!
Segítséget szeretnék kérni.
Ki lehet valahogy kapcsolni az Excel 2010-ben, hogy megnyitás után feldobja automatikusan, hogy menteni szeretném-e a dokumentumot? Mert oké, ha módosítok rajta, dobja fel, de ha csak megnyitom ezeket a doksikat, kilépésnél akkor is feljön.
Ez azért nagy probléma, mert egy makró futtatásánál elég gáz, hogy minden egyes adatkinyerésre megnyitott doksi után rá kell menni, hogy ne mentse...
Előre is köszi:
CereeMásolat_eredetije
-
Delila_1
Topikgazda
válasz zz76zz #14942 üzenetére
Eléggé dodonai módon fogalmaztál. Van egy oszlop cikkszámokkal... Hol van az az oszlop?
Írtam egy makrót, ahol a Munka1 lap A oszlopában van a cikkszám, az első sorban a dátumok. A cikkszámok sorában, a fenti dátumok oszlopában az aznap rendelt mennyiségek.
Ezekből az adatokból készít a makró egy új táblázatot a Munka2 lapon, ahol az A oszlop a cikkszámot tartalmazza, a B a dátumot, a C pedig a rendelt mennyiséget. Azokat a napokat, mikor nem volt a cikkszámhoz tartozó rendelés, kihagyja.
Ha nem ilyent szerettél volna, magadra vess a homályos fogalmazás miatt.Sub valami()
Dim sor%, usor%, oszlop%, uoszlop%, WS As Worksheet
Dim sorW%, cikksz, f As Boolean
usor% = ActiveSheet.UsedRange.Rows.Count
uoszlop% = ActiveSheet.UsedRange.Columns.Count
Set WS = Sheets("Munka2")
sorW% = 2
Sheets("Munka1").Select
Application.ScreenUpdating = False
For sor% = 2 To usor%
cikksz = Cells(sor%, 1)
For oszlop% = 2 To uoszlop%
If Application.WorksheetFunction.CountA(Rows(sor%)) > 1 Then
f = False
If Cells(sor%, oszlop%) > 0 Then
WS.Cells(sorW%, 1) = cikksz
WS.Cells(sorW%, 2) = Cells(1, oszlop%)
WS.Cells(sorW%, 3) = Cells(sor%, oszlop%)
f = True
End If
End If
If f Then sorW% = sorW% + 1
Next
Next
Sheets("Munka2").Select
Application.ScreenUpdating = False
End SubSzerk.: a sorok és oszlopok számától függően elmókuskálhat a makró egy darabig.
[ 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.
-
Delila_1
Topikgazda
válasz zz76zz #14996 üzenetére
Szívesen. E-könyvet nem tudok ajánlani, majd valaki más.
Nézelődj a fórumokon, és a YouTube-on.
A nyelvet megtanulhatod, a logikára rá kell érezni. Sokat segít a gyakorlá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.
-
Traxx
őstag
-
föccer
nagyúr
Üdv!
Az alábbi feladat megoldásában kérem a segítségeteket.
Adott egy közepes táblázat, amiben különböző lehetőségek összehasonlítását kell elvégezni.
Utolsó előtti lépésként megkapunk 3 különböző variációra vonatkozó ktg értékeket. Ebből kellene a "hogyan érdemes" oszlopba beírnom, hogy melyik variációra jön ki a legalacsonyabb ktg.
Az eredmény vehető az S44:U44 tartományból is.
Mindezehez nem használható makró, csak sima függvényekkel lehet megoldani a feladatot.
Köszi szépen
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- World of Warcraft Shadowlands Collectors edition EU EN
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)