-
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
-
Hobbbyt
őstag
válasz Pakliman #40452 üzenetére
Jogos.
Inkább a kihívás az ami izgat, nem a szükség.. de szeretném megoldani és "időtállóvá" tenni.Ott oldalt már próbáltam összetenni valamit a HOL.VAN, Indirekt és címek megadásával de valahogy nem áll össze.
(#40453) lappy :
Azért nem, mert ebben az excelben, egy helyen kezelem az összes bevételem, kiadásom, lakhatási költségeket és mindent amit egy mérnök tudni szeretne az élet "áráról"[ Szerkesztve ]
10 féle ember van: aki ismeri a bináris számrendszert, és aki nem.
-
p5quser
tag
válasz Pakliman #40482 üzenetére
Igen, az összes eddigi próbálkozásaimnál ez a hiba jött...
Az alábbi képen próbáltam egybeszedni amit javasoltál és a userform egy részletét, ahogy alkalmaznám.
Idáig egyébként mindenhol Sheets(1), Sheets(2), stb néven hivatkoztam a munkalapokra, pont a rövidítések végett.
Baffuf...
Pill...[ Szerkesztve ]
-
mindanee
tag
válasz Pakliman #40507 üzenetére
Szia,
köszönöm a segítséget.
3 különböző excel struktúra van, így az általad említett módszer járhatónak tűnik.
Struktúra:
Bemeneti oldalon: B-től Z-ig vannak az oszlopok, 10. sor az első adatsor. Annyi sor van, ahány rendelés.Kimeneti oldalon: A oszloptól indulva U-ig, 2. sorba kerüljön az adatsor.
Szóval leegyszerűsítve a táblázatot "feltolom" bal felülre (A2-től indulva). Az még elképzelhető, hogy az oszlopsorrendnek máshogy kell lennie, mint ahogy a bemeneti excelben van, de maga a kimeneti struktúra fix marad.
-
mindanee
tag
válasz Pakliman #40523 üzenetére
Szia,
egyelőre a megoldási lehetőségeket kutatom fel.
Ez a personal VBA megoldás jónak tűnik. Úgyhogy elkezdem jobban beleásni magam.
Szóval most a működési elveket kell begyűjtenem, egyelőre ezeket látom, amik kellenek:
-Új excelben első sorba fix oszlopnevek megadása (a kimeneti excelben más oszlopnevek kellenek)
-Adatok átemelése megfelelő oszlopokba (2. sortól) - erre egyébként az imént találtam is egy egyszerű megoldást
-"A" oszlop utolsó adatsora utáni első cellába kell mindig egy "END"
-A létrejövő fájl elnevezése paraméterezhető legyen (pl aktuális nap dátuma ÉS egy cellaérték (azonosító) összefűzve )Ezeket a feladatokat látom, egyelőre ennyi az "elképzelésem"
Van esetleg további tanácsod?
[ Szerkesztve ]
-
p5quser
tag
válasz Pakliman #40634 üzenetére
@Fferi50 Nagyon köszönöm a segítséget! Ja, igen, a path nélküli, kiterjesztéses névvel működött rendesen.
@Pakliman Neked is köszönöm a segítséget, hibátlanul teszi így már a dolgát. A "helyben érvényesítés" lehetett a gond, mert előtte próbáltam stdb-ként hivatkozni rá, de akkor obj.var. not set-tel hasalt el.
Mégegyszer köszönöm mindkettőtöknek!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Pakliman #40876 üzenetére
Érdemes egy változóba előre betenni az "-ig" értéket, másképp a for-next ciklus minden eleménél ki kell ezt számolnia a gépnek. Hosszú listánál lelassítja a folyamatot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zola007
veterán
-
-szabi-
őstag
válasz Pakliman #40997 üzenetére
Hi
Sosem csináltam, futtattam makrót.
Amit leírtál beillesztettem makró létrehozása alatt majd elmentettem a munkafüzetet makróbarát módban.
Weblapon nyomtam egy CTRL+A majd CTRL+C-t.
Majd a munkafüzetben makrók megjelenítése alatt elindítottam az "olvas" makrót.
Aztán semmi nem történt. -
MCMLXXXII
tag
válasz Pakliman #41012 üzenetére
Hú ez most nagyon kínai
A zöld bevét nem számít
A pirosat kéne úgy valahogy hogy elkezdem írni a fügvényt =szum(munka1 dátum 1 től 30 v 31. Éig mondaná az eredményt
De csak a piros sór érdekelne2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
MCMLXXXII
tag
válasz Pakliman #41015 üzenetére
szép jó reggelt
Igen ezt szeretném igen csak az a bajom hogy valamelyik tétel 30 oszlopból áll valamelyik csak 5 ből egy hónapban és ez a macerás NEKEM2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
spe88
senior tag
válasz Pakliman #41492 üzenetére
Huh ez nekem kicsit sok. Azt hittem tud ilyet az Excel makrók nélkül.
Ezt nem értem:
"Egy normál modulban létrehozol egy változót, ez fogja tárolni a mindenkori aktuális munkalapot:"
Én nekem az egyik makróm alapból a modulban tárolódik. valószínűleg nem vagyok tisztában az alapokkal.
Szóval a két makrót be tudom copyzni a helyére, de ezt a változós dolgot hol tudom megadni?
köszi
Spóroljunk! Kerül, amibe kerül!
-
Fferi50
őstag
válasz Pakliman #42293 üzenetére
Szia!
Pedig nagy eséllyel Windows területi beállítási különbségek miatt van.
A VBA-ban alapvetően angol (nemzetközi) beállítások szerint kell a függvények paramétereit megadni. Magyar formátumot csak akkor fogad el. ha a Windowsban is be van állítva.
Pl. előfordulhat, hogy szóköz is van a pontok mellett, vagy nincs pont a végén.
Javaslom, nézd meg a munkalapfüggvény működik-e megfelelően mindkét helyen.
Üdv. -
Mutt
aktív tag
válasz Pakliman #42298 üzenetére
Szia,
Nézd meg újra a Windows Területi beállításait, lehet hogy lesz ott szóköz az évek - hónapok - napok között az egyiknél, míg a másiknál nem.
Nekem van szóköz, de a MA() függvény eredményében ez nem látszik. Az IsDate/CVDate pedig csak szóközzel megadott dátumokat fogad el.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Pakliman #42300 üzenetére
Szia,
Írhatsz egy saját függvényt, amely ellenőrzi a lehetséges kombinációkat.
pl.
Function DateTest(datum As String) As Boolean
Dim helyes_a_datum As Boolean
helyes_a_datum = IsDate(datum)
If helyes_a_datum Then
DateTest = True
Else
DateTest = IsDate(Replace(datum, ".", ". "))
End If
End Functionüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Lemezes Retro PC Játékok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen