-
IT café
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
-
sgery
őstag
válasz Delila_1 #25055 üzenetére
2013-as office-ban dolgozom jelenleg.
Megpróbáltam ismét újra a mostani verzióval amit írtál, ez már egy fokkal jobb volt, de 0:50 fölött már nem számolt továbbViszont alfa20 kolléga képlete működik tökéletesen
Köszönet mindenkinek, aki fáradozott a problémámmal
FurTv-s Lapeno figurát keresek, aki tudja hol lehet venni szóljon!!!:)
-
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
the troopa of tomorrow _ maydayzor FUTURE WALKS
-
KaliJoe
csendes 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
Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
-
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.
-
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 ?
[ Szerkesztve ]
the troopa of tomorrow _ maydayzor FUTURE WALKS
-
Wyll
őstag
-
Wyll
őstag
válasz Delila_1 #25211 üzenetére
Ez valóban az értékeket kivágja, és beilleszti, de a sorokat, ahol az értékek voltak, nem.
De az eredeti kiírásnak a Selection.Delete Shift:=xlUp sora erre a szándékra enged következtetni.
A .Row hiányokat visszavonom.
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
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.[ Szerkesztve ]
-
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%..."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Fferi50
őstag
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.
[ Szerkesztve ]
-
-
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...uff
-
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á.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs