- Júliustól kötelező biztosítást kell fizetni egyes rollerek után is!
- Huawei P30 Pro - teletalálat
- Milyen okostelefont vegyek?
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Élénk színekben várható a Galaxy Watch FE
- Yettel topik
- MIUI / HyperOS topik
- Ilyen lesz a CMF Phone 1
- KuKirin G4 - a sebesség ára
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
Hirdetés
-
Az EU-s bejegyzésekkel tréningezi az AI-t a Meta
it A Meta közölte: az AI tréningezéséhez ezentúl az európai közösségi médiás bejegyzéseket is felhasználják.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Tényleg jobban fogyaszt a Peugeot, az Opel és a Citroen?
ma Mármint magukhoz képest, a Stellantis csoport márkáiban használt CMP platformhoz tartozó hajtáslánc optimalizációjának eredménye a mindennapokban is érezhető.
-
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
-
lapa
veterán
válasz Delila_1 #3622 üzenetére
ne érts félre, nem kritikának szántam. élvezettel olvasom a megoldásaidat, tegnap is jót tanultam a dir() function részirűl, az application.filesearch-ben nem tudsz attribútumokra filterezni pl.
az meg pláne tisztelendő, hogy ilyen aktívan hosztolod a kedvenc programom totyikját
[ Szerkesztve ]
-
FehérHolló
veterán
válasz Delila_1 #3620 üzenetére
Viszonylag sokat keresgéltem tegnap, végül ez volt az a sok közül, ami némiképp megfelelne a célnak:
Sub SortAllRangeData()
' Place column header for temporary sort area.
Range("IV1").Value = "Numbers"
' Move numbers to temporary sort location.
For Each cell In Selection
Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
Next cell
' Sort numbers in ascending order.
Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Move sorted data back to original sheet location.
Selection(1, 1).Activate ' Make sure the ActiveCell is the
' top left of Selection first.
CCnt = Selection.Columns.Count
RCnt = Selection.Rows.Count
CellCnt = Selection.Cells.Count
Tcell = 2
For c = 1 To CCnt
For r = 1 To RCnt
Range(ActiveCell.Address).Offset(r - 1, c - 1).Value = _
Range("iv" & Tcell).Value
Tcell = Tcell + 1
Next r
Next c
' Clean up temporary sort location.
Range("IV1", Range("IV1").End(xlDown)).Clear
End SubEz viszont túl sok idő, mire lefut. A cél a kezelés kényelmesebbé tétele lenne, nem az, hogy akárhányszor hozzá van adva egy adat, mindig lefusson egy ilyen és rabolja az időt. Inkább a végén megcsinálom manuálisan a sorba rendezést mielőtt mentem.
Skynet is real. It's called Google.
-
FehérHolló
veterán
válasz Delila_1 #3632 üzenetére
Köszönöm, de a H-ban is van adat, csak annak nem számít a módosítása.
Különben a végén a Target.Row és Target.Column értékeivel vigyáznék, mert közben a copy miatt módosulnak.
Rendezőset csak holnap tudom kipróbálni, mert most mennem kell egy találkozóra.
[ Szerkesztve ]
Skynet is real. It's called Google.
-
Ősember
őstag
válasz Delila_1 #3643 üzenetére
nagyon keveset foglalkoztam excelel, igy megkérdezném, hogy hova irjam be ezt a kodot?
ha az alapértékek nem A1-ben lesznek majd, akkor ezt a sort kell modositanom, igaz?sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
amennyit kivettem belöle akármilyen hosszu ez a lista ez végig megcsinálja majd a müveleteket, stimmt?
[ Szerkesztve ]
______________________________________________________________________ www.rambazar.com - G.Skill minden szinten - 8GB DDR3 15.000Ft alatt!
-
cortez25
aktív tag
válasz Delila_1 #3644 üzenetére
Lehet,hogy bonyolult voltam
Szóval egyszerű a kérdés, van egy ugyanazon táblában egy listám, mondjuk nevekkel 30 db név. Ezeket a neveket 5 számhoz akarom hozzárendelni, úgy,hogy a végére elfogyjanak, vagy ne lehessen ismételni őket, viszont az 5 számhoz különbözö mennyiségű nevet is lehessen rendelni.
Na addig eljutottam,hogy a listát a számokhoz érvénysítettem, de attól a lista mindíg felajánlja ugyanazokat neveket és akár egy számhoz többször is ugyanazt a nevet gördítem le. Na ezt nem akarom.
[ Szerkesztve ]
Azért hajtunk, hogy öregségünkre legyen miből visszaállítani az egészségünket, ami ebbe ment tönkre.
-
Ősember
őstag
válasz Delila_1 #3647 üzenetére
hello
megy rendesen csak egy gondom van... amikor éppen megcsinálom a makrot akkor teljesen jo minden, müködik pikk pakk akárhányszor csak akarom, de amint kilépek az excelböl és ujra használni szeretném nem inditja el a makrot arra hivatkozva, hogy tul magas a biztonsági szint. ha leveszem a biztonsági szintet egészen alacsonyra, akkor is azt irja, hogy a biztonsági szint magas.... valamit ötlet?______________________________________________________________________ www.rambazar.com - G.Skill minden szinten - 8GB DDR3 15.000Ft alatt!
-
-
Ősember
őstag
válasz Delila_1 #3655 üzenetére
nem tudom de amikor elöször csak a biztonsági szintet állitottam akkor is a biztonsági szintre hivatkozván nem engedte végrehajtani a müveletet miután ujra emgnyitottam a dokumentumot.
______________________________________________________________________ www.rambazar.com - G.Skill minden szinten - 8GB DDR3 15.000Ft alatt!
-
Ősember
őstag
válasz Delila_1 #3643 üzenetére
azt még szeretném megkérdezni, hogy meg lehet-e azt oldani, ha "A" oszlopban van 1 sor kihagyás, de utána folytatodik, akkor is kiszámolja az összes számot? mert jelen helyzetben az van, hogy ha van egy sorkihagyás, akkor csak a sorkihagyásig számolja ki az eredményeket. válaszod elöre is köszönöm
______________________________________________________________________ www.rambazar.com - G.Skill minden szinten - 8GB DDR3 15.000Ft alatt!
-
-
Okoska2
aktív tag
válasz Delila_1 #3671 üzenetére
Probálkozok egy ideje de nem jövök rá hogy és hova kell berakni.
=SZUM(B8)+(D8-200)*10+(E8*1000)+K8 Itt ha a D8 (a D8-at is már az Excel számolja) egyenlő vagy kissebb mint 200 akkor hibát kapok. Mivel ritkán kapok 200-nál kissebb értéket eddig nem zavart. De jó lenne ezt is berakni nehogy egyszer ne vegyem észre és rossz eredméyt fogadjak el.
Szoval ha D8 kisseb vagy egyenlő 200-al akkor automatikusan irja át nullára.
Ebben segítsetek légyszi.Előre is köszi!
Milyen operációs rendszert használsz? - Lidocaint és szikét.
-
Delila_1
Topikgazda
válasz Delila_1 #3651 üzenetére
Adtam címsorokat, hogy kimutatást lehessen készíteni az adataidból. A képen sárgával jelölt területet Tábla névvel láttam el.
A G2 képlete:
=B2&C2&D2&E2&F2
[Itt a kép]Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Chiller
őstag
válasz Delila_1 #3689 üzenetére
Hálásan köszönöm, ez nagyon jó!
Egyetlen pici gondom van, hogy elfelejtettem mondani, nem csak egy számjegyűek a számok, hanem vegyesen 1 és 2 számjegyűek, és így nem jó az '&' jel... Mivel pld
1 13 3 45 4 és 11 33 4 5 4 is 1133454-et ad ki, holott ugye más az alapérték...
Tudom, csak a gond van velem -
chop
őstag
válasz Delila_1 #3716 üzenetére
Sajnos nem ilyen egyszeru. Ahogy latszik, egy adatsorom van (X es Y koordinatakkal), es ezekhez szeretnem hozzailleszteni a betuket, hogy latszodjon, melyik adatpontrol is van szo.
A 1 3
B 2 4
C 5 9
D 5 7Tehat a koordinata rendszerben felveszem az adatpontokat es azt szeretnem, hogy az pl. az 1;3-as adatponthoz odairja, hogy A. A tobbihez hasonloan.
A feliratok fulon nekem sajnos nincs olyan, hogy "Felirat latszik", csak olyan kozul tudok valasztani, hogy:
- adatsor neve (ezzel nem vagyok elorebb, mert nem az osszese kell, csak aze az egy bizonyos ponte)
- x ertek
- y ertekA tobbi meg szurke.
-
ssrobi
csendes tag
válasz Delila_1 #3748 üzenetére
Azért persze csak lenne még egy kérdésem Mi kell ahoz, hogy az utolsó celle alá lépjen, mert én oda ismét beillesztenék valamit Illetve az alábbival mi a gond:
Range("A16:j" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("nyilvántartás").Activate
Cells(1,1).Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falseés a Cells(1,1).Select-re mindíg valami hibát ír ki, azért mert magát a makrót induláskor egy másik lapról indítom, vagy leglábbis gondolom hogy azért mit kéne tegyek, tudnátok segíteni?
köszike
-
ssrobi
csendes tag
-
ssrobi
csendes tag
válasz Delila_1 #3757 üzenetére
kár
Viszont felmerült még egy kérdésem, amit szintén nem tudok megoldani
Ha van egy oszlopban mondjuk 600 sorban adat (legyen A oszlop), és vannak bennük ismétlődések, hogyan tudom kiszedni azokat a sorokat amik legalább egyszer szerepelnek, és mondjuk ezt átrakni ezeket a B oszlopba!?
Lehet egyáltalán ilyet?
köszi[ Szerkesztve ]
-
Oly
senior tag
válasz Delila_1 #3813 üzenetére
Ezzel az egymásbaágyazós dologgal már megoldottam...
=HA(HIBÁS(FKERES($A22;_classic_;2;HAMIS));HA(HIBÁS(FKERES($A22;_design_;3;HAMIS));HA(HIBÁS(FKERES($A22;_kieg_;2;HAMIS));"Béna vagy?";FKERES($A22;_kieg_;3;HAMIS));FKERES($A22;_design_;3;HAMIS));FKERES($A22;_classic_;3;HAMIS))
de azt hittem, van valami egyszerűbb megoldás.
[ Szerkesztve ]
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
válasz Delila_1 #3815 üzenetére
Neked lehet, hogy átláthatóbb... nah meg a hely sem adja ki.
Egy nyomtatandó megrendelőlapon kell ezt megoldanom.Először 3 dimenziós hivatkozással sakkoztam, de ez a nyommorult fkeres nem képes kezelni.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
Új hozzászólás Aktív témák
- Júliustól kötelező biztosítást kell fizetni egyes rollerek után is!
- Vezetékes FEJhallgatók
- Az Xbox Series X|S konzolnak három új verziója jön idén
- PlayStation 5
- Tippmix
- Milyen TV-t vegyek?
- EAFC 24
- Elektromos rásegítésű kerékpárok
- Skoda, VW, Audi, Seat topik
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Steam kulcsok - UTALÁS/REVOLUT
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen