- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- bitpork: Augusztus 2- szombat jelen állás szerint.
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- eBay-es kütyük kis pénzért
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Yutani: Yutani Retró Hangkártyái: AdMOS AdWave 32
- user2: Kia Ceed Gold 160 1.5 T-GDI MY2024
-
LOGOUT
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
-
-
Pakliman
tag
válasz
m.zmrzlina
#36295
üzenetére
"Természetesen a fájlokon valaki úgy dolgozik, hogy a hálózati meghajtóról nyitja meg és oda is ment, van aki a saját gépére másolja ott dolgozik rajta aztán másolja vissza, néha nem is ugyanabba a könyvtárba és nem is ugyanazon a néven mint amin levette."
Ha ez nem lenne, makróval még meg is lehetne oldani. De így...
Ha Te vagy a felelőse/"karbantartója" ennek a dolognak, akkor MEG KELL tiltanod/akadályoznod, hogy mindenki azt csináljon, amit akar.
Ha ezt nem teszed, marad a kézimunka
Bár így is működhet a makró, csak ez esetben a Te feladatod lesz a makró futásakor kiválasztani a szükséges munkafüzeteket. -
#36295
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Adott 12 db nagyjából egységes munkafüzet. Vannak különbségek de van egy tartomány ami mindegyikben cakkra megegyezik. A tartomány maga (amolyan fejléc féle) nem túl nagy,
A1:B135de ezt a két oszlopot aztán további oszlopok követik, egyik munkafüzetben kevesebb másikban több. A munkafüzeteket több user használja értelemszerűen hálózati meghajtóról.Az a gond, hogy néha módosítani kell ezt a listát (törölni/beszúrni sorokat, vagy csak a A,B oszlopban módosítani az azonosítókat). Természetesen minden módosítást mindjárt mind a 12 fájlban végre kell hajtani.
Mi a legcélszerűbb módja annak, hogy meg lehessen úszni a 12-szeri megnyitom>átírom>mentem műveletet. Oké hogy a fejléc tartomány minden celláját át lehet hivatkozni egy másik fájlból és akkor csak abban az egyben kell módosítani de mi a helyzet a sorok törlése/beszúrása művelettel?
Természetesen a fájlokon valaki úgy dolgozik, hogy a hálózati meghajtóról nyitja meg és oda is ment, van aki a saját gépére másolja ott dolgozik rajta aztán másolja vissza, néha nem is ugyanabba a könyvtárba és nem is ugyanazon a néven mint amin levette.
És persze minél bolondbiztosabb megoldás kellene (ha létezik egyáltalán).
Előre is köszi.
-
jackal79
aktív tag
Sziasztok!
Köszönöm mindenkinek a segítséget!
Valószínűleg makró rögzítéssel fogom bepötyögni azokat a táblázatokat, amiket havi lebontásban kell tölteni.
Utána olvastam és a makró sok mindenben megtudja könnyíteni az ember dolgát. Megtanulásához szükséges informatikai végzettség vagy egy halandó ember is képes elsajátítani. Tudnátok ajánlani egy olyan tananyagot, ami az alapszinttel foglalkozik? Ha úgy látjátok, hogy informatikus képzettség szükséges hozzá, akkor azt jelezzétek, mert neki sem állok
-
Fferi50
Topikgazda
-
föccer
nagyúr
-
jackal79
aktív tag
válasz
Fferi50
#36286
üzenetére
Köszönöm mindenkinek a segítséget!
Ezek céges táblázatok, ezért semmilyen információt nem oszthatok meg róla. Gondoltam, hogy nem lesz egyszerű...
Még annyi, hogy a makrózást mennyire bonyolult megtanulni, mert az a munkámban nagy segítséget nyújtana.
Tudtok valami gyorstalpalót vagy esetleg a Youtube tutorial? Meglehet így tanulni vagy felesleges időt szánni rá?
Egyébként arra gondoltam, hogy a már kész fület úgy átmásolni, hogy a rögzített adatok törlődjenek. Ez kb napi szinten 400-500 rögzítést jelent és a táblázat úgy van megcsinálva, hogy nem folyamatos. Olyan mintha egy nagy Excelben sok kis táblázat lenne, módisítani nem lehet, mert a táblázatból más táblazatok is húznak adatokat.
Azért köszönöm mindenkinek! -
Fferi50
Topikgazda
válasz
föccer
#36285
üzenetére
Szia!
Ezzel és Delila megoldásával is "csak annyi" a baj szerintem, hogy a teljes munkalap minden értéke törlődik - beleértve a fej és oldalrovatokat is!
A kérdező viszont a lapmásolás után a másolt lapon a meglevő, régi adatok helyére szeretne új adatokat beírni úgy, hogy először kitörölné a zavaró, régi adatokat. (Ha rosszul értettem volna, majd kijavít,)
Így viszont már nem olyan egyszerű a feladat. Ahhoz sajnos ismerni kellene a munkalap szerkezetét, hogy tisztességes makrót lehessen hozzá írni.Üdv.
-
Delila_1
veterán
válasz
jackal79
#36282
üzenetére
Nem bonyolult. Megadod, melyik terület adatait kell törölni, például A2:V6000.
A makró ennyi
Sub Torles()
ActiveSheet.Range("A2:V6000").ClearContents
End Subamit modulba mentesz (lásd a Téma összefoglalót).
Állsz azon a lapon, ahol törölni akarsz, Alt + F8-ra megjelennek a makróid, ahol indítod a Torles nevűt.
-
SharpSA
veterán
válasz
SharpSA
#36240
üzenetére
Meglett a megoldás.
A 2016-os excelben is kipróbáltam egy üres munkafüzetben a következőt: akármilyen szöveg egy cellába, Segoe UI betűtípus 8-as mérettel. Mentés. Megnyitva oké. A cellán belül a szöveg eleje és vége kövérre állítva, majd mentés. Megnyitáskor teljesen más méretű és típusú betűkkel jelenik meg a szöveg. Valamit elb.sztak kedves birkaszofték a frissítések során, persze már nem először. Csesszék meg...
2013-as excelt telepítettem, abban nincs ilyen hiba, minden rendben működik. Muszáj ezt használni, mert ezzel jól jelenik meg az összes eddigi árlista. Ugyanez a 2016-ossal is jó volt korábban. Értem én, hogy nem szövegszerkesztő, de akkor minek vannak benne ilyen funkciók? Mindent meg lehet csinálni, ha akarják... -
jackal79
aktív tag
Sziasztok! Egy kis segítség kellene. Munkahelyemen szinte mindent Excelben rögzítünk és a legtöbb táblázat úgy van megoldva, hogy füleken vannak elválasztva a hónapok vagy az évek. Mivel csak az első fül lett megcsinálva, ezért azt másolgatom, de akkor az előző hó vagy év adatai bent maradnak. Sok olyan táblázat van, ami elég bonyolult és mindig törölgetni kell az előző hónapban vagy évben bevitt adatokat.
Van arra vmi megoldás, hogy úgy lehessen átmásolni, hogy a beírt adatok ne kerüljenek át? Erre szinte 0% esélyt látok.
Viszont régebben olvastam, hogy makróban meg lehet oldani, ez mennyire bonyolult?
Köszi! -
-
0P1
aktív tag
válasz
Delila_1
#36277
üzenetére
Excel 2016-ban valóan ott van ez a funkció, (Adatok, Beolvasás/ átalakitás, ), de korábbbi verziókban Addin nélkül a Külső adatok átvétele menüpontban a Microsoft Query érhető csak el, ami gyakorlatilag PowerQuery/Beolvasás&Átalaktás elődje, de jóval korlátozottabb tudású és kevésbé felhasználóbarát.
-
0P1
aktív tag
válasz
Ghoosty
#36276
üzenetére
Hopp, ezer bocs, utánanéztem és tényleg kell neki IE9 vagy későbbi böngésző. Azért lepődtem meg rajta, mert nekem Win10 van, és mégis megy, (úgy tudtam, abban már nincs is IE, csak Edge, de most látom, hogy van, csak jól el van rejtve) Az a vicces , hogy a standard Excel 2016-ba éptett Get&Transformnak, ami lényegében pontosan ugyanazt tudja , mint a korábbi Exceleken a PowerQuery add-in, nem kell IE. Ez valami szokásos Microsoftos húzás. Persze örüljünk, hogy legalább valahogyan elérhető korábbi Excelekre is, nem csak Excel 2016-ra a feature.
-
Ghoosty
őstag
válasz
Delila_1
#36277
üzenetére
A Microsoft honlapja szerint nem része a 2010-nek alapból:
Excel 2010 and Excel 2013
Power Query is a free add-in that can be downloaded here: Download the Power Query add-in. Once enabled, Power Query functionality is available from the Power Query tab on the ribbon.
Letöltöttem az add-in-t, amit ír, és mikor telepíteni próbálom, kapom a hibaüzenetet, hogy nincs IE9.
Nekem nincs a külső adatok között ilyen menüpont, gondolom, mert nincs telepítve az az add-in.
-
0P1
aktív tag
válasz
Delila_1
#36274
üzenetére
Excel 2016-hoz vagy O365-höz nem kell semmit se telepiteni, azóta szerves része az excelnek , magyarban Beolvasás/Átalaktás az Adat menüben, angolban Get&Transform Databan (csak korábbi verziókhoz kell egy kis add-in). De IE nem kell hozzá semmiképpen, ott valamit Ghoosty félreértett.
-
0P1
aktív tag
válasz
Delila_1
#36272
üzenetére
CSakhogy excelben autoszűrővel, kijelöléssel, másolással, beillesztéssel ezt a néhány egérkattintást mindig meg kéne ismételni.
Ezzel viszont pontosan le lenne automatizálva az egész, csak némileg egyszerűbben és gyorsabban, mint VBA-val. CSak egyszer kell megcsinálni, és utána elég mindig csak egy refresht nyomni, ha le akarja futtatni. Az ugyanúgy egy gombnyomás, mint elinditani a makrót -
-
Ghoosty
őstag
Erről még nem is hallottam. Gondoltam tanulok én is valami újat, de nem találtam sehol ezt a funkciót. De google barátom segített. Cégnél 2010-es Excel van és ahhoz nincs ilyen funkció, csak ha letöltesz hozzá egy add-in-t. A telepítése meg elakadt, mert kell neki IE9. Azt meg nem rakhatom fel, mert egyelőre tiltja az IT policynk. Szóval egyelőre a tanulás elmarad.
-
0P1
aktív tag
válasz
föccer
#36267
üzenetére
Erre érdemesebb Get&Transformot használni, azt pont ilyenek automatizálására találták ki. És ez annyira egyszerű feladat, hogy scriptelni se kell, csak pár egérkattintás az egész.
Olvasd be a táblát (Data/Get&Transform/From Table), állttsd be a négy szűrést a négy oszlopban (ugyanúgy műxik, mint a régi autoszűrő funkció, válaszd ki a két oszlopot, amiket át akarsz másolni (Manage Columns/Choose Columns) aztán Close&Load. Ennyi. -
Delila_1
veterán
válasz
föccer
#36267
üzenetére
A Kr1:Kr4 (kritériumok) változóknál a helyfoglalásnál nem állítottam be a típust (string, double, boolean, date, stb. lehet)
Az adatokat tartalmazó listát táblázattá alakítottam, a neve Adatok.
Sub Szures()
Dim Kr1, Kr2, Kr3, Kr4
Kr1 = Range("L1"): Kr2 = Range("L2"): Kr3 = Range("L3"): Kr4 = Range("L4")
' Inputboxban is bekérheted a szűrő feltételeket
ActiveSheet.Range("Adatok").AutoFilter Field:=1, Criteria1:=Kr1 'A oszlop szűrése
ActiveSheet.Range("Adatok").AutoFilter Field:=3, Criteria1:=Kr2 'C oszlop szűrése
ActiveSheet.Range("Adatok").AutoFilter Field:=5, Criteria1:=Kr3 'E oszlop szűrése
ActiveSheet.Range("Adatok").AutoFilter Field:=6, Criteria1:=Kr4 'F oszlop szűrése
End SubSub Szuro_Reset()
ActiveSheet.Range("Adatok").AutoFilter Field:=1
ActiveSheet.Range("Adatok").AutoFilter Field:=3
ActiveSheet.Range("Adatok").AutoFilter Field:=5
ActiveSheet.Range("Adatok").AutoFilter Field:=6
' Az ActiveSheet.ShowAllData utasításnál minden adat látszik, de
' a szűrő feltételek megmaradnak. Ekkor a sorazonosítók kék színűek
End SubSub Szurt_Oszlop_Masolasa()
Sheets("Munka2").Columns(1).ClearContents 'előző másolat törlése
Range("B1:B" & Range("B1").End(xlDown).Row).Copy Sheets("Munka2").Range("A1")
End SubSub Rejtett_e()
If Rows(7).Hidden = True Then
MsgBox "Rejtett"
Else
MsgBox "Ne rejtett"
End If
End SubSub Szuro_ki_bekapcs()
Range("A1").Select
ActiveCell.CurrentRegion.AutoFilter
End Sub -
#36268
foregister
tag
0P1
#36266
foregister
tag
Köszi a javaslatokat srácok!
- a VLOOKUP így ebben a formában kevés, én egy IF AND + INDEX + RANDBETWEEN + COUNTA függvényig jutottam el, de ott akkor is adott ki találatot, ahol nem volt státusz kitöltve
- a get&transform-ra ránézek még nem volt vele dolgom, legalább tanulok valami újat, habár nem vagyok script párti - ha az lennék keveset kérdeznék -
föccer
nagyúr
Estét!
Következő kérdésem lenne. Hogyan tudom eldönteni, hogy egy cella rejtett-e autoszűrő által-e vagy sem? Illetve makróból hogyan tudom beállítani az egyes autószűrőket? Összesen 4 küldönböző oszlopban kell szűrnöm és a leszűrt halmaz 2 oszlopát átmásolnom máshová, majd resetelnem az autószűrőt.
-
0P1
aktív tag
válasz
Ghoosty
#36264
üzenetére
Ha véletlenszerűen szeretnéd, akkor használhatod az Excel Get&Transform funkcióját . Meg lehet oldani persze worksheet függvénnyel is, de szerintem a Get&Transform szebb
.Ha az oszlop megnevezéseid Termék neve, Sorozatszám és Státusz, akkor Data / Get& Transform / From table az első munkalapon lévő táblán, aztán Advaced editorba vágd be az alábbi queryt:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
AddedIndex = Table.AddIndexColumn(Source, "Index", 0, 1),
BufferedRandomNumberList = List.Buffer(List.Random(Table.RowCount(AddedIndex))),
AddedCustom = Table.AddColumn(AddedIndex, "Random", each BufferedRandomNumberList{[Index]}),
SortedRows = Table.Sort(AddedCustom ,{{"Random", Order.Ascending}}),
#"Filtered Rows" = Table.SelectRows(SortedRows, each [Státusz] = "reg"),
#"Grouped Rows" = Table.Group(#"Filtered Rows", {"Termék neve"}, {{"Random", each List.Min([Random]), type number}}),
#"Merged Queries" = Table.NestedJoin(#"Grouped Rows",{"Termék neve", "Random"},AddedCustom,{"Termék neve", "Random"},"NewColumn",JoinKind.LeftOuter),
#"Aggregated NewColumn" = Table.AggregateTableColumn(#"Merged Queries", "NewColumn", {{"Sorozatszám", List.Min, "Sorozatszám"}}),
#"Removed Columns" = Table.RemoveColumns(#"Aggregated NewColumn",{"Random"}),
#"Sorted Rows" = Table.Sort(#"Removed Columns",{{"Termék neve", Order.Ascending}})
in
#"Sorted Rows"És utána Close&Load. Ki fogja dobni egy új munkalapra a termékneveket, egy random módon megtalált lehetséges sorozatszámmal, ahol a státusz "reg". Ha megnyitáskor automatikus frissitést szeretnél , pipáld be a "Refresh data when opening the file" checkboxot a connection propertiesben (de természetesen frissstheted manuálisan is.
-
Madwe
nagyúr
Sziasztok, az utolsó excel frissítés óta hibázik az excel hyperlink csatolásokkor, rosszul generálja a relatív útvonalat. (eddig 10 gépből 3on van frissítés s mind hibázik).
Teszem azt van a v meghajtó, mondjuk nas néven.
a nas/1/1/1.xls fájlból a nas/1/2/2.xls filera nem ../2/2.xls-t tesz, hanem valamiért teljesen kimegy még a meghajtóból is s vissza, pl jelen esetben ../../../nas/1/2/2.xls.
S miután ezt magától odaköpte, utána természetesen meg se tudja nyitni a fájlt mert nem találja
2 kerülőutat adtam eddig kollegáknak:
vagy abszolút linket erőszakoljanak ki belőle úgy, hogy lenyíló fülből kikeresik a megosztási mappát - van akinél ez is hibázik -vagy pedig kézzel másolják s javítsák ki a linket a régebbi működőekről. Namármost egyik sem kívánatos, tudni vmit erről a hibáról, ms tud róla? bárki belefutott már? köszi! -
#36264
Ghoosty
őstag
foregister
#36263
Ghoosty
őstag
válasz
foregister
#36263
üzenetére
Akkor tessék:
=IF(VLOOKUP(E3,A:C,3,0)="reg",VLOOKUP(E3,A:B,2,0),"nem regisztrálható")Amit kell tudni az értelmezéshez, hogy "reg", az a c oszlopban lévő megnevezés, hogy regisztrálható. Ha az szerepel ott, hogy "regisztrálható", akkor azt ki kell cserélni arra.
Amúgy az első sorozatszámot fogja kidobni. Véletlenszerűt nem tudok.Ja és ebben az esetben E3 cellában található terméknévhez keresi meg. Remélhetőleg ez alapján át tudod írni magadnak. (Azért E3, mert így sikerült, mikor teszteltem.
) -
foregister
tag
válasz
Ghoosty
#36262
üzenetére
bocs, tényleg nem világos így újra elolvasva.
Tehát azt szeretném, ha az első munkafüzetből a másik munkafüzet A oszlop celláiban megadott termékhez keres egy regisztrálható sorozatszámot. Tehát két feltételt vizsgál:
1. terméknév egyezik-e és ha igen, akkor
2. megnézi, hogy a sorozatszám "regisztrálható" státuszú-e.Ha "regisztrálható", akkor az adott cellában megjeleníti az első vagy véletlenszerűen talált, de megadott termékhez tartozó regisztrálható sorozatszámot.
Hmmm, lehet ezzel csak még inkább bonyolítottam leírást...
-
#36262
Ghoosty
őstag
foregister
#36261
Ghoosty
őstag
válasz
foregister
#36261
üzenetére
Lehet, hogy nem értem jól, de a B oszlopba beírod ezt, akkor csinál egy sorszámot.
A terméknév első, középső és utlolsó karakteréből, meg egy 3 jegyű véletlen számból.=LEFT(A1,1)&MID(A1,INT(LEN(A1)/2+1),1)&RIGHT(A1)&ROUND(RAND()*1000,0) -
#36261
foregister
tag
foregister
tag
Sziasztok!
Van egy sheetem egy nagy listával a következő oszlopokkal:
- A oszlop: Termék neve (pl. Termék1, Termék2)
- B oszlop: Sorozatszám (pl. Serial001, Serial002, Serial003)
- C oszlop: Státusz (pl. regisztrálható, regisztrálva)Van egy másik fülem, ahol a következő adatok vannak
- A oszlop: Termék neve soronként (pl. Termék 1, Termék 2) -> az itt megadott szóból keres
- B oszlop: Sorozatszám -> ide szeretnék véletlenszerűen megjeleníteni egy "regisztrálható" státuszú terméket az A oszlopban megadott terméknév alapján. Nem baj, ha minden megjelenítéskor frissül.Angol Excelt használok.
-
Delila_1
veterán
válasz
jackal79
#36257
üzenetére
A cellák egyesítését engedi az Excel, de nem tudja rendesen kezelni, például az általad írt rendezésnél. Nincs más hátra, meg kell szüntetni az egyesítést, és más módszert találni az adatok átlátható megjelenítéséhez.
Az utolsó módosítást csak makróval lehet figyeltetni, viszont feltételes formázással adhatunk feltűnő formázást, ha dátumokat figyeltetünk. Például az A oszlopban vannak dátumok, és itt kell figyelni, hogy régebbiek-e ezek a mai dátumnál 30 nappal. Ekkor a feltételes formázás képlete
=A1<=MA()-30
amihez feltűnő formázást rendelsz.
-
-
jackal79
aktív tag
Sziasztok!
Tudtok erre vmi megoldást:
pl van egy olyan táblázat, ahol az első oszlop neveket tartalmaz, fontos, hogy ABC sorrendben legyenek a nevek. A többi oszlop a névhez tartozó adatokat tartalmazza (szül.hely, idő, lakcím, anyja neve stb).
Azt szeretném, ha bővítem a névsort az automatikusan ABC sorrendbe rendezze, úgy hogy a hozzá tartozó oszlop adatai is a megadott névhez rendeződjenek.
Remélem érthető!
Köszi! -
karlkani
aktív tag
Sziasztok!
Van egy táblázatom, több, számított eredménnyel, melyek más cellák értékeit szorozzák egy bizonyos százalékértékkel. Többnyire nem egész szám a végeredmény (tizedes jegyek 0-ra állítva, így egész szám jelenik meg). Ezeket szeretném összegezni úgy, hogy a kerekített értékeket adja össze. Nem opció ezeknél a celláknál a
=KEREKÍTÉSfüggvény használata (kizárólag a=cellahivatkozás*xy%használható). Van erre függvény?Előre is köszönöm!
-
Nixon18
senior tag
válasz
Delila_1
#36250
üzenetére
Szia!
Köszönöm! ezt (vagy ehhez hasonló leírást találtam én is.
Ez annyival "butább" ahhoz képest, amit én szeretnék, hogy nem a dátum alapján választ az excel napot és abból ad ki egy legördülő listát, hanem manuálisan kell egy listából kiválasztani a napot.De még ez is jobb megoldás, mint mindent manuálisan beírni mindig.
-
Delila_1
veterán
válasz
Nixon18
#36247
üzenetére
Lehet, hogy nem erre gondolsz, de azért leírom.
Nem szükséges makróval elintézni, egyszerűen megoldható anélkül is.
A különböző tartományoknak nevet adsz.
Az F2:F3 nálam a "kategóriák" névre hallgat.
Fontos, hogy az allisták azt a nevet kapják, amelyik főlista-beli kategóriába tartoznak. A H2:H8 tartomány neve gyümölcs, a J2:J10-é zöldség. A tartományokat táblázattá alakítottam, így bővítéskor, szűkítéskor az elnevetett tartományok rugalmasan követik a sorok számát.
Az elnevezések nevében nem lehet szóköz, és nem szerepelhet önállóan számjegy.Az első érvényesítés a C2 cellában van, a lista forrása: =kategóriák
A D2-es érvényesítésnél a forrás: =INDIREKT(C2)
-
Pakliman
tag
válasz
föccer
#36241
üzenetére
A ThisWorkbook modul "Workbook_BeforeSave" eseménykezelőjébe kell beírni egy kódot.
Ez minden "mentés" esetén lefut, itt tudsz jelszót kérni és ha azt nem tudja az illető, akkor elhajtani a ...
Pl.:Const ValódiJelszó = "MentésiJelszó"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sPass As String
sPass = InputBox("Mi a jelszó?")
If sPass <> ValódiJelszó Then
Cancel = True
MsgBox "Nincs jogod menteni!!"
End If
End SubÉs persze magát a munkafüzetet és azon belül a VBA kódot is jelszóval védeni. A VBA kódnál nem engedjük meg a betekintést sem, hiszen akkor megtudná akárki a szükséges jelszót
-
-
Fferi50
Topikgazda
válasz
SharpSA
#36240
üzenetére
Szia!
Itt (is) mutatkozik meg, hogy az Excel nem szövegszerkesztő. Így nyomtatásban bizony nem feltétlenül az jelenik meg, amit a képernyőn látsz. Ezt sajnos ki kell kísérletezni.
A rossz formázás oka szerintem az xml -ben történő hiba. Talán ki kellene törölni a teljes régi fájlt. Vagy teljesen más néven kellene elmenteni.
Egyébként ezek meghatározhatatlan hibajelenségek... Talán Redmondban sem tudják, mitől keletkezik.Üdv.
-
-
SharpSA
veterán
Sziasztok!
Nekem a formázással van bajom. Van sok cella, amikben csak szöveg (termék neve, leírása, összetétele) van vegyes formázással, általában vastag és normál betűkkel. Ez árlista, ezért az árak számítása miatt lett xlsx-ben alkotva. Nyomtatási képen már másként jelenik meg, vagy üres hely jelenik meg a két sor között, vagy belelóg a cella szövege az alatta levő cellákba. Mit lehet ezzel kezdeni? Eléggé idegesítő, hogy sokszor teljesen másként jelenik meg már a nyomtatási kép ahhoz képest, amit szerkesztés közben mutat.
A másik probléma: ugyanezen árlisták egy kényszerű teljes windows újratelepítés után (mert egy frissítés után nem indult el sehogy sem a gép) megnyitáskor teljesen szétcsúsznak, azaz az egy cellában levő szöveg nagy része mind félkövér lett, máshol meg mások a betűtípusok és még nagyobbak is. Hiába javítom ki és mentem el, a következő megnyitáskor ugyanúgy rosszul jelenik meg mind. Viszont a Libreoffice-ban javítva és mentve, majd újra megnyitva minden jó, de az itt javított táblázatot Excelben újra megnyitva ismét rossz. Látszik egy pillanatra a jó dokumentum, de aztán teljesen átformázódik. Remélem érthető... Van valami megoldás erre, van lehetőség kitisztítani az xlsx-et a felesleges, hibás részektől?
-
Predator2
addikt
Helló
Szerintem nektek egyerekjáték lezs, de nekem nem sikerült megoldani a problémát.
2013-as céges Excel, angol nyelvű, de én nem tudok angolul
2 dolgot szeretnék megoldani.
1: A bal oldalon lévő számokat rögzíteni, úgy hogy ne vegye figyelembe mikor a cellát továbbiakban szerkesztem. Mármint ne írj felül, hanem csak az után engedjen írni.
2: Tabulátort hogyan lehet megoldani? Arra lenne szükségem, hogy bekeretezett számoktól fix távolságra ugorjon és onnan tudjam a cellákat szerkeszteni.THX
-
bteebi
veterán
válasz
pigster
#36235
üzenetére
Nem, már megvan a megfejtés. Elég idegesítő
. A lényeg az, hogy két cellában (a 11000 sorból) hiba volt, és azoknál így nem tudott értéket adni a len-nek. És emiatt szállt el az egész. Szóval végig jó volt, csak a forrásadatban volt hiba 
. Amúgy magyar Excel 2010-em van, és nagyon oda szoktam figyelni, hogy ne úgy nevezzem el a változóimat, hogy ilyen problémák felmerülhessenek. De a felvetés teljesen jogos volt 
.Amúgy vicces, ahogy rájöttem. Message box-ot beletéve, minden sor eredményét kiíravta lefuttattam a ciklust 10 sorral, és úgy lefutott hiba nélkül. Ahogy 100, 1000 és 5000 sorral is. 8000-rel viszont már nem, mert 7800 körül volt az első hiba. (Csv-ből lettek az adatok beolvasva, és a kötő- és egyenlőségjel okozott gondot.)
Még egyszer köszönöm mindkettőtök segítségét!
-
bteebi
veterán
válasz
Fferi50
#36229
üzenetére
Dim chars as Long, a cikluson kívül meg van adva az értéke (0), a makró előtt megOption Explicitvan. ALen(sh.Cells(sor, 5))eredménye meg szám, message box kiírja, szóval nem értem, hogy achars = chars + Len(sh.Cells(sor, 5))már miért nem jó
. A chars-nak ugyan elfelejtettem kezdőértéket adni (bár az akkor automatikusan 0, nem?), de ha meg is adom ugyanott, ahol a többi változónak, akkor is type mismatch... -
Fferi50
Topikgazda
válasz
bteebi
#36228
üzenetére
Szia!
Itt valami árulás esete forog fenn....
Minden próbát írtál, kivéve, hogy a chars nevű változó értékét ki tudod-e íratni. A kiskutyus valószínűleg ott van elásva.
Nálam 2016-os magyar Excelben megy rendesen. (Bár a chars változóként való használatával nem feltétlenül értek egyet, mivel VBA szintakszisban előfordulhat itt-ott esetleg.)Üdv.
-
bteebi
veterán
Sziasztok!
Egy adott tartományban, bizonyos feltételeknek eleget tevő cellákban szeretném megszámolni a karakterek számát. Egy apróságtól eltekintve működik. Ez pedig:
chars = chars + Len(sh.Cells(sor, 5))A
charslongként van megadva, akárcsak asor, szóval elvileg kellene működnie, de nem megy. Type mismatch. Message box-szal működik aLen(sh.Cells(sor, 5)), de a szintén long típusú változóhoz nem tudom hozzáadni. (Ashis jól van megadva, máshol működik:Dim sh As Worksheet, Set sh = ThisWorkbook.Sheets("Stat")). Mi lehet a gond? Köszönöm a megfejtést! -
Ghoosty
őstag
=IFERROR(VLOOKUP(A1,$F$1:$G$3,2,0),"")
A VLOOKUP üres cellára, hibát írna ki, de ha belefoglalod egy IFERROR függvénybe, akkor tudod kezelni a hibát. A példában hiba esetén ""-legyen, tehát semmi.
A képen B oszlopban végig ez a képlet van és ahol nincs betü, ott semmit hoz fel. -
AKG
tag
válasz
Ghoosty
#36225
üzenetére
Öööööö
Izé
Először is köszönöm,hogy foglalkoztál vele!Nem mondom,hogy kínai,amit írtál,mert nem.
Inkább japán
De nagyjából értettem,kivéve az üres cella esetére írt dolgot!
Ezt ha esetleg bővebben leírnád,megköszönném!Nos,a kiegészítéssel már szuper
Köszönöm még egyszer!
-
Ghoosty
őstag
Csinálj egy segédtáblát, ami tartalmazza, egymás mellett, hogy ABS2mm 1, következő sorban ABS0.4mm 2.
Aztán VLOOKUP/FKERES függvénnyel keresd ki a második oszlopot a segédtáblából a felirat alapján.
Ha van üres is, akkor beágyazod egy IFERROR/(Ennek nem tudom a magyar megfelelőjét) függvénybe és a hiba részéhez beírsz üres karaktert.
Ha nem jól értettelek, vagy én nem vagyok érthető szólj.De ha függvénnyel is megcsinálhatod, ha csak kevés féle van
=HA(A1="ABS 2mm",1,HA(A1="ABS 0.4mm, 2))
De folytathatod is, csak van egy határa az excelnek, hogy hány HA-t tud egybefűzni. -
AKG
tag
Sziasztok!
Segítséget szeretnék kérni:
Adott egy táblázat,aminek az oszlopaiban kétféle megnevezés található.
Szeretném,ha a mellette lévő oszlopokban ezeket számokkal helyettesítené.
A ha függvényt néztem,de nem jöttem rá a helyes képletre.
Mellékelek egy képet,amin látható,hogy mit szeretnék.A megadott megnevezések: ABS 2 mm;ABS 0,4 mm
Ezt szeretném lefordíttatni: 1 ; 2
Előre is köszönöm a segítségeteket!
-
Fferi50
Topikgazda
Szia!
Javaslat:
Kellene hozzá két segédoszlop az ADAT munkalapon. Ha A100-ig vannak adataid,
E2 képlete:=HA(($C$2:$C$100=Értékelés!$F$3)*1*($D$2:$D$100=Értékelés!$G$3)*1=1;B2;"")F2 képlete:
=HAHIBA(SORSZÁM($E2;$E$2:$E$100;0);0)
Ezt kell végighúzni a két oszlopon, ameddig adataid vannak.
Az Értékelés munkalapon:
B2 tömbképlete=MAX((Adat!$A$2:$A$100=$A2)*1*Adat!$F$2:$F$100)
A tömbképletet Ctrl + Shift + Enter billentyű kombinációval lehet bevinni, az Excel kapcsos zárójelbe teszi.Ezt is lehúzhatod, ameddig adataid vannak az A oszlopban.
Ha változik az F és/vagy a G oszlop, az eredmény is változik (természetesen).
Üdv.
-
Agony
aktív tag
Sziasztok!
SORSZÁM függvény használatával kapcsolatban szeretnék egy kis segítséget kérni.
Arra lenne szükségem, hogy csak azokat az értékeket rangsorolja, amik megfelelnek két kritériumnak.Tehát az ERTEKELES munkalap tartalmazza a névsort az A oszlopban, a B oszlopban pedig jelenleg a SORSZÁM függvénnyel a helyezést, pl:
Józsi 1.
Péter 2.
István 3.
....Ehhez az adatokat az ADAT munkalap tartalmazza hasonló struktúrában, tehát A oszlop a név B oszlop az érték, de itt van C és D oszlop is, amiből a C oszlop az év, a D oszlop a hónap.
Az ERTEKELES munkalapra az F3 és G3 cellákba írható be, hogy melyik év, melyik hónapjának értékeit szeretnénk vizsgálni, így eleve például csak a 2017-es év 10. hónapjának értékei kerülnének rangsorolásra.
Ez megvalósítható makró nélkül?
INDEX-el próbálkoztam, de nem igazán jutottam egyről a kettőre.
Előre is köszönöm a segítséget!
-
Fferi50
Topikgazda
válasz
xAttilaxB
#36218
üzenetére
Szia!
Gondolom, minden dolgozónak van egyedi azonosítója, ha más nem TB, de a nevek is lehetnek.
Az egyedi azonosítókat/neveket felveszed egy külön táblába - ezt akár el is nevezheted.
A kiválasztó cellára az Adatok - érvényesítés menüpontban felteszed ezt a listát.
A hozzájuk tartozó adatokat pedig Fkeres függvénnyel, vagy INDEX - HOL.VAN kombinációval (ha nem a bal szélső oszlopban van az azonosító) találhatod meg.Üdv.
-
xAttilaxB
csendes tag
Sziasztok,
Olyan problémával fordulnék hozzátok, hogy adott egy cég, ahol vannak dolgozok(nem sok 10-15fő). A fönök a bérezést excelben szeretné vezetné, mégpedig úgy, hogy adott egy táblázat amelyben szerepelnek, szabadságok, fizetések stb stb egyénenként. Azt szeretné, hogy lenne egy legördülő menü (drop down list) amelyben kiválasztja a dolgozót és a választás alapján módosulnának az adatok.
Ezt hogy oldanátok meg?
Köszi Attila
-
kezdosql
tag
Tudna valaki segiteni, hogy excel s libreoffice kozott milyn fajltipus mukodik jol az adatcserehz?
xls es xlsx idonkent hibat jeleznek, excel nem enged xml-be menteni, mrthogy "nem tartalmaz xml adatot", ha 2003-as xlm-t valasztunk, azt kimenti, es libreoffice megnyitja, de excel tobbt nem nyitja meg "ismeretlen stilus" hibaval.
libreoffice ods-t gyaltalan nem fogadja el.Barkinek barmilyen bevalst otlete?
-
Indyke
csendes tag
Sziasztok
2010-es magyar nyelvű excell.
A feladat az lenne, hogy egy kulcs-soft-os webshopba olvasná be a benne lévő cikkeket és a megadott paramétereiket, viszont ki kellene egészíteni a termékek képeivel a táblát, amit nem tudom miként tudnék megoldani. Hiperhivatkozás működhet esetleg?
-
föccer
nagyúr
válasz
Fferi50
#36213
üzenetére
Feneket. A 800. Sor korul ujraindult a gep, szerintem tulmelegedett... ^.^
Majd mindjart rakok bele egy automatikus mentest meg hogy kezelje a meglevo rszeket ne kelljen ujra szamolnia.
Hogyan lehet az eesz oszthatosagot ellenorizni? Regebben pascalos idoben valahogy ugy oldottam meg hogy ha az osztasi maradek =0 akkor hajtsa vegre muveletet. Igy lehetett konnyen egy for ciklusban periodikus utasitasokat futtatni.
-
föccer
nagyúr
válasz
föccer
#36211
üzenetére
Ó, és nem ez volt a hiba (csodálkoztam is volna, mert azt a 2 cellát fixen felül kell írni minden ciklusban, szóval baj nem lehetett belőle, hogy nem nulláztam őket.
Ellenben ilyen eset is régen történik velem...
Az optimalizációs algoritmust én építettem fel, moat, hogy futtatom kell rájönnöm, hogy túlságosan is jól készítettem fel és okosabb mint én... Ugyanis bele tettem egy olyan lépést is aminek az alaplépései nem jelennek meg a végeredmény táblázatban, csak a végeredménye és az istenért nem akartam rájönni, hogy mégis miért nem nem azt látom amit. Ugyanis megtörtént, hogy az bementi alapadatok táblázatában el van írva valami és ezt az elírást a hibakereső rész automatikusan felismerte és korrigálta... 
Epic, inkább megyek aludni...
-
föccer
nagyúr
válasz
Fferi50
#36206
üzenetére
Már egészen jól akalku. Csak valamiért nem a várt eredményeket adja vissza az optimalizáció... Vannak közel azonos sorok. LEgalábbis technológiailag azonosak, aminél az alkalmazott szabályrendszer alapján más eredményeknek kellene jönni.... :-/ Nem a makróval van a gond, az szépen elvégzi a feladatát.
Szóval most morci vagyok.
Óóó, és most eszembe is jutott a megoldás...
A 12 bevitt paraméterből csak 10-et nulláztam ki a ciklus elején... Van 2 eldugottabb helyen, az kimaradt... üdv, föccer
-
Pakliman
tag
válasz
ben800
#36204
üzenetére
Úgy nagyjából valami ilyesmi...
Public Sub AdatMásolás()
Dim wbT As Workbook 'A "kis" munkafüzet, ami tartalmazza a...
Dim wsT As Worksheet '..munkalapokat (1-től 12-ig)
Dim cT As Long 'Számláló (a 19 db táblázathoz)
Dim usT As Long 'A kis táblázat utolsó sora
Dim aws As Worksheet 'Csak azért, hogy ne ActiveSheet legyen:)
Dim us As Long 'A FŐ táblázat utolsó sora
Dim sor As Long 'Egyszerű számláló
Dim talált 'A keresett azonosító cellacíme lesz
Set aws = ActiveSheet
For cT = 1 To 19
On Error GoTo Hiba
Set wbT = Workbooks.Open("a feldolgozandó kis táblázat neve útvonallal együtt")
For Each wsT In wbT.Worksheets
usT = wsT.Cells(wsT.Rows.Count, 1).End(xlUp).Row
For sor = 2 To usT 'Feltételezve, hogy az 1. sor fejléc
'Az azonosító az 1. oszlopban van
'!!! A FŐ táblában (aws) keressük a kis táblás azonosítót (wsT.Cells(sor, 1)) !!!
Set talált = aws.Columns(1).Find(What:=wsT.Cells(sor, 1), LookAt:=xlWhole, MatchCase:=True)
'Ha találtunk, akkor nem csinálunk semmit.
'Ellenben:
If talált Is Nothing Then
us = aws.Cells(aws.Rows.Count, 1).End(xlUp).Row
aws.Cells(us + 1, 1) = "azonosító"
aws.Cells(us + 1, 2) = "adat1"
aws.Cells(us + 1, 3) = "adat2"
aws.Cells(us + 1, 4) = "adat3"
aws.Cells(us + 1, 5) = "adat4"
aws.Cells(us + 1, 6) = "adat5"
'...
End If
Next sor
Next wsT
On Error GoTo 0
wbT.Close SaveChanges:=False
Next cT
Set wbT = Nothing
Set wsT = Nothing
Set aws = Nothing
GoTo Vége
Hiba:
'Hibakezelés, pl. ha nincs olyan fájl stb.
'Ha nem kell tenni semmit hiány esetén, akkor egyszerűen csak..
Resume Next
Vége:
End Sub -
Fferi50
Topikgazda
válasz
föccer
#36205
üzenetére
Szia!
Jó sok időt szánhattál rá! Gratula!
Ami a kérdésedet illeti:
"rá tudom-e venni macróból a számolótáblámat ..."Természetesen rá tudod venni. Ciklussal végig kell menni a paraméterlistán, átírni értékadással a számolótáblád megfelelő cellájába a paramétert.
Ha ki nem kapcsolod az újraszámolást - a tábla automatikusan újraszámolódik minden egyes cella változásakor(!).
Makróban:
automatikus számolás kikapcsolása: Application.Calculation=xlCalculationManual
visszakapcsolás: Application.Calculation=xlCalculationAutomaticAz újraszámoltatás makróból :
Application.Calculate => az összes nyitott munkafüzet újraszámolása.
Worksheets(1).Calculate => az 1. munkalap újraszámolása
Worksheets(1).Range("A2:A3").Calculate => az adott cellák újraszámolása.Üdv.
-
föccer
nagyúr
Estét!
Elkészítettem egy viszonylag összetett számolótáblát. Egy optimalizációs eljárásról van szó. Ez a számolótábla 1 paramétersor alapján el tud végezni egy markényi számítást, kiértékelést, összehasonlítást, értékadást. Mindent függvénykezeléssel. (fkeres, index, indirekt, hahiba, ha, és, vagy, szumhatöbb, darab, darabhatöbb, aritmetikai műveletek). A számolótábla végén megjelenik 2 cellában a számomra értékes végeredmény.
Van nekem egy paraméterlistám, ami cirka 1200 tételből áll. A kérdésem az, hogy ha egy külön munkalapra berakom a paraméterlistát, akkor rá tudom-e venni macróból a számolótáblámat, hogy soronként kiszedje a paramétereket, betolja a számolótáblába, végrehajtsa az optimalizálást, majd a végeredményt visszaszedje a munkalapra, lépjen a következő sorra etcetc?
Milyen utasítással tudom rávenni, hogy a beírt paraméterekkel újraszámoljon?
Köszi
üdv, föccer
-
ben800
aktív tag
válasz
Pakliman
#36201
üzenetére
Igazándiból pont most alakítjuk ki a kis tábláknak a szerkezetét
Ezzel konkrétan csak annyi dolgom van hogy például az A oszlopba beszúrok egy Azonosító sort, és amikor megtörténik egy tranzakció akkor csak legyen mellette például egy egyes, és minden sornak, egészen januártól-decemberig külön azonosítója legyen úgy hogy 2 táblában ne legyen ugyan az az azonosító egyszerre ??Egy ilyen kis minta kódot tudnál mutatni, ha nagyon szépen megkérlek ??
Valamint még egy olyan kérdésem volna, hogy létezik-e olyan függvény ami egy oszlopban visszaadja az oda utoljára beírt számot ??
Válaszokat előre is köszönöm !
-
Fferi50
Topikgazda
válasz
cortez25
#36190
üzenetére
Szia!
Van erre egy tömbfüggvényes megoldásom, de most nem találtam meg
Viszont csatolok egy két segédoszlopos megoldást. Itt elérheted
A J1 cellába beírod a keresett szöveg egy részét és az F,G,H oszlopokban megjelenik a keresett adat.
Szerintem ezt át tudod a céljaidnak megfelelően alakítani. D,E a két segédoszlop.Üdv.
-
Ghoosty
őstag
válasz
cortez25
#36190
üzenetére
Egy függvényt 1 cellába írsz be, nyilvánvalóan csak 1 cellára fog tudni hivatkozni. (Bár létezik valahogy, hogy egész tömböt tud kezelni egy cella, de ez túl van az én tudásomon.)
Erre igazából pivot tábla való, vagy szűrő és másolás.
Függvényekkel INDEX MATCH összefűzésével lehetne megcsinálni, INDIRECT függvénnyel megadni a keresési tartományt és mindig az előző sorból hivatkozva csökkenteni egyre a keresési táblát. Ezt több sorban kell megcsináni és végül elfogy a tábla. De egy ilyet összerakni nem 5 perc és nem is alapfok ezért nem írok konkrét példát. -
Pakliman
tag
válasz
ben800
#36200
üzenetére
Szia!
A lényeg (egyben a megoldás kulcsa), hogy a "kis" táblákban a soroknak legyen egy egyedi azonosítója (ezt a felhasználónak nem is kell látnia).
Ha ez megvan, onnantól már pikk-pakk (meg még néhány sor VBA kóddal ) megoldható a dolog.
Ha nincs és nem is megoldható, akkor gáz van
. A lényeg az, hogy két cellában (a 11000 sorból) hiba volt, és azoknál így nem tudott értéket adni a len-nek. És emiatt szállt el az egész. Szóval végig jó volt, csak a forrásadatban volt hiba 
. Amúgy magyar Excel 2010-em van, és nagyon oda szoktam figyelni, hogy ne úgy nevezzem el a változóimat, hogy ilyen problémák felmerülhessenek. De a felvetés teljesen jogos volt 
.
. A 
Új hozzászólás Aktív témák
Hirdetés
- WLAN, WiFi, vezeték nélküli hálózat
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos cigaretta 🔞
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xbox Series X|S
- Sony MILC fényképezőgépcsalád
- EA Sports WRC '23
- exHWSW - Értünk mindenhez IS
- Kerékpárosok, bringások ide!
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 GAMER PC termékbeszámítással
- Telenor 5G Indoor WiFi Router (FA7550) + töltő (bolti áruk 100.000Ft)
- DELL Universal Dock D6000 dokkolók, RTX Legion Pro laptopok 4 év Lenovo garanciával, licencek
- AKCIÓ! Sapphire Nitro+ RX 6800 XT 16GB videokártya garanciával hibátlan működéssel
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest