- Házimozi haladó szinten
- Milyen egeret válasszak?
- Vezetékes FEJhallgatók
- Így nézz tévét 2025-ben: új ajánlások, régi szabályok
- Bluetooth hangszórók
- Milyen billentyűzetet vegyek?
- HP notebook topic
- 5.1, 7.1 és gamer fejhallgatók
- Azonnali VGA-s kérdések órája
- Vélemény: nem úgy tűnik, de Lip-Bu Tan most menti meg az Intelt
-
PROHARDVER!
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
-
-
#25635
TrollBalint
addikt
Delila_1
#25630
TrollBalint
addikt
-
grondby
újonc
válasz
Delila_1
#25612
üzenetére
Kedves Delila!
Sajnos nem tudok makrókat írni, de nagyon szeretnék, a fórumokból sokat tanulok. Lenne ezzel kapcsolatban még egy kérésem: a C oszlopban is lenne egy adatfelvitel, mint a B oszlopban és annak a segédoszlopa pedig az I oszlop. Egyszerre kettő képes-e futni, nyilván a makrót módosítani kell hozzá.
-
#25600
total_tobi
csendes tag
Delila_1
#25599
total_tobi
csendes tag
válasz
Delila_1
#25599
üzenetére
huhhh, ez g-re igaz? Mi van akkor ha dkg vagy kg kerül a helyére... most tesztelem mit is csinál amit írtál...
a lényeg az lenne, hogy van 3 bemeneti mezőm....
Pl mennyiség, ár, mértékegység
10 520ft g
ezt számolja át dkg-ra, kg-ra. Vagy ha valami kg-ba van megadva akkor számolja át a másik kettőbe is....
meg vagyok akadva....
Köszi... -
Fferi50
Topikgazda
válasz
Delila_1
#25423
üzenetére
Szia!
Ha már makró, próbáljuk meg tömbfüggvénnyel:
Function szetszedo(ByRef cl As Range)
alap = cl.Value
alap = alap & String(2 - UBound(Split(cl.Value, "*")), "*")
szetszedo = Split(alap, "*")
End FunctionKijelölöd a 3 cellát vizszintesen, ahová az eredményt szeretnéd kapni.
Ezután beírod =szetszedo(A1) , ha a "szétdobandó" szám az A1 cellában van.
Tömbképletként (shift+Ctrl+Enter) beviszed.Üdv.
-
alfa20
senior tag
válasz
Delila_1
#25309
üzenetére
Köszi, de az azért nem jó, mert ha a terv pl: -100 és a tény 80 akkor +180%-nak kell lennie az értéknek, a sima B2/A2-vel meg -80% lesz az érték.
a B2/-A2 sem jó mert akkor meg igaz, hogy pozítív lesz az érték de csak 80 és nem 180.
ugyan ez a helyzet, ha a terv +100 a tény -100 nekem -200% kell eredményűl nem -100%... -
marcyman
aktív tag
válasz
Delila_1
#25190
üzenetére
Köszönöm a segítségeteket!
Csatoltam egy képet, amin demonstrálom hogy hogyan van most megcsinálva a táblázat.
Annyi a különbség, hogy felül szűrők vannak. Paraszt módon rászűrünk egy napra és egy cégre, és fogjuk a cellákat, összehúzzuk, leolvassuk az átlagukat alul és beírjuk, majd copy pasttel átnyomjuk az alatta lévő cellákba.Szóval ilyen kimutatás meg adatbázis nélkül ezt nem lehetne valahogy automatizálni? Az a baj, hogy a beszállítók mindig változnak, jön új hozzá akár naponta is.
A táblázatot igazából teljesen át kellene írni, de ha anélkül meg lehetne oldani az lenne a legjobb.
-
KERO_SAN
aktív tag
válasz
Delila_1
#25107
üzenetére
Szia!
Elakadtam egy kicsit.
ALT+F11-el megnyitottam a VBA editort, a laphoz hozzárendeltem a kódot, beillesztettem egy üres modult, oda is bemásoltam az általad írt kódot, mentettem.
Viszont ha ALT+F8-al futtatni akarom a makrót, akkor egy sincs a listámban
És, ha kitöltök egy új sort a végéig, akkor sem történik semmi.
Mit ronthattam el ?
-
Backrau
aktív tag
válasz
Delila_1
#25138
üzenetére
Nem teljesen. Az A' oszlopban a dátumok vannak 2015.01.01-től 12.31-ig. A B' oszlopban pedig egy alkatrész típus számai. Az egész táblázat előre kialakított az egész évre. A lényeg, ha 2015.03.01-én történt egy hiba az adott alkatrésszel én beírom a B' oszlopba az alkatrész számát és töltöm ki tovább a sort. De ha mondjuk van az adott naptári napon még egy hiba, azt jelenleg nem tudom hova beírni, csak ha én kézileg hozzáadok egy sort. Magyarán azt szeretném, ha én beírok tegyük fel 2015.03.01-re egy hibát, akkor automatikusan hozzon létre egy új sort ugyanazzal a dátummal. (Esetleg, ha nem kerül semmi beírásra tűnjön el.) Ez azért lenne fontos, mert ez egy védett doksi lesz, és csak az engedélyezett cellákba lehet majd írni.
-
KaliJoe
tag
válasz
Delila_1
#25121
üzenetére
Szia Delila_1,
Próbáltam... :-)
Üres makrót eredményez... a nyomtatás ablak előhívása nem vált ki programsor rögzítést, viszont ha elküldöm a nyomtatást, akkor egy egészen másik parancsot hoz. Nevezetesen ez:ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
-
KERO_SAN
aktív tag
válasz
Delila_1
#25090
üzenetére
Egyelőre nincs, csak 1 fő táblázat, az altáblák helye irreleváns, egyszerűség kedvéért maradhat a munkafüzeten belül. Már nézegettem megoldásokat, gondolom valami makróra lesz szükségem, de még sosem csináltam ilyet. Szóval a makrónak vagy a függvénynek kéne létrehozni az új táblákat, de amennyiben ez jelentős megvalósítási nehézségekkel jár, úgy megcsinálhatom kézzel is. A lényeg, hogy az új sorok kerüljenek át a megfelelő táblákba automatikusan.
Azt szeretném ha átmásolná, és az eredeti tábla megmaradna.
Az oszlopok száma 18.
Köszi szépen előre is
-
sgery
őstag
-
Geryson
addikt
válasz
Delila_1
#25018
üzenetére
Wow, köszönöm, na ezt gyorsan ki is próbálom!
KaiotEch: A pivot volt nekem is az első javaslatom, de valahogy azt nem sikerült úgy működésre bírnom, hogy csak akkor listázzon egy sort, ha az "igen" ott van, egyéb esetben nem. Mondjuk a kis videót köszönöm, meglesem, hátha tanulok megint valamit belőle!
-
-
-
BenJoe80
senior tag
válasz
Delila_1
#24847
üzenetére
Nem tudom mennyire marad így, de úgy néz ki sikerült megoldani.
Az érvényesítési oszlop (ahol a legördülő listák vannak) szélességét beállítottam 40-re, majd elmentettem és bezártam a táblázatot. Amikor újból megnyitottam, akkor a szélességet visszaállítottam az eredeti 5-re és mentettem. A legördülő lista szélessége azonban maradt.
Még egyszer nagyon szépen köszönök minden segítséget!
-
-
BenJoe80
senior tag
válasz
Delila_1
#24842
üzenetére
Még egy utolsó kérdés: hogy lehet a legördülő lista szélességét beállítani? Megfigyeltem, hogy az általad módosított táblázat legördülő listájában szépen olvasható a kód és név (legnagyobb része) egymás mellett. Amit én csináltam, ott meg a kód is csak ímmel-ámmal fér be legördülő lista szélességébe.
Pontosítok. A táblázatodban a legördülő lista szélesebb mint maga az oszlop, míg az enyémben csak olyan széles, mint maga az oszlop.
-
BenJoe80
senior tag
válasz
Delila_1
#24842
üzenetére
Nagyon szépen köszönöm!!! Közben kértem segítséget máshonnan is és ha nem baj összehasonlítanám a tieddel. A te makród:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Application.EnableEvents = False
Range(Target.Address) = Left(Target, 4)
Application.EnableEvents = True
End If
End SubA másik amit kaptam:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing And Target.Value <> "" Then
ActiveCell.Value = Left(Target.Value, 4)
End If
End SubBár mindkét makró pontosan azt teszi amire szükségem van, csupán kíváncsiságból: mi a különbség?
-
BenJoe80
senior tag
válasz
Delila_1
#24825
üzenetére
Szia Delila_1!
Először is köszi az önzetlen segítségedet úgy most, mint a múltban (volt pár alkalom).
Megnéztem az általad módosított táblázatot, de amit én igazából szeretnék, hogy a legördülő lista az "A/C" oszlopban (D5:D70 tartomány) legyen. Mégpedig úgy, hogy a legördülő listában legyenek a választható, összesített tételek (pl.: 1000 Income, 1100 Other income... stb.), viszont amint kiválasztom a megfelelő tételt, az "A/C" oszlopban ((D5:D70 tartomány) csak a tétel kódok legyenek láthatóak (tehát: 1000, 1100... stb.)
Ez megoldható?
Egyenlőre előre-hátra lapozok az adott hónap és az "Acc." lap között, mert fejből nem tudom az összes tétel kódját és arra gondoltam, így egyszerűbb lenne. Viszont a tétel neve nem kell(ene).
-
csferke
senior tag
válasz
Delila_1
#24819
üzenetére
Arra gondoltam, hogy a nyomtatási parancsban valahol meg lehet adni, hogy ne nyomtassa azokat a sorokat ahol F oszlop cellája üres.
Valamikor a múltban tőled kaptam 2 néhány soros makrót. Egyik eltünteti az üres sorokat a másik visszahozza őket
. Beillesztettem közéjük a nyomtatást. Működik. Picit lassú, de mivel csak évente párszor kell ez a nyomtatás, hát kivárom. -
csferke
senior tag
válasz
Delila_1
#24817
üzenetére
Sziasztok!
Egy táblázat A-F oszlopaiból szeretném kinyomtatni az A,B és F oszlopokat de csak azokat a sorokat amelyeknek az oszlopa nem üres.
Eddig eljutottam
de itt a nyomtatásban látszanak azok a sorok is melyeknek az F oszlopa üres.Ezt a nyomtatást egy ActiveX Command Button-al kellene lefuttatni Excel 2007-ben.
köszi
-
KaliJoe
tag
válasz
Delila_1
#24712
üzenetére
Kedves Delila_1,
Köszönöm, kipróbáltam az Általad ajánlott verziót is. Működik és jó, de nekem akkor is "meg kell szólaljon" az összegzés, és akkor is csak az utolsó hónapra nézve, ha az utolsó rekord van éppen az adatbázisban. Tehát a teljes hónapokon túl, az éppen aktuális hónap törtrészét is megjeleníti.
Ezért igazítottam úgy a képletet, h max 31 nappal előtti időktől kezdve kezdje a feltételes összegzést. -
KaliJoe
tag
válasz
Delila_1
#24705
üzenetére
Nem. A DÁTUM függvény 3 paramétert vár, DÁTUM(év;hónap;nap) formában.
Most azzal küzdök, h tömbhivatkozást hozzak létre az INDIREKT függvénnyel, de valamit nem úgy csinálok, ahogy elvárja.
=CÍM(4;8;1;1) - OK
=CÍM(SOR(B33);8;1;1) - OK
=INDIREKT(CÍM(4;8;4;1)&":"&CÍM(SOR(B33);8;4;1);IGAZ) - Nem OK. #ÉRTÉK! hibát ad.Ötlet?
-
KaliJoe
tag
válasz
Delila_1
#24695
üzenetére
Kedves Delila_1,
Szuper a megoldásod. Tetszik. Igazán.
Azonban ezen a nyomon elindulva nekem olyan kell, ahol segédoszlopokat sem kell használnom.
Épp azon dolgozom, h olyan általános megoldás legyen, amely akkor is - #HIV - hiba nélkül működik, ha még a rekordok száma nem érte el a 31-et, mert ennél kevesebb adatnál a direkt címzés gondot okoz.
Addig is ide írom azt a megoldást, ami 31 sornál és annál többre már kitűnő:=HA(VAGY(ÜRES(A32);B31=HÓNAP.UTOLSÓ.NAP(B31;0));SZUMHATÖBB(H1:H31;B1
31;">=" & DÁTUM(ÉV(B31);HÓNAP(B31);1);B131;"<=" & DÁTUM(ÉV(B31);HÓNAP(B31);NAP(B31)));"")
Üres makrót eredményez... a nyomtatás ablak előhívása nem vált ki programsor rögzítést, viszont ha elküldöm a nyomtatást, akkor egy egészen másik parancsot hoz. Nevezetesen ez:
Új hozzászólás Aktív témák
Hirdetés
Fferi50- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Házimozi haladó szinten
- Milyen egeret válasszak?
- Autós topik
- Gitáros topic
- Viccrovat
- Macska topik
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- Vezetékes FEJhallgatók
- Kerékpárosok, bringások ide!
- További aktív témák...
- Assassin's Creed Shadows Collector's Edition PC
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Bomba ár! HP EliteBook 830 G8 - i5-11GEN I 16GB I 512GB SSD I HDMI I 13,3" FHD I Cam I W11 I Gari!
- AKCIÓ! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB GDDR6 Rampage Shiva Zalman 500W
- Bomba ár! Dell Latitude 5590 - i5-8GEN I 8GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Gari!
- Dell Latitude 5495 Full HD IPS Ryzen 5 pro 2500u Radeon Vega Mobile Gfx i5-8350u verő Bp MPL Foxpost
- LG 55C4 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen7 CPU
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest