Hirdetés
-
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! :)
-
A hajlíthatók kedvence lehet a Dimensity 7300X 5G
ma Átcímkézés helyett csíkszélességet váltott a MediaTek, népszerű Motorolában debütálhat.
-
Free Play Days 2024 - 22. hét: Assetto Corsa, Dragon Ball Xenoverse 2
gp Extraként a Call of Duty: Modern Warfare III többjátékos és zombi módját valamint a Skull and Bones-t is próbálgathatjuk.
-
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
-
torrentwarez
csendes tag
válasz Darko_addict #42771 üzenetére
Szívesen!
-
Lasersailing
senior tag
Sziasztok,
Excel VBA-ban írtam egy programot, aminél 3 ciklus van egymásba ágyazva, így kb 4 percig fut. Szeretném a felhasználóval tudatni, hogy kb. hol tart a futásban, amit legegyszerűbben az első ciklus %-os arányával gondoltam kiiratni a status bar mezőn. Technikailag működik legalábbis 7%-ig elszámol szépen, azonban 7.1%-tól kezdve nem ír ki újabb adatot, helyette gondolkozik, majd 4 perc múlva elkészül.
Soronként nézem a számítási időt, nincs ennél a sornál semmi kiugró érték (minden sorhoz kiírom az aktuális időt, ez alapján 1-2 max. 3 másodperc alatt megvan egy sor).Van ötletetek, hogy hogyan vehetném rá, hogy kiírja ezt a százalékot végig?
screenupdate nincsen kikapcsolvaSegítséget, ötletet előre is köszönöm!
-
Lasersailing
senior tag
válasz Lasersailing #42902 üzenetére
Eszembe jutott a DoEvents (közvetlenül a statusbar frissítés után), úgy tűnik, ez most megoldja a problémát!
-
modflow
veterán
Van egy nagy táblázatom, több munkalappal, sok képlettel.
Ha ebbe valaki belenyúl, mondjuk beszúr egy sort és nem húzza rá a fölötte lévő cella képletét, akkor lőttek az egésznek....
Létezik arra módszer, hogy megmutassa, melyik cella "lóg ki a sorból"?
-
Fferi50
őstag
-
Fferi50
őstag
válasz modflow #42906 üzenetére
Szia!
Akkor próbáld meg a közös használatot. Ebben lehet egész sort, oszlopot beszúrni, de nem lehet cellacsoportokat (mint A1-C1 kijelölve és beszúrás lefelé tolva).
Ugyanakkor be tudod kapcsolni a változás követést x napra visszamenőleg, amit megnézhetsz külön munkalapon is vagy kiemelve az eredeti munkalapon.
A Véleményezés menüpontban van a Közös használat bekapcsolása. Kicsit érdemes megnézni a Helpet hozzá, mert jónéhány művelet nem végezhető ebben az állapotban.Üdv.
-
Sesy
aktív tag
válasz Delila_1 #42900 üzenetére
Elkészültem a programommal, és nagyszerűen működik, nem volt egyszerű, mert igen sok feltételnek kellett teljesülnie, de sikerült.
Össze vegyítettem a Te és Fferi50 javaslatait és megdöbbentő módon sikerült megoldanom a problémáimat.
Mondjuk kiolvastam közben a Kovalcsik makró programozást
De megérte a szenvedés, igen büszke vagyok most magamra...Köszönöm a segítségeteket!
Born stupid... Try again!
-
Talala
senior tag
Sziasztok!
Van egty excel munkafüzetem felhőben, ami hivatkozásképp ki van rakva az asztalra. Meg tudom azt oldani, hogy oda-vissza firssüljön mind két munkafüzet, ha az egyiket módosítom? Szóval ha az eredetibe írok valamit akkor az jelenjen meg a hivatkozásban és fordítva is igaz legyen ez?
Lehet nem épp ide illő kérdés lesz, ha úgy van irányítsatok át a megfelelő topikba!
Köszönöm! -
p5quser
tag
Sziasztok!
Nem jövök rá mi lehet a baj ezzel a pár hónappal ezelőtt még működő scripttel.
Az első munkalap első oszlopában lévő dátumokra nevezte át a munkalapokat. Néha beszúrtak munkalapokat a dátumosok elé, azért kérdez rá hogy honnan kezdje.
Most viszont "subscript out of range"-dzsel hibára fut. Ha csak az index számot beírom az inputbox helyére, akkor is. Azon a munkalapon futtatom, amelyiken az A1:A31 range van.
Előre is köszönöm!Sub RenameSheets()
Dim c As Range
Dim J As Integer
J = Sheets(InputBox("Melyik laptól kezdjem?")).Index - 1 'Kezdő sheet -1
For Each c In Range("A1:A31")
J = J + 1
If Sheets(J).Name = "" Then J = J + 1
Sheets(J).Name = c.Text
Next c
End Sub
-
p5quser
tag
-
oke
senior tag
Sziasztok,
Van makró részletem, ahol az alábbi Dátum formátumot hasonlítja össze a mai dátummal, és ha mai vagy későbbi, akkor a mellette lévő oszlopba beírja hogy Törlendő:
Ez a dátumformátum: 1~2019.07.15 09:15:47usor = Range("L" & Rows.Count).End(xlUp).Row
With Range("M2:M" & usor)
.FormulaR1C1 = _
"=IF(LEN(RC[-1])<10,"""",IF(DATEVALUE(MID(RC[-1],3,10))>=TODAY(),""Törlendő"",""""))"
Viszont most változott a kiinduló táblában a dátum formátum erre:
2020.02.04 16:00:00Hogy kellene a fenti részletet átalakítanom, hogy működjön a makró?
Illetve lehet kombinálni a kettőt?
[ Szerkesztve ]
-
allein
addikt
Sziasztok. Adott kettő táblázat. Partner adatok, order ID számok vannak mindkettőben. Az egyikben benne van minden order ID-nak a státusza(Shipped, Batched, Cancelled, stb). Kb 430 rendelésről van szó, egyesével megnézni a státuszt a webirodánkban nem kevés manuális munka.
Abban szeretném kérni a segítségeteket, hogy milyen függvényt kell használnom annak érdekében, hogy az egyik táblázatból(ahol a státusz van), átvigyem a másik táblázatba.
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
Lasersailing
senior tag
válasz allein #42922 üzenetére
Table array-nél ne sorokat, hanem oszlopokat válassz ki. Az első oszlopban fogja keresni az "A2" cella értékét, és a negyedik oszlopban található értéket fogja visszaadni.
Feltételezem a rendelésszám egyedi azonosító, ha esetleg mégsem mindig az első találatot fogja visszaadni. -
Sanyus81
újonc
Sziasztok!
Egy érdekes kérdéssel fordulok hozzátok szakikhoz.
A problémám a következő:
Adott egy táblázat rajta több munkalappal (16 db). Mindegyik fül egy adott partner rendelését tartalmazza. Ebbe rögzitném be az adott napi rendelést, amit külön szeretnék egy lapon összesíteni. Eddig ez nem is probléma, ezt meg is oldottam. Viszont szeretném azt is megoldani ha mennyiségi egység jelölés cellában (db), nem a "db" szó szerepel hanem a " karton" szó, azt nekem az összesítőn szedje külön. Egyesével működik azaz munkalaponként működik a funkció, viszont ha a képletbe több munkalapot veszek bele, akkor már hibát jelez rá, és nem birok rájönni, hogy mi az...
A nem működő képlet, ha segit valamelyest:
=SZUMHA('Megrendelő:Megrendelő (16)'!C11;"#";'Megrendelő:Megrendelő (16)'!B11)
Próbáltam már a lapok számát kettőre is lecsökkenteni, hátha valamelyik sor elcsúszott, de sajnos nem akar jo lenni. Ha valakinek van erre ötlete, azt nagyon megköszönném. -
Lasersailing
senior tag
válasz Sanyus81 #42924 üzenetére
Nem biztos, hogy jó amire gondolok, de hátha:
Próbáld ki a # jel helyett valami mással helyettesíteni. (pl. "karton") értelemszerűen a tesztelt sheeteken is átírva. Ha ez segít, akkor a # jel zavarja az excelt... (ugye ezt jelzi ki, ha pl. nem fér ki a cellába a kiírandó dátum, azaz ezt különleges karakterként kezeli) -
allein
addikt
válasz Lasersailing #42923 üzenetére
Amikor email címeket keresek ugyanezzel a függvénnyel, akkor is egész táblázatra nyomok rá. De mostani esetben én is látom valami nem jó.
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
Sanyus81
újonc
válasz Lasersailing #42925 üzenetére
Köszönöm a tippet, de sajna ez sem működik :/
-
Delila_1
Topikgazda
válasz Sanyus81 #42924 üzenetére
A SZUMHA függvény nem működik több lapon. Minden lapon vidd be a függvényt azonos cellába, legyen ez a példában a Z1. Az összesítő lapon a SZUM függvénnyel már tudsz hivatkozni több lapra.
=SZUM('Megrendelő:Megrendelő (16)'!Z1)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rudi666
csendes tag
Sziasztok!
Olyan problémám lenne, hogy másik munkafuzetből kéne cellakra hivatkozni, és a fájl sorszámot folyamatosan növelni. Ahogy a képen látszik csak csere függvénnyel tudtam megoldani.
Ha ezeket a cellákat újra beillesztem, de nem képletként, hanem értékként, akkor egyesével végig kell kattingatnom, és entereznem, hogy lefusson.
Ha valaki tud rá megoldást hálám örökké üldözni fogja🤣
Röviden be van illesztve a keplet, hogy tudom tömegesen lefuttatni, hogy ne kelljen belekattintani, és enterezni?
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz rudi666 #42932 üzenetére
Nem kell megnyitogatni. Kijelölöd a K oszlop tartományát, másolod (Ctrl+C), beállsz a gyűjtő füzet megfelelő lapján a megfelelő cellába.
Ha a képleteket akarod másolni – ez mindig a sok füzet celláinak az aktuális értékét adja –, akkor Ctrl+V-vel beilleszted a képleteket.
Ha a mostani értékeket akarod fixen beilleszteni a gyűjtő füzetbe, akkor irányítottan, értékként kell beillesztened a mostani adatokat.
Gondolom, csak a csatolt kép kedvéért vannak szövegként a képletek a K oszlopban, mivel aposztróffal kezdődnek.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rudi666
csendes tag
válasz Delila_1 #42933 üzenetére
Azért raktam aposztrófok közé, hogy szövegként kezelje, és csere keplettel növeljem a fájl sorszámot a képletben. (1600,1601....)
Mintha "lehuznám" a képletet.
Más megoldást nem találtam rá.
Ugye fájlra hivatkoztam, és azon belül nem engedte a sorszámot változóként kezelni.Egyébként sikerült megoldani.
Csere keplettel megnoveltem a fájl sorszámokat.
Majd újra beillesztettem az egész szövegként kezelt képletet, mostmár képletként 🙈 -
sz_abika
addikt
Hali,
VBA nélkül meg lehet azt oldani hogy az "F1' cellába kiírja azt, hogy az "A1" cella mikor módosult? Eddig egy Today() látta el a feladatát, de tovább kellene fejleszteni a fájl nyomkövetését
(biztonsági okokból lenne jó, ha nem kellene .xlsm kiterjesztést használni)
Köszi!PSN: xszabikax
-
zsolti_20
senior tag
Üdv emberek! Lehetséges olyasmit megoldani excelben hogy egy adott sor kitöltése nélkül ne lehessen a következőt kitölteni?
Van 17 sorom, ahová adatok írhatóak be, azt szeretném megoldani hogy az első sor kitöltése nélkül ne lehessen a többit kitölteni, illetve ne lehessen üres sort sem hagyni. -
zsolti_20
senior tag
Sikerült találnom valamit amivel kiszűrhetem hogy melyik cella üres és melyik nem.
"=IF(B4<>"","complete","due")"
EZt átlehet alakítani úgy, hogy ha köztes cellák üresek akkor írjon ki valamit? -
adDis
csendes tag
válasz Fferi50 #42854 üzenetére
Szia Feri! Legutóbbi kérdésemre [link] azt írtad, hogy feltételes formázásnál a feltételnél lehet másik munkalapra vonatkozó képletet megadni [link] . Ezután pár nap alatt meg is csináltam a javaslatod alapján szépen a hivatkozásokat, nagyon szuper lett a tábla.
Felmerült bennem viszont egy ehhez kapcsolódó másik kérdés is, kíváncsi lennék, hogy ez megoldható lenne -e. Ebben a hivatkozásban, amit írtál legutóbb =Munka1!$E$2="I" meg lehet adni olyat, hogy ne csak 1 esetben - ha az adat = "I" - színezze ki az adott cellákat, hanem mondjuk akkor is, ha "Y" az érték?
Ha más színt szeretnék, világos, hogy nem úszhatnám meg az egyenkénti és külön szabályban leírt képletezést. De vajon lehet felsorolni, több opciót is megadni, ha ugyanolyan színre szeretném? (A Munka1 adott E oszlopában legördülő menü van, ahol több opció közül lehet választani, éa közöttük több lehetséges választ is lehetne ugyanolyan színnel formázni) Válaszodat előre is köszönöm![ Szerkesztve ]
-
Bandita0176
újonc
sziasztok,
segítségre van szükségem a következő feladatban.
egy logaritmus képlet visszafejtése, amivel nem bírok.
példa:
alapadat:
szám:22
alap:14
képlet
=log(szám;alap)*alap azaz =log(22;14)*22= 25,77
VISSZAFEJTÉS:
alap:14
eredmény:25,77
szám:?
milyen képlettel jutok vissza a számhoz? (22 ezesetben)Illetve nyilván ha változnak az értékek, oda-vissza ugyanazok a számok - eredmények szerepeljenek.
előre is köszi,András
-
Hannibhál
őstag
Hejhó!
Olyan problémám van, hogy Textbox-ba szeretnék cellából adatokat kiírni. Ráadásul úgy kellene, hogy automatikusan frissítse a textboxot, hogy mindig az aktuális cellaérték jelenjen meg. Próbálkoztam a ControlSource-el is, de ki se írta a cella értékét, illetve amúgy sem írja ki a cella értékét. A cellák egy adatbázisból kapják az értékéüket(másik munkalapon van az adatbázis) s azt megtudtam oldani, hogy félpercenként loopolja a kereső makrót, ami frissíti a cellák értékét. A textbox egy userformon van, ami a kijelzőn lenne s adatokat jelezne vissza a felhasználóknak, ezért kéne ha kiírná az adott cella értékét s frissítené is azt.
Köszönöm szépen előre is!Gépelés nem az erősségemasdsdk
-
Bandita0176
újonc
.
[ Szerkesztve ]
-
daddy9
tag
Sziasztok!
Egy kis segítséget szeretnék kérni.
Az alábbi makrót szerkesztettem át egy meglévő alapján:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
LastColumn = 27 'Last Column
For i = 5 To LastColumn 'Lopping through each Column
If Cells(36, i) = "" Then Columns(i).EntireColumn.Hidden = True
If Cells(36, i - 1) <> "" Then Columns(i).EntireColumn.Hidden = False
Next
Application.ScreenUpdating = True
End Sub
A lényege annyi lenne, hogy megnézi, hogy a 36. sorban van-e valami és ha nincs, akkor elrejti, kivéve az első 4 oszlopot. Ezen felül, ha egy oszlop 36. sorában van valami, akkor a tőle jobbra lévő oszlopot láthatóra állítom, hogy legyen hova írni.
Ha ezt a makrót egy új állományba átmásolom, akkor hibát ír.
Gondolom az a baja, hogy az IF nincs lezárva (?), de akkor ha hiba van benne, akkor most miért működik a fenti formájában?
Segítenétek megfelelően lezárni?
Köszönöm a segítséget! -
félisten
válasz Bandita0176 #42941 üzenetére
C2 ->
=LOG(B2;A2)*A2
D2 ->=HATVÁNY(A2;C2*1/A2)
Ezt meg majd eldöntöd, mert a képletben alap-al szorzol, utána meg a példában a számmal...
"=log(szám;alap)*alap azaz =log(22;14)*22= 25,77"[ 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)
-
Hannibhál
őstag
-
Delila_1
Topikgazda
válasz daddy9 #42944 üzenetére
Ezt a makrót modulba kellene tenni, nem eseményvezéreltbe. Bár így is jó, bármelyik cellára kattintasz, lefut.
Modulba:Sub Rejt()
Dim LastColumn, i As Integer
Application.ScreenUpdating = False
LastColumn = 27 'Last Column
For i = 5 To LastColumn 'Lopping through each Column
If Cells(36, i) = "" Then
Columns(i).EntireColumn.Hidden = True
Else
Columns(i).EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
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.
-
Delila_1
Topikgazda
válasz daddy9 #42948 üzenetére
A tiédben sem volt.
Az aktuális oszloptól BALRA lévőt fedte fel, amit az előző lépésben elrejtettél, ha éppen üres volt a 36. sor az oszlopban.
A második feltétel abszolút felesleges volt. Azt vizsgálta, hogy az aktuális oszloptól balra lévőben van-e adat, és ha igen, felfedte, de mivel az előző ciklusban nem rejtette el, hiszen nem volt üres, semmi szükség erre a sorra a makróban.
Mi az, hogy nyisson új oszlopot? Szúrjon be az aktuális oszloptól balra egyet? Melyik esetben? Ha az aktuális üres, vagy nem?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
daddy9
tag
Egyszerűbb, ha példát írok.
Alapesetben az lenne a cél, hogy (A : D) oszlopok látszódjanak, attól függetlenül, hogy a 36. sorban mi van, az (E:AA) tartomány lehet rejtett.
Ha a D36-os cella nem üres (bármit írok bele), akkor fedje fel az E oszlopot (nem kell újat beszúrni). Ha ezután az E36-ba is írok valamit, akkor fedje fel az F oszlopot és így tovább az utolsó (előző példában 27.) oszlopig.
Remélem így már érthető, hogyan szeretnék új oszlopokat "nyitni"/felfedni.
És még egyszer köszönöm!
Új hozzászólás Aktív témák
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Vírusirtó, Antivirus VPN kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen