-
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
-
Fferi50
Topikgazda
válasz
TigerCat
#50844
üzenetére
Szia!
Az egyik lehetőség a szűrők használata. A szövegszűrőknél alkalmazd a tartalmazza, kezdete és nem tartalmazza, nem kezdete opciókat a terméknek megfelelően.
Az autós példádnál maradva pl: Kezdete Opel Astra ötajtós és nem tartalmazza metálfény, majd az üzemanyag oszlopon a benzin aztán a dízel opciót.
A szűrt állományon lehúzhatod az etalon oszlop értékeit.
Ezután szűrés változtatás... lépések ismétlése.
A másik lehetőség:
Segédoszlop készítése a releváns megnevezés és az üzemanyag összefűzésével az árjegyzéken.
Ezután Index függvény B : H (segédoszlop), HOl.VAN függvény a B oszlopban levő típus megfelelő része az üzemanyaggal összefűzve keresése a segédoszlopban, a D, E, F, G oszlopokban.
Pl. A segédoszlopban szerepel Opel Astra ötajtós benzin.
Keresés:
A D21 cella képlete:=INDEX($B$3:$G$18;HOL.VAN("Opel Astra ötajtós " & C21;$H$3:$H$18;0);3)
A keresési érték megállapítása termékenként változik sajnos.
Ezért javasoltam inkább a szűrést.
Üdv. -
Fferi50
Topikgazda
válasz
Lacpac
#50843
üzenetére
Szia!
Akkor az általam mutatott képletet adaptálni kell a tartományodra:=(SZUM(D7 : W7)-MAX(D7 : W7))/(DARAB(D7 : W7)-1)
A képlet a cellák összegéből kivonja a közöttük szereplő maximális értéket és elosztja a számokat tartalmazó cellák darabszámánál eggyel kevesebbel (mivel egy értéket kihagytunk az összeg számításból). Vagyis a maradék értékek átlagát adja vissza.
Üdv. -
Fferi50
Topikgazda
válasz
jackal79
#50837
üzenetére
Szia!
Feltételezve, hogy nincs minden napra adatod - ezért kicsit meg kell gondolni az FKERES függvény használatát. Ezen kívül be kell látni, hogy az előző hónap záró értéke megegyezik a következő hónap nyitóértékével. A példádban ezért nem az április 1 - április 30 közötti érték változás a havi adat - hiszen április 1 már ebben a hónapban van - hanem a március 31 - április 30 közötti változás.
Az FKERES függvény használatánál a dátumoknak emelkedő sorrendben kell lenniük, akkor kapsz helyes eredményt, mivel elképzelhető, hogy épp a konkrét napra nincs adat rögzítve.
A nyitó dátum ezért HÓNAP.UTOLSÓ.NAP( Dátum; -1) => az előző hónap vége
A záró dátum pedig HÓNAP.UTOLSÓ.NAP( Dátum;0) => a tárgyhónap vége
A képlet pedig:=FKERES(HÓNAP.UTOLSÓ.NAP(Dátum;0);Táblázat;2;1)-FKERES(HÓNAP.UTOLSÓ.NAP(Dátum;-1);Táblázat;2;1)
A Táblázat 2 oszlopa: Dátumok és Bevételek > a dátumok emelkedő sorrendjében rendezve.
A hónap bármelyik napja mellé beírhatod a képletet. Viszont ha "nyitott" hónapot szeretnél lekérdezni, arra hónapra hibát fog adni a képlet.
Üdv. -
Fferi50
Topikgazda
válasz
andreas49
#50828
üzenetére
Kiegészítés: egy kis trükkel talán megoldható:
Kell hozzá két segédoszlop.
Szűretlen adatokon
1. segédoszlop képlete =sor() ez végighúzva a teljes oszlopon.
Ezután szűrés bekapcsolás
2. segédoszlop képlete =sor() ez is végighúzva a látható tartományon
Szűrés kikapcsolva. A szűrésbe nem tartozó adatok sorában nem lesz érték.
A két segédoszlop kijelölése ameddig adatok vannak rajta - másolás - irányított beillesztés értékek ugyanoda.
A teljes adatállomány rendezése a 2. segédoszlop alapján - növekvő sorrendben.
A másolt értékek beillesztése a kívánt oszlopba.
Ezután ismét az adatállomány rendezése, most az 1. segédoszlop alapján.
Remélem sikerül megoldani a problémád.
Üdv. -
Fferi50
Topikgazda
válasz
andreas49
#50828
üzenetére
Szia!
Kicsit még mindig homályos a kérdésed.
A szűrt lista sorait - vagy akár egy oszlopát - egy lépésben húzással ki tudod jelölni, másolás -> beillesztés után pedig csak a kijelölt terület látszó/szűrt adatai kerülnek az új helyre.
Ha a szűrt lista egy oszlopába szeretnél bemásolni valahonnan, na az nem fog menni egy lépésben. Ott sajnos a nem látható sorokat is figyelembe veszi az Excel. Ezt makróval lehet csak megoldani.
Üdv. -
#50823
Fferi50
Topikgazda
Lasersailing
#50822
Fferi50
Topikgazda
válasz
Lasersailing
#50822
üzenetére
Szia!
Szerintem 1 másodpercet vár. Legalábbis a kiíratás ezt mutatja. Tizedmásodperceket szerintem nem lehet várakoztatni vba-ból direktben. Esetleg használd a TimeSerial függvényt, ott mindegy milyen az időformátumod.
Üdv. -
Fferi50
Topikgazda
válasz
picur10
#50808
üzenetére
Szia!
Ebben a sajnálatos esetben az a helyzet állt elő, hogy nem tudjuk, miből fizették a kiadásaikat az urak, hiszen mindkét fél kiadása meghaladta a bevételeit.
Egyébként abból kellene kiindulni szerintem, hogy a felezendő bevételek és kiadások alapján mindkettőjüknek azonos összegű egyenlege kellene legyen az elszámolás után.
A példában az összes hiány (- 2500, - 5690) fele -4095, tehát ennek elérésére Bélának 1595 Ft-ot kellene adni Józsi részére ( ha lenne miből).
A K5 cella képlete tehát (K3+K4)/2 - K3.
A K5 cella képlete pedig (K3+K4)/2 - K4.
Akinél negatív az eredmény, az fizet a másiknak.
Üdv. -
Fferi50
Topikgazda
válasz
bteebi
#50793
üzenetére
Szia!
"Szóval Public variable csak modulból működik?"
Nem csak általános modulból működik. Ha nem ott deklarálod, akkor a Modulnév.Változónév formában hivatkozhatsz rá: pl. Thisworkbook.origvalue minden másik modulból elérhető!
Egyébként amennyiben több modulodban is van publikus változó, akkor is célszerű ebben a bővített formában hivatkozni rájuk.
[link] Javaslom, nézd meg itt a változók deklarálásával kapcsolatos helpet.
Üdv. -
#50781
Fferi50
Topikgazda
botond2225
#50780
Fferi50
Topikgazda
válasz
botond2225
#50780
üzenetére
Szia!
Bocs, hogy értetlenkedek. Mi a tulajdonképpeni célod? Mit és hol adjanak vissza a képletek? Lehet, én vagyok kuka, de ebből a mintából semmit nem értek.
Remélem más igen.
Üdv. -
Fferi50
Topikgazda
válasz
zoombiee
#50774
üzenetére
Szia!
Ezt próbáltad már:
Beállítások Adatvédelmi központ - Az adatvédelmi központ beállításai - Makróbeállítások - Az összes makró engedélyezése
Másrészt nézd meg a VBA nézetben a Tools - References menüben, hogy be vannak e pipálva a szükséges könyvtárak, legalább ezek:
(Egyáltalán, makróbarátként (vagy binárisként) van mentve a fájl?)
Üdv. -
Fferi50
Topikgazda
válasz
pentium4
#50771
üzenetére
Szia!
Ha a lista elrendezése ilyen, akkor megpróbálhatnád az alábbit:
A lista végére tegyél egy x jelet.
Ezután egy szép hosszú tömbképlet kerül a B4 cellába:=SZUMHA(ELTOLÁS(Lista!$A$1;HOL.VAN(Eredemény!$A4;Lista!$A$1:$A$22;0);0;HOL.VAN(Eredemény!$A5;Lista!$A$2:$A$22;0)-HOL.VAN(Eredemény!$A4;Lista!$A$2:$A$22;0);1);B$3 &"*";ELTOLÁS(Lista!$A$1;HOL.VAN(Eredemény!$A4;Lista!$A$1:$A$22;0);2;HOL.VAN(Eredemény!$A5;Lista!$A$2:$A$22;0)-HOL.VAN(Eredemény!$A4;Lista!$A$2:$A$22;0);3))
Ez a képlet húzható oldalra és lefelé is!
A 10-11 sorban látod az eredményt, azért ott, hogy ellenőrizhető legyen.
A tömbképletet Shift + Ctrl + Enter kombóval kell lezárni, az Excel teszi kapcsos zárójelbe.
Előnye, hogy nem kell átrendezned a listát.
Üdv. -
Fferi50
Topikgazda
Szia!
Nem egészen értem a kérdést. Az egyéni szövegszűrővel kiszűrheted az üres eredményt adó cellákat - a képleteket a szűrő nem a benne levő szöveg, hanem az eredmény alapján szűri. Így a részösszeg 103 függvény is működhet normálisan. Ha rosszul értem a kérdést, akkor légy szíves mutass egy példát.
Üdv. -
Fferi50
Topikgazda
válasz
Delila_1
#50755
üzenetére
Szia!
Sajnos nem az igazi szerintem, ha nem kattintasz bele a kiválasztás után, akkor marad a más alapszín:
Ugyanakkor, ha más vezérlő is van a formon, akkor arra átkattintva eltűnik a kiemelés - ami ezek szerint nyilván azt prezentálja, hogy a Comboboxunk van a fókuszban éppen.
Ugyanígy viselkedik egyébként az Excel által adott alapszíneket meghagyva is. Ezt alátámasztja az is, hogy pl. TAB-bal ugrálva hasonló módon látszik a fókuszba kerülés.
Ezért úgy gondolom, a kérdező eredeti felvetése pontosításra szorul.
Üdv. -
-
#50692
Fferi50
Topikgazda
Lasersailing
#50690
Fferi50
Topikgazda
válasz
Lasersailing
#50690
üzenetére
Szia!
Szerintem ez nem megy.
Javaslom: Tegyél fel a listbox fölé labeleket, amibe beleírhatod a fejlécet. A Label WordWrap tulajdonsága lehetővé teszi a többsoros szövegeket.
A listboxnál pedig kapcsold ki a fejléc megjelenítést.
Üdv. -
#50683
Fferi50
Topikgazda
Lasersailing
#50681
Fferi50
Topikgazda
válasz
Lasersailing
#50681
üzenetére
Szia!
Ha dec. 28 így néz ki: 28/12/2023, akkor bizony a 2/9/2023 az szept. 2 és nem február 9.
Miből gondolod, hogy február 9-nek kellene lennie?
Ha szövegből szeded ki a dátumot és valóban február 9-et szeretnél, akkor kicsit még "mókolni" kell vele, a hónapot és a napot meg kell cserélni.
Üdv. -
-
Fferi50
Topikgazda
Szia!
"2. Keresse meg a kulcsszótól jobbra és balra eső első | jelet. És a két | jel közötti szöveget vágja ki és tegye át a szomszédos cellába."
Az alábbi felhasználói függvény megteszi ezt:Function ellenor(crange As Range) As StringConst ell = "ellenőrzés", hatar = "|"Dim a, bellenor = ""a = crange.ValueIf InStr(a, ell) = 0 Then Exit Functionb = Split(a, hatar)For Each a In bIf InStr(a, ell) > 0 Then ellenor = a: Exit FunctionNextEnd Function
Másold egy modulba vagy az adott munkalap kódlapjára. (Ez utóbbi esetben nem tudod másik munkalapon használni.)
Ugyanúgy kell használni, mint a beépített függvényeket, pl. =ellenor(A1) és húzható is.
Ha a forrás cellában szerepel az ellenőrzés szó, akkor a határoló jelek közötti értéket írja a cél cellába, ha nem, akkor üres szöveg kerül bele.
Ha nem működne, akkor a határolójelet másold a hatar konstansba az egyik cellából (előfordulhat, hogy más a karakterkészleted).
Ha más kulcsszóra szeretnél keresni, akkor az ell konstansba írd azt a szót.
A munkafüzetet makróbarátként vagy binárisként kell mentened.
Remélem, sikerül.
Üdv. -
Fferi50
Topikgazda
Szia!
Próbáld meg ezt a TÖMBKÉPLETET:=SZUM(HAHIBA((SZÖVEG.KERES("név";$A$1:$A$6)>0)*(SZÖVEG.KERES("ellenőrzés";$A$1:$A$6)>0);0))
A tömbképletet Shift+Ctrl+Enter billentyű kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
A tartományt igazítsd a listádhoz. A "név" helyére és az "ellenőrzés" helyére természetesen írhatsz olyan cella címet, amelyik a szükséges értéket tartalmazza.
Üdv. -
#50516
Fferi50
Topikgazda
Lasersailing
#50513
Fferi50
Topikgazda
válasz
Lasersailing
#50513
üzenetére
Szia!
Nem emlékszem, melyik Excel verziót használjátok?
1. A tömörítés az új (2017-től) Office verziók formátuma, automatikusan megy és nem befolyásolható - illetve mentéskor választhatsz korábbi formátumot (.xls), de akkor kompatibilitási problémák keletkezhetnek, ráadásul nem is lesz gyorsabb. Ez az új szabvány az Office-ban.
A munkafüzet megosztását szerintem érdemes kipróbálni - O365-ben van egy új lehetőség, a társszerzőség. Persze az egymás után bevitt adatok esetleges felülírását ütközés esetén itt is nehéz szabályozni. Egyszerűbbnek tűnik, ha mindenki számára van egy dedikált terület, ahova írhat - így nem vághatja agyon senki a másik által bevitt adatot. A nap végén - vagy bizonyos időszakonként a napon belül - lehet összefuttatni akár makróval is a felvitt adatokat. Így szerintem elkerülhető az állandó nyitás-mentés-zárás. Keresni pedig a megnyitott fájlban természetesen lehet. ---> Ez a dedikált terület lehet akár a makrófuttató fájl egy munkalapja ill. az "adatbázis" munkafüzetben egy-egy külön munkalap.
Még további gondolat:
Ha mindenki a saját munkafüzetében menti a változásokat, akkor az "adatbázis" munkafüzetet minden felhasználó megnyithatja csak olvasásra. Természetesen ekkor is csak összedolgozáskor frissülhetnek az adatok az "adatbázisban".
Egyidejű - online - adatfrissítés bizonyos korlátozásokkal csak közös használattal és folyamatos mentéssel lehetséges. Amíg a mentés tart, addig nem lehet újabb adatokat bevinni a fájlba természetesen.
Ha gondolod, esetleg priviben még beszélgethetünk a feladatról.
Üdv. -
Fferi50
Topikgazda
Szia!
Nézz körül légy szíves a képletek között, van(nak)-e olyanok, amelyek egész sorra/oszlopra vonatkoznak: Pl.Fkeres(A1;B:D;2;0)
Ez lassítja a futást és növeli a területet is.
A feltételes formázásokat is érdemes átnézni, mert előszeretettel szakítja meg a területeket pl. beszúrás vagy törlés esetén, így többlet formázások jönnek létre az egybefüggő helyett.
Üdv. -
#50509
Fferi50
Topikgazda
Lasersailing
#50499
Fferi50
Topikgazda
válasz
Lasersailing
#50499
üzenetére
Szia!
A megnyitás-bezárás bizony elég lassú művelet az excelben, pláne a mostani verziókban (tömörítés miatt). Keresni kellene olyan megoldást, amivel nem kell minden beolvasás érdekében újranyitni az "adatbázist".
Ha már adatbázis - miért nem adatbáziskezelőben vannak az adatok? Az lehetővé teszi a több felhasználós működést, már az Access is ilyen.
Milyen típúsúak a beolvasások-kiírások? Ugyanabba a cellába kerülnek különböző adatok egymás után?
Talán érdemes lenne megfontolni az "adatbázist" közös használatúvá tenni, mivel nem abban futnak a makrók, működhetne is szerintem.
Üdv. -
#50468
Fferi50
Topikgazda
Lasersailing
#50467
Fferi50
Topikgazda
válasz
Lasersailing
#50467
üzenetére
Szia!
Szerintem a Textbox szöveget csak egyben lehet formázni, szöveg részletet nem. Megoldás lehet 2 v. több textbox, egymást átfedően, a font tulajdonság állításával.
Üdv. -
Fferi50
Topikgazda
válasz
TillaT
#50465
üzenetére
Szia!
Kicsit bonyolult a dolog, de megoldható:Sub mentesm()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseActiveWorkbook.Sheets.CopyActiveWorkbook.SaveAs "Próba.xlsx", xlOpenXMLWorkbookActiveWorkbook.Close FalseApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
Üdv. -
Fferi50
Topikgazda
válasz
bepken
#50436
üzenetére
Szia!
Ha a szöveggel dolgoznod kell, akkor azt javaslom, külön oszlopba kerüljön a szöveg. Ha ugyanabban a cellába van szám és szöveg is, akkor a sorszámos képlet nem működik megfelelően, hiszen számot szöveggel nem tud összeadni.
A külön oszlopos összesítés például mehet SZUMHA függvénnyel vagy Kimutatással.
Üdv. -
Fferi50
Topikgazda
válasz
bepken
#50434
üzenetére
Szia!
A B1 cellába írd be az 1 számot.
A B2 cella képlete:=HA(A2<>0;HA(A2=A1;B1;MAX($B$1:$B1)+1);"")
Ez húzható lefelé.
A szöveget pedig cellaformázással adhatod meg:
Jobb egérgomb - cellaformázás - egyéni - Formátum: "Szöveg" ###
Ez azért jó, mert csak a megjelenítést változtatja, számolni ugyanúgy lehet vele, mert szám marad.
Üdv. -
#50432
Fferi50
Topikgazda
Flowtation
#50431
Fferi50
Topikgazda
válasz
Flowtation
#50431
üzenetére
Szia!
Az Application.FileDialog tulajdonságot nézd meg légy szíves. Itt kiválaszthatod, melyik fájlt szeretnéd beolvasni.
De a FileDateTime(TeljesFilenév) megmondja, mikor készült a fájl - viszont ebben az esetben minden fájlon végig kell menned, hogy megkapd a legfrissebb dátumot.
Üdv. -
Fferi50
Topikgazda
Szia!
A sok Select és Activate utasítás bizony nem szerencsés. A másolást egy lépésben is meg lehet csinálni így:
Range(forrás).Copy Destination:=Range(cél)
Nem kell hozzá semmilyen ciklus!
Esetedben a javaslat:Sub masolo()With Range("CO1:CR97").Copy Destination:=Range("D1").Resize(.Rows.Count, Application.WorksheetFunction.Max(Range("CG:CG")) * .Columns.Count)End WithEnd Sub
A D1 cella helyett írd be annak a cellának a címét, ahova kezdődjön a másolat elhelyzése.
Továbbá javaslom, hogy teljes CG oszlop helyett egy meghatározott tartományt vegyél fel a MAX függvényhez - olyan nagyságút, amit nagy biztonsággal nem lépnek át az adataid - ne kelljen mindig milliós cellaszámot figyelni.
Még egy megjegyzés: A másolás paraméterei úgy vannak összeállítva, hogy más tartomány esetén is megfelelő sort és oszlopot másol át, a kívánt mennyiségben.
Üdv. -
-
#50399
Fferi50
Topikgazda
istvankeresz
#50398
Fferi50
Topikgazda
válasz
istvankeresz
#50398
üzenetére
Szia!
Kiírta az mindegyiket, de mivel egyenként írattad, a következő mindig felülírta az előzőt. (Erről meggyőződhetsz, ha lépésenként hajtod végre a makrót.)
A Caption szövegét összefűzéssel kell megadnod, a négy/vagy több cellaértéket fűzd össze és a végén jelenitsd meg a Label.Caption szövegben.
Üdv. -
-
Fferi50
Topikgazda
válasz
eszgé100
#50380
üzenetére
Szia!
Pontosan milyen feltételeknek kell megegyezniük ahhoz, hogy TRUE legyen az eredmény?
Miért van az, hogy a második képen a MODEL1SUB2_2_3 első sorában FALSE van, a második előforduláskor pedig TRUE?
A második táblázat hogyan keletkezik?
Mivel az első táblában "hiányos" az információ - csak annyit tudunk, hogy mennyi a Batch Size, azaz hány sornak kellene minimum lennie a második táblában, ezért szerintem makró kell majd hozzá.
De pontosan kellene ismerni a feltételeket, mit mivel kell hasonlítani - ahogyan az első kérdésemben írtam.
Üdv. -
Fferi50
Topikgazda
válasz
TillaT
#50368
üzenetére
Szia!
"nem értem a "Miért"-jét, hogy miért működik így."
Amikor lekorlátozod a görgethető sorok/oszlopok tartományát, akkor azon a tartományon kívülre nem viheted a cursort (aktív cellát) - hiszen az eredeti szándékod is ez volt.
Egész sort/oszlopot azért nem jelölhetsz ki, mert a kijelölés túl lógna az "engedélyezett" tartományon.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#50331
üzenetére
Szia!
Még az ősidőkből van egy KIÉRTÉKEL nevű függvény (amikor még makrólapot használtunk).
Ezt a függvényt most is lehet használni egy pici trükkel:
A függvényt a névkezelőben névvel kell ellátni.
A hivatkozásban pedig =KIÉRTÉKEL(A1) => A1 cella, amiben a kiértékelendő képlet van SZÖVEGKÉNT . A cella hivatkozást annak megfelelően kell megadnod, ahogy a képletet szeretnéd mozgatni -> rögzítheted a sort / oszlopot vagy mindkettőt, illetve hagyhatod $ nélkül. Ezután a függvény hivatkozása egyszerűen a célcellában: =névkezelőben adott név.
Arra figyelj, hogy amikor a nevet megadod, az a cella legyen kiválasztva, amelyikbe a számolás eredményét szeretnéd megkapni. Utána a névvel hivatkozva mozog a képlet az előzőek szerint.
Üdv.
-
Fferi50
Topikgazda
válasz
föccer
#50310
üzenetére
Szia!
Kicsit(?) analfabéta lettem (nem most, már korábban
).
Mutatnál egy konkrét receptet, mi a tartalma? (nem konkrét összetevővel, csak a struktúrát)
Milyen alapon kerül bele egy recept egy részhalmazba? Milyen összetevőjét vagy szabályát nézzük?
Üdv.
Ps. Nem szeretnék többletmunkát okozni neked, ha úgy érzed rossz irányba megy a beszélgetés jelezd légy szíves. -
Fferi50
Topikgazda
válasz
föccer
#50308
üzenetére
Szia!
Makró megírásban tudok segíteni.
Ilyen összetettebb lekérdezéshez érdemes lenne megnézned az Adatok - Speciális (lánykori nevén Irányított szűrő) lehetőségeit. Itt lehet És továbbá Vagy feltételeket is kombinálni és új helyre áttenni a szűrés eredményét.
A szoftver tervezőnek mi a dolga?
Adatbázis kezelő nem jobb lenne erre a feladatra? Ott általában "pikk-pakk" lehet saját lekérdezéseket előállítani.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#50302
üzenetére
Szia!
"makró nagyon lassan megy, azért kerülném"
A makró létrehozása megy lassan vagy a futása? Ha utóbbi, mekkora az adathalmazod, amin dolgozni kell?
Ha mindenképpen makró nélkül szeretnéd megoldani, akkor szerintem érdemes a PowerPivot lehetőségeiben körülnézni. Mutt topiktárs szerintem biztosan tudna segíteni a PP kapcsán.
Üdv. -
#50294
Fferi50
Topikgazda
Lasersailing
#50293
Fferi50
Topikgazda
válasz
Lasersailing
#50293
üzenetére
Szia!
VBA nézet Window menüpontban az ablakokat egymás mellé vagy alá is helyezheted.
Másrészt szerintem a Windows több képernyős megjelenítése - úgy emlékszem a kiterjesztett mód - lehetőséget ad arra, hogy a kép mintegy átlógjon a másik képernyőre.
Üdv. -
#50286
Fferi50
Topikgazda
Lasersailing
#50282
Fferi50
Topikgazda
válasz
Lasersailing
#50282
üzenetére
Szia!
Az eseménykezelés letiltása (Application.EnableEvents) sajnos a formra nem terjed ki, így kicsit kerülő úton lehet elérni az esemény "letiltását".
Kell egy publikus logikai változó a userform modul lapjára, aminek a hamis v. igaz értéke szerint fut le az esemény kezelés.
Amikor makróval változtatod az értéket, a változás előtt a logikai változó értékét beállítod, majd utána vissza, hogy a user változásokat le tudja kezelni.
Pl.Userform1 modul lapon:Public fusson As Boolean_Change eseménykezelőbenIf fusson Then' amit az eseménykezelőben szeretnélEnd IfEnd Sub
A makróban, bárhol van a makró:Sub Akarmi()...Userform1.fusson=False '(Userform1 helyett a formod neve kell!)... változtatásokUserform1.fusson=True...End SubA Publikus változó helyes meghívása a Modulnév.Változónév, így egyértelmű a VBA számára, hogy melyik változóról van szó.
Üdv. -
Fferi50
Topikgazda
válasz
Fundiego
#50269
üzenetére
Szia!
Miért lenne 5 kattintás?
Kész van a pivotod, kiválasztod a megfelelő szűrő megfelelő emberét.
Sőt, ne felejtsd el, hogy vannak már SZELETELŐK a pivot táblákhoz, amik kiválóak pl. ilyenre is és talán egyszerűbbek mint a szűrő. Egymás közötti függéseket is lehet velük állítani.
Üdv. -
Fferi50
Topikgazda
Szia!
Makró nélkül szerintem csak akkor megy, ha egy harmadik lapon csinálod az adatbevitelt és ahhoz kötöd a két másik lapot - egyiket függőlegesen, másikat vízszintesen.
Egy oszlop transzponálása sorrá és vissza, itt a két makró:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka2").Range("C84:BJ84").Value = Application.Transpose(Range("A3:A62").Value)Application.EnableEvents = TrueEnd Sub
Illetve:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka1").Range("A3:A62").Value = Application.Transpose(Range("C84:BJ84").Value)Application.EnableEvents = TrueEnd SubEz minden alkalommal egy az egyben átteszi az egész területet.Az éppen módosított cella értékét a következőképpen lehet áttenni:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka2").Range("C84:BJ84").Cells(Target.Row - 2).Value = Target.ValueApplication.EnableEvents = TrueEnd SubésPrivate Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka1").Range("A3:A62").Cells(Target.Column - 2).Value = Target.ValueApplication.EnableEvents = TrueEnd SubÜdv.
-
Fferi50
Topikgazda
Szia!
Eseménykezelő makróval megoldható.
Mindkét munkalapra kell eseménykezelő, amit az adott munkalap kódlapjára kell bemásolnod:
A Munka1 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" ThenApplication.EnableEvents = FalseSheets("Munka2").Range("C1").Value = Target.ValueApplication.EnableEvents = TrueEnd IfEnd Sub
A Munka2 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$C$1" ThenApplication.EnableEvents = FalseSheets("Munka1").Range("A1").Value = Target.ValueApplication.EnableEvents = TrueEnd IfEnd Sub
Ez a Munka1 A1 cellája és a Munka2 C1 cellája között teremt azonosságot.
A munkalap nevét és a cella címét írd át a sajátodra.
A munkafüzetet makróbarátként (vagy binárisként) kell mentened.
Természetesen tartományt is meg lehet határozni, amin belül a változás egy másik munkalap megfelelő tartományában eltérő helyre másolódik.
Üdv. -
Fferi50
Topikgazda
Szia!
A sok képletezett cella "természetesen" hatással van a teljesítményre. Ha nem egész sorok/oszlopok szerepelnek a képletekben, akkor azért talán nem kellene nagyon aggódni emiatt. Kérdés viszont, hogy hova hivatkoznak a képletek: másik munkalapra vagy másik/külső fájlra, továbbá milyen gyakran kell újraszámolni azokat.
A legfőbb kérdés igazából az, hogy miért Excelben kell ezt csinálni, ha pedig mégis, akkor miért képletekkel, miért nem lehet pl. lekérdezéssel (ahol feltételeket is lehet megadni).
Tehát jó lenne a feladat jellegét ismernünk, hátha többet (is) tudnánk segíteni.
Üdv. -
-
Fferi50
Topikgazda
Szia!
Szerintem cella értékét lehet törölni makróval. Inkább az okozhat gondot, hogy ne törölje minden megnyitáskor, ezt pedig jelzőkkel és feltételekkel meg lehet oldani.
Továbbá az is kérdés, hogy milyen megosztást használnak. Ha "felhőset", akkor egyáltalán nem működnek a makrók úgy tudom. A közös használatú munkafüzetben viszont működnek.
Üdv. -
Fferi50
Topikgazda
válasz
eszgé100
#50137
üzenetére
Szia!
Úgy tűnik, hogy a SaveCopyAs nem szereti, ha a fájlt a hálózatra szeretnénk felmásolni. Valószínűleg egy jó kis bug. Jelezni kellene Redmond felé.
Megkerülő megoldás:
Megjegyzed a fájl nevét és elérési útját egy változóban.
Ezután SaveAs a fájlt a hálózatra, majd ismét SaveAs a változóban eltárolt paraméterekkel. Így visszajutsz az eredeti fájlodhoz. Szomorú, tudom, de legalább működik.
Üdv. -
Fferi50
Topikgazda
válasz
friccccc
#50135
üzenetére
Szia!
"Nekem az OK ra kellene az idő. De nem ismeri fel.... Ha kézzel beírom a cellába akkor jó....."
Meg tudnád mutatni azt a függvényt, ami az OK-t beírja az adott cellába?
Egyáltalán, bekerül a cellába az OK érték? Szövegként kerül be? Lépésenként futtatva ellenőrizted a cella tartalmát? Képet esetleg mutatnál róla?
Üdv. -
Fferi50
Topikgazda
válasz
Melorin
#50122
üzenetére
Szia!
Szerintem is makrós megoldás kell:
A rendelés táblád eseménykezelőjébe kell egy rövid makró, amelyik bemásolja az "adatbázisból" a képet.
Pl.Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenIf IsEmpty(Target) Then Exit SubApplication.EnableEvents = FalseSheets("Adatbázis").Range("A1:A50000").Find(what:=Target.Row, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Copy Destination:=Target.Offset(0, 1)Application.EnableEvents = TrueEnd IfEnd Sub
Amikor a sor első cellájába érték kerül, megkeresi az adatbázisban és átmásolja a képet. A feltételezés itt az, hogy az adatbázisban az anyag azonosító az első oszlop és mellette van a kép továbbá a sor második cellájába kell másolni.
Nincs benne hibakezelés, tehát ha olyan érték kerülne be, ami nincs az adatbázisban, akkor hibával megáll. Természetesen ezt lehet kezelni.
Figyelem! Ebben az esetben makróbarátként kell mentened azt a fájlt, amivel dolgozol. A mások által nézett fájl már lehet makrómentes.
Üdv. -
-
Fferi50
Topikgazda
válasz
Melorin
#50114
üzenetére
Szia!
Megcsináltad ezeket a lépéseket:?
"1.Select any cell that has the logo. Make sure you have selected the cell, not the logo/image.
2.Copy the cell (use Control + C or right-click and select copy).
3.Right-click on the cell where you want to get the linked picture (it can be any cell as we can adjust this later).
4.Go to the Paste Special option and click on the small right-pointing arrow to get more options.
5.Click on the Paste Linked Picture icon.
"
Mert csak ezzel együtt működik a kép megjelenítése.
Üdv. -
Fferi50
Topikgazda
válasz
Melorin
#50112
üzenetére
Szia!
A Refers to: nem a képlet része. Az a hivatkozás angol neve.
Írtam, hogy a képletben az Excelednek megfelelő függvényeket és formákat kell használnod.
Magyar Excelben a MATCH => HOL.VAN, a vessző helyett pedig általában pontosvesszőt kell használni.
Továbbá a képletet csak a névkezelő Hivatkozás részébe kell beírni. A cellákba a névkezelőben megadott nevet kell írni az egyenlőségjel után. Azt lehet lehúzni.
Üdv. -
Fferi50
Topikgazda
válasz
Melorin
#50107
üzenetére
Szia!
" 300 bejegyzést kell létrehoznom a névkezelőben ehhez?!"
Egyáltalán nem!
A második verzió nekem jobban "tetszik".
Itt a névkezelő képlete:Refers to: =INDEX($C$3:$C$22,MATCH($E$3,$B$3:$B$22,0))
Ahol a $E$3 a nevet tartalmazó cella. Amennyiben a sor elől elhagyod a $ jelet, akkor a képletet lefelé húzva majd mindig az aktuális cella értékét fogja keresni.Refers to: =INDEX($C$3:$C$22,MATCH($E3,$B$3:$B$22,0))
Az első cellába beírod a nevet: =ClubLogoLookup
majd ezt lehúzod, ameddig neveid vannak.
Természetesen a képletet és a függvények neveit a saját Exceled követelményeinek megfelelően használd.
Üdv. -
Fferi50
Topikgazda
Szia!
Például: abban a munkafüzetben, amiben a makró van, egy munkalap egy cellájába beírod a következő nyomtatás dátumát(időpontját). A makróval megnézed, hogy a cellában levő dátum/idő elmúlt-e már, ha igen akkor átírod a dátumot a következőre és nyomtatsz egyet, ha nem, akkor a makrónak nyomtatás nélkül vége.
Üdv. -
#50056
Fferi50
Topikgazda
Lasersailing
#50051
Fferi50
Topikgazda
válasz
Lasersailing
#50051
üzenetére
Szia!
Not enabled - azt jelenti, hogy nincs bekapcsolva (láthatóan szürke), tehát nem lehet rávinni a fókuszt.
Elképzelhető az is,hogy másik vezérlőhöz kapcsolódó esemény fut még és ezért nem sikerül a fókuszt áttenni a kérdéses objektumra.
Üdv. -
#50050
Fferi50
Topikgazda
Lasersailing
#50049
Fferi50
Topikgazda
válasz
Lasersailing
#50049
üzenetére
Szia!
Mi a hibaüzenet?
Van különbség a hibát okozó és a rendben lefutó kód között?
Jó lenne bővebb kódrészletet látni ha nem titok.
Üdv. -
#50029
Fferi50
Topikgazda
the radish
#50028
Fferi50
Topikgazda
válasz
the radish
#50028
üzenetére
Szia!
Nos nálam ebben a verzióban sem csinálja így a 365.
Üdv. -
#50027
Fferi50
Topikgazda
the radish
#50026
Fferi50
Topikgazda
válasz
the radish
#50026
üzenetére
Szia!
Tudom, nem vígasztal, de nálam nem jön elő ez a probléma 365-ben. Talán valami más beállítás - ami az egérmutató formáját vezérli - a Windows-ban lehet a ludas, mert az Excel beállításnál nem találtam ilyet.
Jól gondolom, hogy adatérvényesítéssel áll elő a lista?
Üdv. -
#50020
Fferi50
Topikgazda
the radish
#50019
Fferi50
Topikgazda
válasz
the radish
#50019
üzenetére
Szia!
Ez sajnos egy erős BUG a legújabb Excel verziókban. Nem tudom, szóvá tette-e valaki a MS oldalán. Valahány fájlt megnyit, mind ottmarad a VBA oldalon, de egyébként ha "megkérdezed" hány munkafüzet van nyitva, akkor 0 a válasz. Viszont úgy tűnik, a memóriát azért foglalja, sőt el is tud indulni a benne levő makró - csak épp hiba vagy összeomlás a vége. Csak a bezárás és újranyitás segít sajnos.
Jelenteni kell a MS felé.
Üdv. -
#50018
Fferi50
Topikgazda
istvankeresz
#50017
Fferi50
Topikgazda
válasz
istvankeresz
#50017
üzenetére
Szívesen!
-
Fferi50
Topikgazda
válasz
Fferi50
#50015
üzenetére
No itt a makró javított kiadása:
Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsfound = False
On Error Resume Next
Set wsSearch = Sheets(Textbox11.Value)
If Err = 0 Then
'ha van már ilyen munkalap, akkor feltesszük a kérdést
answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
If answer = vbYes Then wsSearch.Copy after:=Sheets("Havi_TEMPLATE"): wsFound = True
Else
Err = 0
Sheets("Szemely_TEMPLATE").Copy after:=Sheets("Havi_TEMPLATE")
ActiveSheet.Name = Textbox11.Value
wsFound=True
End If
On Error GoTo 0
If wsFound Then
With ActiveSheet
.Range("A2") = Textbox11.Value & " " & ComboBox7.Value
.Range("B2") = TextBox12.Value
.Range("C2") = TextBox13.Value
.Range("D2") = TextBox14.Value
End With
MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
Textbox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub -
#50015
Fferi50
Topikgazda
istvankeresz
#50013
Fferi50
Topikgazda
válasz
istvankeresz
#50013
üzenetére
Szia!
Inkább ezt próbáld ki, mert a másik nem igazán jó:Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsfound = True
On Error Resume Next
Set wsSearch = Sheets(Textbox11.Value)
If Err = 0 Then
'ha van már ilyen munkalap, akkor feltesszük a kérdést
answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
If answer = vbYes Then wsSearch.Copy after:=Sheets("Havi_TEMPLATE"): wsFound = True
Else
Err = 0
Sheets("Szemely_TEMPLATE").Copy after:=Sheets("Havi_TEMPLATE")
ActiveSheet.Name = Textbox11.Value
End If
On Error GoTo 0
If wsFound Then
With ActiveSheet
.Range("A2") = Textbox11.Value & " " & ComboBox7.Value
.Range("B2") = TextBox12.Value
.Range("C2") = TextBox13.Value
.Range("D2") = TextBox14.Value
End With
MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
Textbox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
Egy kis magyarázat hozzá:
Nem kell végigpörgetni a munkalapokat, mivel a vba hibakezeléssel megállapítható, ha van már ilyen munkalap => a Set után ha nincs hiba, akkor van már. Amennyiben ugyanolyan nevű új személy van, akkor ezt a munkalapot másoljuk, aminek az lesz az eredménye, hogy az Excel automatikusan ad egy sorszámot a névhez! ezzel nekünk nem kell foglalkozni.
Ha nincs, akkor másoljuk a Templatet.
Mivel a másolt munkalap lesz az aktív, utána beírhatjuk a szükséges adatokat az új munkalapra.
Remélem sikerülni fog.
Üdv. -
#50012
Fferi50
Topikgazda
istvankeresz
#50008
Fferi50
Topikgazda
válasz
istvankeresz
#50008
üzenetére
Szia!
Egy minta makrórész:Sub akarmi()Dim answer As Integer, wsFound As BooleanDim wbSearch As Workbook, wsSearch As WorksheetwsFound = TrueFor Each wsSearch In ActiveWorkbook.SheetsIf wsSearch.Name = TextBox11.Value Thenanswer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")wsFound = answer = vbYesEnd IfNextIf wsFound ThenSheets("Szemely_TEMPLATE").Copy After:=Sheets("Havi_TEMPLATE")With ActiveSheet.Name = TextBox11.Value & 2.Range("A2") = TextBox11.Value & " " & ComboBox7.Value.Range("B2") = TextBox12.Value.Range("C2") = TextBox13.Value.Range("D2") = TextBox14.ValueEnd WithMsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"End IfTextBox11.Value = ""ComboBox7.Value = ""TextBox12.Value = ""TextBox13.Value = ""TextBox14.Value = ""'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.End Sub
A Combobox Additem tulajdonságát nézd meg a forrás frissítésre.
Üdv. -
-
#50009
Fferi50
Topikgazda
istvankeresz
#50008
Fferi50
Topikgazda
válasz
istvankeresz
#50008
üzenetére
Szia!
Én az ugrálást egyáltalán nem támogatom.
A Combobox forrását (List tulajdonság) lehet frissíteni vba-ból is, nem kell azért bezárni a munkalapot.
Én bevezetnék egy változót, amivel jelölném a találatot.
A ciklus elején True-ra állítom. Ha van már olyan munkalap, akkor jön a kérdés, ha létre kell hozni az új munkalapot, akkor marad True, ha nem, akkor False-ra állítom. A vizsgálat után kilépek a ciklusból. A ciklus után ha True a jelölő, akkor létrehozzuk a munkalapot, ha False, akkor nem kell létrehozni.
Üdv. -
#50007
Fferi50
Topikgazda
istvankeresz
#50004
Fferi50
Topikgazda
válasz
istvankeresz
#50004
üzenetére
Szia!
Miért kell bezárni a fájlt egy új munkalap hozzáadása után?
Üdv. -
#50001
Fferi50
Topikgazda
the radish
#50000
Fferi50
Topikgazda
válasz
the radish
#50000
üzenetére
Szia!
Képletet összefüggő tartományra meg lehet adni egy lépésben:
Pl.Range("O1:O" & usor).FormulaLocal="=HAHIBA(INDEX(C$1:C$20000;$N1);"""")
Érték másolás önmagára akkor kell, ha nem szeretnéd a képletet megtartani.
Üdv. -
#49996
Fferi50
Topikgazda
the radish
#49995
Fferi50
Topikgazda
válasz
the radish
#49995
üzenetére
Szia!
A létrehozás dátumát a rendszer hozza létre, ahhoz nem lehet "normálisan" hozzányúlni szerintem.
Üdv. -
#49991
Fferi50
Topikgazda
the radish
#49990
Fferi50
Topikgazda
válasz
the radish
#49990
üzenetére
Szia!
Mire gondolsz?
A fájl nevébe beleteheted szöveges formában a létrehozás dátumát és időpontját is.
Üdv. -
Fferi50
Topikgazda
válasz
#86883328
#49982
üzenetére
Szia!
Szerintem épp fordítva van!
Egyébként a képleted sem megfelelő. A helyes képlet:
(A1/B1-1)*100, mivel a százalékos változást szeretnéd megtudni.
(110/100-1)*100=10%
(100/110-1)*100=9,09%
Magyarázat: Nagyobb alapnak nagyobb az 1 %-a is! 100 1%-a 1 míg 110 1%-a 1,1
Ezért kevesebb ugyanaz a 10 egység %-ban ha 110-hez viszonyítod, mintha 100-hoz viszonyítanád.
(Gondolj az ÁFA % -ra: a nettó értékre számolva 27 %, de a bruttóból csak 21,26 %!, mivel 127 21,26% -a lesz 27, így 127-27=100)
Üdv. -
Fferi50
Topikgazda
válasz
Magnat
#49977
üzenetére
Szia!
A Value2 - höz fűzött magyarázat:
"The only difference between this property and the Value property is that the Value2 property doesn't use the Currency and Date data types. You can return values formatted with these data types as floating-point numbers by using the Double data type."
A Value mindig a cellában levő adattípusnak felel meg a Value2 pedig Variant típusú.
Ha viszont a Cellában látható formában szeretnénk adatot kapni, akkor a Text tulajdonságot kell használni - persze ilyenkor String lesz a megkapott érték.
A Value az alapértelmezett tulajdonsága a Range-nek, így elvileg nem kell kiírni, más kérdés, hogy előfordulhat emiatt hibás értékadás, én nem sajnálom azt a pár betűt.
Üdv. -
#49975
Fferi50
Topikgazda
istvankeresz
#49974
Fferi50
Topikgazda
válasz
istvankeresz
#49974
üzenetére
Szia!
"az első igaz feltételhez kapcsolódó értéket másolja át és nem a második körben igaz feltételhez kapcsolódóét."
Természetesen, hiszen fixen megadtad, hogy mely cellákból másolja át az értékeket:"ThisWorkbook.Sheets(ws.Name).Range("A2") stb"
Helyesen szerintem:ThisWorkbook.Sheets(ws.Name).Range("A" & cell.Row").Value
Megjegyzés: én kiírnám a Value-t mindenhova, mert bár alapértelmezett, adódhat olyan eset, amikor nem egyértelmű, hogy cella értékére van szükség vagy magára a cellára.
Üdv. -
Fferi50
Topikgazda
Szia!
Egy megoldási lehetőség:
A B2 cella képlete:=HA(DARABHATÖBB($A$2:A2;INDEX($E$1:$F$4;HOL.VAN($A2;$E$1:$E$4;0);1);$B$1:B1;"X")<INDEX($E$1:$F$4;HOL.VAN($A2;$E$1:$E$4;0);2);"X";"")
Ezt igazítsd az adataidnak megfelelően. Kérlek figyelj a $-okra a címzésben.
A képlet megvizsgálja, hogy az adott településen az addigi X-ek száma elérte-e a kívánt értéket, ha igen, akkor nem tesz tovább X-et. -
Fferi50
Topikgazda
Szia!
Próbáld meg ezt a képletet:=HA(BAL(A2;2)="06";"+36"&KÖZÉP(A2;3;120);HA(BAL(A2;2)="36";"+"&A2;"+36"&A2))
Ha 06, akkor +36-ra változtatja, ha 36 az eleje akkor csak hozzáteszi a + jelet, ha egyik sem, akkor +36-ot tesz a szám elé.
Természetesen másik oszlopban kell a képletet használni.
Üdv. -
#49958
Fferi50
Topikgazda
istvankeresz
#49957
Fferi50
Topikgazda
válasz
istvankeresz
#49957
üzenetére
Szia!
Vannak nem látható karakterek az adott oszlop egy cellájában. Megnézheted hol található, ha a munkalapon állva F5 majd irányított - utolsó cella.
A tényleges adattartalomtól lefelé ki kell törölni az összes sort/oszlopot, akkor áll helyre.
Ha folyamatos az adatok beírása az oszlopban - vagyis nincs üres cella az adatok között, akkor használható a Range("E1").End(xlDown).Row +1 is az első üres cella meghatározására. Figyelj arra, csak akkor használható a fenti forma ha az oszlop első 2 cellájában van érték, különben hibát fog jelezni, mert a munkalap utolsó során túl akar lépni.
Amíg nincs adat az első két cellában, akkor direktben meg kell adni az 1. ill. 2. sort.
Üdv. -
#49948
Fferi50
Topikgazda
istvankeresz
#49946
Fferi50
Topikgazda
válasz
istvankeresz
#49946
üzenetére
Szia!
Ezt a sort a for ciklus elé érdemes betenni a kezdő sor számának meghatározására. A másolás viszont akkor így néz ki:Sheets(6).Range("E" & lr) = cell.Value :lr=lr+1 ' másol majd növeli a sor számát.
Üdv. -
Fferi50
Topikgazda
Szia!
Próbáld meg a következőt:
Kijelölöd a beolvasandó adatokat az egyik munkalapon, majd Az Adatok - Adatok beolvasása és átalakítása csoportból a Táblázatból vagy tartományból menüpontot választva Power Query szerkesztővel létrehozod a kívánt lekérdezést.
Ugyanezt megcsinálod a másik 2 munkalapra is.
Ezután a 3 lekérdezést egyesítheted.
Üdv.
).
Új hozzászólás Aktív témák
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- PlayStation 3
- E-book olvasók
- MWC 2026: leégsz, ha nem figyelsz a TCL 15 ezer nites panelje előtt
- exHWSW - Értünk mindenhez IS
- Milyen légkondit a lakásba?
- 5.1, 7.1 és gamer fejhallgatók
- Fejhallgató erősítő és DAC topik
- Garmin topik
- Yettel topik
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Microsoft és egyéb dobozos retro szoftverek
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- ÚJ Lenovo LOQ 17IRX10 - 17.3"FHD 165Hz - i7-13650HX - 24GB - 1TB - RTX 5060 - Win11 - 3 év gari - HU
- Előbb mint bárhol máshol !! Motorola Moto G77 8GB/256GB - 1 év garancia
- Apple iPhone 12 Pro / 128GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 13 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS4666
- AZONNAL KÉSZLETRŐL! Intel Core i5 14600K 32GB 6000MHz RAM 2TB Gen4 SSD RTX 5060 8GB FSP 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest