Hirdetés
- GoodSpeed: Te hány éves vagy?
- Magga: PLEX: multimédia az egész lakásban
- gban: Ingyen kellene, de tegnapra
- vrob: Próbálkozás 386 alaplap újraélesztésre
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2026
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
-
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
-
#32600
Kalogenius
csendes tag
Kalogenius
#32599
Kalogenius
csendes tag
válasz
Kalogenius
#32599
üzenetére
Áttettem Word-be ott gyorsan a csere lehetőséggel kivettem a kis köröket, vissza az Excelbe, és már működött is. Köszönöm szépen a segítséged!
-
#32598
bsasa1
csendes tag
Kalogenius
#32597
bsasa1
csendes tag
válasz
Kalogenius
#32597
üzenetére
Válassz egy párt és nézd meg mi köztük a különbség. Előfordulhat, hogy valamelyik név után be van ütve egy szóköz, akkor már nem azonosak a cellák, viszont ugyanúgy néznek ki.
Ha nem találsz próbáld ki, hogy kitörlöd a nevek közül mindkettőnél a szóközt, mert az is lehet, hogy az egyik (vagy mindkettő) nem sima space, hanem valamilyen speciális karakter. Bár nem tudom ilyennel ki szórakozna... -
#32597
Kalogenius
csendes tag
Kalogenius
#32596
Kalogenius
csendes tag
válasz
Kalogenius
#32596
üzenetére
Ez történt:
Itt megint megállt a tudományom.
-
#32594
Fferi50
Topikgazda
Kalogenius
#32592
Fferi50
Topikgazda
válasz
Kalogenius
#32592
üzenetére
Szia!
Nem tudom, hogy valóban azonosak-e a nevek, vagy csak úgy néznek ki? Lehet bennük nem látható karakter.
Próbáld ki, hogy az egyik oszlopból a másikba átmásolsz egy nevet (másolás, irányított beillesztés -értéket). Ebben az esetben a feltételes formázásnak jeleznie kell, hogy egyformák.Ha ez nem történt meg, akkor valami grimbusz van vagy a feltételes formázásodban, vagy a munkalappal.
Üdv.
-
Fferi50
Topikgazda
válasz
bandus
#32591
üzenetére
Szia!
Két lehetőséged is van.
datuma="2016.01.05"
filenev=dir("*" & datuma & "*")
if filenev<>"" then
filemegnyitás
endif
vagy
filenev=dir(*.*)
if instr(filenev,datuma)>0 then
filemegnyitás
endifAz else ágat neked kell kitalálni hozzá - nyilván ciklusban fogod nyitni a fájlokat, vagy továbbmész, vagy hibaüzenetet adsz.
FIGYELJ rá, hogy a datuma nevű változó szöveg és olyan formában tartalmazza a keresett dátumot, ahogyan az a fájlnévben benne van.Üdv.
-
sziasztok!
olyan fájlt szeretnék feldolgozni, amiben két változó is van, az egyik a dátum, amely alapján beazonosítanám és megnyitnám a vba kóddal, a másik pedig az összes többi karakter, ami random generálódik. hogyan oldható meg, hogy az a fájl kerüljön megnyitásra, ami tartalmaz adott karaktereket (a dátumot), és a fájlnév többi részét pedig figyelmen kívül hagyjuk?
köszi előre is a választ
-
#32590
bsasa1
csendes tag
Kalogenius
#32589
bsasa1
csendes tag
válasz
Kalogenius
#32589
üzenetére
Szia,
elvileg jól csinálod, próbáld meg, hogy belemész a Feltételes formázás / szabályok kezelése pontba, ott kiválasztod, hogy ez a munkalap, vagy ez a táblázat és ezt kellene látnod:
Az érvényességbe mindkét esetben legyen benne a teljes táblázat.
-
#32589
Kalogenius
csendes tag
Delila_1
#32571
Kalogenius
csendes tag
válasz
Delila_1
#32571
üzenetére
Kedves Delila! El jutottam odáig a feladat végrehajtásában amikor azt írtad, hogy kezdődhet az érdemi munka előttem a két tartomány feltételesen formáztam azok az új szabályt alkalmaztam az egyedi vagy ismétlődő értékek formázása menüpontot első esetben az ismétlődő opciót választottam a formátumban pirossal jelöltem meg a betűket következő lépésként megjelöltem az egyedi értékeket, és ott a formátumnál az automatikus betűszínt választottam. De a táblázatnál nem volt semmi változást, vagy is az azonos nevek nem leszek piros színűek. Mit ronthattam el?
-
Oly
őstag
válasz
Fferi50
#32585
üzenetére
Szia
Mivel a keresési érték is egy összefűzött szöveg A és B oszlopból, ezért az N oszlopban is összefűzött adat van (L és M). Erre szeretnék hivatkozni és nem az N oszlopra.
Közben rátaláltam, hogy a TÖMB lesz az én emberem, de még keresem a feltöltés lehetőségét.
Valószínűleg ciklussal... -
Fferi50
Topikgazda
Szia!
"a Match-ben a Lookup_array Range-re tudok valahogy dinamikusan hivatkozni, mint ahogy a Lookup_value-nál tettem?"
Természetesen, pl. változóként definiálod az adott területet és azt írod be:
Dim kereshely as Rangeset kereshely=Range("N:N")
hol = Application.Match(Cells(sor, "A") & Cells(sor, "B"),kereshely, 0)
A tartomány beállítását pedig szerintem már meg tudod oldani.Üdv.
-
blountex
senior tag
Üdv!
Aki otthon van a "Lehetőségelemzés" terén, az írjon rám.
Lenne még egy egyszerűnek tűnő feladat, amivel próbálkoztam, de egyelőre nem jött össze.
Van egy cella legyen A1 ahova írok egy dátumot mondjuk 2016.09.02.
Ezt a dátumot átszeretném vinni úgy a C cellában hogy ha beírom hogy =A1 akkor a cellába ne 0 érték legyen hanem üres, iletve ha már írtam egy dátumot az A1es cellába majd kitöröltem akkor 1900.00.01 fogad.
A másik kérdésem, hogy adott egy fix dátum (2016.09.02) és arra hivatkozva szeretnék 3 napot kivonni.
Köszi. -
#32582
zulu_mester
tag
zulu_mester
tag
Sziasztok!
Abban szeretném a segítségeteket kérni, hogy van egy excel táblázatom, amelyben nevek, a nevekhez tartozó tantárgyak, tantárgyakhoz tartozó osztályok és óraszámok. Egyes tantárgyaknál csoportbontás van illetve egyes tantárgyakat több osztály is tanul összevonva (egyes idegennyelv órák és fakultációs órák). Ebből a táblázatból kellene kereszttáblát varázsolni. Ezt hogyan lehetne megoldani?
Előre is köszönöm a segítségeteket. -
Oly
őstag
válasz
Delila_1
#32456
üzenetére
Szia
Tovább gondoltam az általad vázolt megoldás.
Ez lett belőle:
Dim usor As Long, sor As Long, hova As Long, hol, WF As WorksheetFunction
Set WF = Application.WorksheetFunction
'tegnap volt, de ma nincs
usor = WF.CountA(Columns(1))
For sor = 2 To usor
hova = WF.CountA(Columns(11)) + 1
hol = Application.Match(Cells(sor, "A") & Cells(sor, "B"), Range("N:N"), 0)
If VarType(hol) = vbError Then
Range("A" & sor & ":B" & sor).Copy Range("K" & hova)
Cells(hova, "M") = 0
On Error GoTo 0
End If
Next
'változók listája tegnaphoz képest
usor = WF.CountA(Columns(11))
For sor = 2 To usor
hova = WF.CountA(Columns(7)) + 1
hol = Application.Match(Cells(sor, "K") & Cells(sor, "L") & Cells(sor, "M"), Range("E:E"), 0)
If VarType(hol) = vbError Then
Range("K" & sor).Copy Range("G" & hova)
End If
Next
'nem változott tételek törlése a mai listában
usor = WF.CountA(Columns(11))
For sor = 2 To usor
hol = Application.Match(Cells(sor, "K"), Range("G:G"), 0)
If VarType(hol) = vbError Then
Range("K" & sor & ":O" & sor).Value = ""
End If
NextAz a kérdésem, hogy a Match-ben a Lookup_array Range-re tudok valahogy dinamikusan hivatkozni, mint ahogy a Lookup_value-nál tettem?
Ez azért lenne fontos, hogy ne kelljen kiegészítő oszlopot létrehozni a táblák mellett.Előre is köszi, oly
-
Apollyon
Korrektor
Hali!
Van egy hosszú listám. Ez dobozokat tartalmaz, és az azokban szereplő dokumentumokat.
Minden sorban szerepel minden adat, azaz, ha egy dobozban többszáz darab doku van, akkor annyiszor.
Itt egy metszet: [kép]Mint látható, a C oszloban szerepelnek a dobozszámok. A képen 6699, utána 6703 majd később folytatódik 6704 stb. Ez egy több tízezer soros tábla.
Szeretném a C oszlop tartalmát kimásolni úgy, hogy minden érték csak egyszer szerepeljen. Ezt hogy tudom megcsinálni? 2010-es, magyar verzió.
-
Delila_1
veterán
válasz
Fferi50
#32573
üzenetére
Mindenképp szét kell választani a fekete és piros neveket, mert a feladat, "megtudni, hogy meny nevek szerepelnek mindkét névsorban?"
Ez biztosan valami iskolai feladat. Nem láttam még olyan – barbár – megoldást, hogy két névsort 1 oszlopba tett valaki, és még együtt is rendezte volna a kettőt.
-
Upo
addikt
Üdvözletem!
Dátum felismeréssel lenne problémám, excel 2013 alatt. Az a gond, hogy a szöveges formában beírt dátumból nem nagyon akar dátumot csinálni, ~650 tételsornál kb. 40-50-et ismert fel, tehát a nagy részét nem.
A dátumok szabályosan vannak beírva, pl.:
2016. szeptember 12.
Egyik táblázatból illeszteném be egy másikba, és próbálkoztam mindennel. Az oszlop formátuma dátumra van állítva, mindenféle irányított beillesztést próbáltam, F2 szerkesztés után enter, sőt saját kezemmel begépeltem a dátumot, és akkor sem. Rendes szóközt, pontot használtam, semmi idióta unikódos karakter nincs benne. Csak számokkal megadva a dátumot természetesen felismeri. Mivel nem szeretnék hétvégén éjszakáig bent ülni, ezért most úgy oldottam meg, hogy openoffice calc-ba beillesztettem ugyanezt az adatsort, ott rendesen felismerte, és ki is derült, hogy 3 elgépelés volt a hónapokban, de ahogy javítottam kézzel, rögtön azokból is dátum lett. Így excelbe visszamásolva jó lett, meg is csináltam az exportot belőle.Mi az ami meggátolhatja a dátum felismerését? Ha legközelebb kell ilyent csinálnom akkor hogy csináljam hogy jó legyen? Vagy mindig kell egy openoffice-ba átmásolás-visszamásolást csinálnom?
Ha egyiket sem ismerte volna fel akkor még hagyján, de mi alapján válogat? Mert volt amit felismert. És nem is a hónap nevével van a baj, mindegyik hónapból van felismert és fel nem ismert is.Itt egy példa, ugyanaz van a két oszlopba bemásolva, csak a második oszlopot átállítottam a kötőjeles dátumformára, azokon látszik hogy melyiket vette dátumnak, és melyiket nem. Márciusból van a képen ilyen is és olyan is, ha már egyet felismert, akkor a többit miért nem?
-
#32573
Fferi50
Topikgazda
Kalogenius
#32570
Fferi50
Topikgazda
válasz
Kalogenius
#32570
üzenetére
Szia!
Ha a B1 cellába beírsz egy =DARABTELI(A:A;A1) >1 képletet és ezt végighúzod az oszlopon, megláthatod, hogy mely nevek szerepelnek egynél többször. Ez persze csak akkor igazán jó, ha a két névsorban külön-külön nincsenek azonos nevek. Ha viszont a >1 hasonlítást elhagyod a végéről, akkor számra szűréssel megnézheted, mely nevek ismétlődhetnek az egyes névsorokban.
Üdv.
-
#32572
alfa20
senior tag
Kalogenius
#32570
alfa20
senior tag
válasz
Kalogenius
#32570
üzenetére
Az nem jó ha 'B' oszlopban beirsz minden név mellé egy 1est, majd 'C'-be egy SZUMHA függvény?
-
#32571
Delila_1
veterán
Kalogenius
#32570
Delila_1
veterán
válasz
Kalogenius
#32570
üzenetére
Eleve 2 külön oszlopba kellene szétdobni a 2 tartományt.
Beszúrsz egy címsort, majd táblázattá alakítod a listát. Ekkor már tudsz színre szűrni. A kiszűrt pirosakat átmásolod egy másik oszlopba (ennek is adsz címet), az A oszlopból pedig törlöd a tartalmukat.Az A-ban üres celláid lesznek, ezeket meg kell szüntetni. Kijelölöd A2-től az utolsó névig, Ctrl+g (Ugrás menü), Irányított, Üres cellák. Ez a tartomány üres celláit jelöli ki. Most a Ctrl és a számbillentyűzeten lévő mínusz hatására ezek a cellák kitörlődnek, az alattuk lévő, tartalommal bíró cellák feljebb kerülnek, folyamatos lesz az oszlop kitöltöttsége.
Az A oszlopban maradtak az egyik-, a másikba a másik listás adatok kerültek.
Fontos, hogy mindkét oszlopban lévő nevek a saját oszlopukban csak egyszer forduljanak elő. Ehhez az Adatok | Ismétlődések eltávolítása menüpontot használd.
Most kezdődhet az érdemi munka.
Kijelölöd a két tartományt, majd feltételesen formázod azokat. Új szabály, Csak az egyedi vagy az ismétlődő értékek formázása menüpont. Első esetben az ismétlődő opciót választod, és megadod a formátumot, OK. Következő lépésként beállíthatod az egyedi értékeket is, és másik formátumot adsz nekik.
Most már mindkét oszlopodat szűrheted szín szerint, és a szűrés eredményét (ismétlődő, vagy egyedi) átmásolhatod máshova, ha szükség van rá. -
#32570
Kalogenius
csendes tag
Kalogenius
csendes tag
Sziasztok! segítséget szeretnék kérni az alábbi feladat megoldásához: Van két névsorom (az egyik piros a másik fekete) ami között némi átfedés van (ugyanazon nevek mind két névsorban szerepelnek). Szeretném megtudni, hogy meny nevek szerepelnek mindkét névsorban? Talán az az érdekessége, hogy mivel nagyobb névsorok vannak ezért az azonosak sorba rendezés után nem feltétlenül kerülnek egy más mellé.
A segítséget előre is köszönöm.
-
Con Troll
senior tag
Sziasztok!
Kis segítségre szorulnék, nem tudom összerakni fejben, hogy hogyan kéne megoldani ezt a feladatot.
Adott egy tábla, ahol D2: D100 sorokban dátumok vannak, E2: E100 sorokban pedig színek, szövegesen kiírva.Szemléltetésként:
A feladat az, hogy az A2005: E2009 tartományban függvénnyel megadjuk, adott napon melyik színből hány darab volt.
Így:
Ezt hogy tudnám megoldani? Köszönöm előre is!
-
Delila_1
veterán
Ha a beírt függvénnyel kész vannak a lapok, nem akarsz mást ellenőrizni, módosítani rajtuk, akkor a mostani makróba az End Sub fölé írd be egy új sorba annak a makrónak a nevét, amelyiket a mentésre kiválasztottad (LapMentes, vagy MentTorol).
Akkor elég a mostanit indítanod, minden feladatot elvégez. -
Delila_1
veterán
Van megoldás.
Sub Kulon_Lapra_2()
Dim sor As Long, lapnev As String, WS1 As Worksheet, usor As Long
Application.ScreenUpdating = False
Set WS1 = ActiveSheet
'egyedi rekordok az AA oszlopba
WS1.Range("B1:B" & Application.CountA(WS1.Columns(2))).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1"), Unique:=True
sor = 2
Do While Cells(sor, "AA") <> ""
lapnev = Cells(sor, "AA")
WS1.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=lapnev 'szűrés
Sheets.Add After:=Sheets(Sheets.Count) 'új lap létrehozása
ActiveSheet.Name = lapnev
WS1.Range("A1").CurrentRegion.Copy Sheets(lapnev).Cells(1) 'másolás
'képlet az U:W-be
usor = Application.WorksheetFunction.CountA(Columns(22)) + 1
Range("U" & usor & ":W" & usor) = "=subtotal(9,U2:U" & usor - 1 & ")"
WS1.Activate
sor = sor + 1
Loop
WS1.Range("A1").CurrentRegion.AutoFilter Field:=2 'szűrő visszaállítása
Application.ScreenUpdating = True
End Sub -
Zozzy
aktív tag
válasz
Delila_1
#32556
üzenetére
Lényegében így is fele annyi idő, mintha manuálisan csinálnám végig a művelet sort, tehát már az első verzió is nagy segítség volt, köszönöm! Ezt a változatot csak holnap fogom tudni kipróbálni.
Viszont ha ennyire belemerültünk, lenne mégegy feladat az adatsorral.
Miután az első makró lefut, úgy kell minden lapot alakítanom, hogy a V U és W oszlopok utolsó értékei alatt egy részösszeg(9, azaz szum) képlettel összeadom az oszlopot a 2. sortól a végéig. Mivel az egyes munkalapokon nem azonos a sorok száma, így nem tudom azokat egyszerre kijelölve egy művelettel elvégezni, hanem laponként kell megtennem. Ha erre nincs megoldás, az sem nagy baj, így is jelentős a segítség, amit kaptam! -
-
Zola007
veterán
válasz
EmberXY
#32562
üzenetére
nem kijelölt területet tettem át, hanem komplett munkalapot.
Éppen azért, hogy az összes formázás, stb megőrződjön(#32559) Fferi50: nincs mit rajta nézni, mert ugyanabban az excelben van megnyitva a 2 dokumentum, a nyomatási beállításokat pedig az Excel adja, nem a munkalap.
Az az érdekes, hogy a cellák excelben látott mérete is eltér, pedig a beállított méret ugyanaz. Szerintem valami bugzik. Nincs benne makró -
EmberXY
veterán
-
#32560
Fferi50
Topikgazda
thomas50.000
#32557
Fferi50
Topikgazda
válasz
thomas50.000
#32557
üzenetére
Szia!
A formátumkód: #0":"# helyett: #0":"0
A # csak akkor ír számjegyet, ha nem 0 az érték, a 0 minden esetben megjelenik,
Üdv.
-
Zola007
veterán
Ez mitől lehet?
Adott egy táblázat, ami pont kitölt egy A4 oldalt nyomtatva, nyomtatási mező szaggatott vonala is szépen a szélső celláknál mutatja a margót.
Fogom, átmásolom egy másik munkafüzetbe az egész munkalapot (áthelyés és másolás - új munkafüzet - (x) legyen másolat....)
A másik munkafüzetből ha ki akarom nyomtatni, akkor nem fér rá egy A4 lapra.
betűméret, cellaméretek, A4, margók, tájolás, nyomtatási méret, minden az ég egy adta világon mindkét munkafüzetben ugyanaz, mégis az egyikben ráfér egy lapra, a másikban nem
-
#32557
thomas50.000
csendes tag
thomas50.000
csendes tag
Sziasztok!
Cellaformázáshoz szeretnék egy kis segítséget kérni. A lényeg, hogy 2 számot írok be a cellába, és közé ő rakjon : (kettőspontot).
pl.:
11 --> 1:1
10---> 1:0
01---> 0:1Ezekkel nincs is gond. De ha 00-át írok be, akkor csak egy db 0-át érzékel. Szóval ezt írja ki: "0:" ez helyett "0:0".
A formátumkódom: #0":"#
Mit kéne ezen átírnom, hogy a 00 is 0:0 legyen?
Előre is köszönöm!
-
Delila_1
veterán
Akkor gyorsítsunk – bár úgy tapasztaltam, hogy sok sor esetén nem túl gyors az Excelben a szűrés.
A makró a B oszlop adataiból speciális szűréssel kimásolja az egyedi adatokat az AA oszlopba, onnan veszi, hogy milyen adatokra kell szűrni a tartományt. Ha az AA oszlopban vannak adataid, minden helyen írd át az AA-t nagyobb oszlop nevére.Az adatokat tartalmazó lapon állva kell indítani a makrót.
Sub Kulon_Lapra_1()
Dim sor As Long, lapnev As String, WS1 As Worksheet
Application.ScreenUpdating = False
Set WS1 = ActiveSheet
'egyedi rekordok az AA oszlopba
WS1.Range("B1:B" & Application.CountA(WS1.Columns(2))).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1"), Unique:=True
sor = 2
Do While Cells(sor, "AA") <> ""
lapnev = Cells(sor, "AA")
WS1.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=lapnev 'szűrés
Sheets.Add After:=Sheets(Sheets.Count) 'új lap létrehozása
ActiveSheet.Name = lapnev
WS1.Range("A1").CurrentRegion.Copy Sheets(lapnev).Cells(1) 'másolás
WS1.Activate
sor = sor + 1
Loop
WS1.Range("A1").CurrentRegion.AutoFilter Field:=2 'szűrő visszaállítása
Application.ScreenUpdating = True
End Sub -
#32555
petersonal
tag
petersonal
tag
Sziasztok!
Egy olyan kérdésem lenne, hogy van lehetőség olyan feltételes formázásra, hogy az azonos értékeket megegyező színnel jelöli meg. Kiegészítés: több egyező érték van, és mindegyiket másféle színnel kéne megjelölni. A feltételes formázásban a szín skálák nem jó megoldás, mert minimális különbségű a szín a két szám között. Példa :
10015
10015
10015
10017
10018
10018
10222
10222Tehát itt az egyező számok egyező színnel szerepeljenek,de pl. a 15 és 18, 22 stb. színe között legyen különbség. Remélem érthető amit kérni szeretnék, bocsánat a béna megfogalmazásért.
-
Delila_1
veterán
3 makrót írtam. Az első sorra veszi a B oszlop celláit. Ha még nincs ennek megfelelő lap a füzetben, létrehozza, átmásolja a címsort és az aktuális sort. Az új lap neve az aktuális sor B oszlopában lévő adat lesz. Ha már van ilyen nevű lap, az első üres sorába másolja az aktuális sort. Nem kell az első lapon rendezettnek lennie a táblának.
A második sorra veszi a lapokat a másodiktól az utolsóig, Új füzetbe másolja az aktuális lapot, ezt elmenti a lapnév nevével az utvonal nevű változóban megadott mappába. Ezt a makró elején kell átírnod az
utvonal = "C:\Temp\"
sorban a saját mentési útvonaladra.Ha az eredeti füzetben nem akarod megtartani az újonnan létrehozott lapokat, akkor a második helyett a harmadik makrót futtasd. Ez nem másolja, hanem áthelyezi a lapokat 1-1 új füzetbe. Itt is át kell írnod az utvonal változó értékét.
A két másolós makró feltételezi, hogy kezdetkor 1 lap volt a füzetedben.
Sub Kulon_Lapra()
Dim sor As Long, lapnev As String, a, hova As Long, WS1 As Worksheet
Application.ScreenUpdating = False
Set WS1 = ActiveSheet
sor = 2
Do While Cells(sor, 1) <> ""
lapnev = Cells(sor, "B")
On Error Resume Next
Set a = Sheets(lapnev)
If Err.Number <> 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = lapnev
WS1.Rows(1).Copy Sheets(lapnev).Cells(1)
WS1.Activate
End If
On Error GoTo 0
hova = Application.WorksheetFunction.CountA(Sheets(lapnev).Columns(1)) + 1
Rows(sor).Copy Sheets(lapnev).Cells(hova, 1)
sor = sor + 1
Loop
Application.ScreenUpdating = True
End SubSub LapMentes()
Dim lap As Long, utvonal As String, lapnev As String
utvonal = "C:\Temp\"
Application.ScreenUpdating = False
For lap = 2 To Sheets.Count
lapnev = Sheets(lap).Name
Sheets(lapnev).Copy
ActiveWorkbook.SaveAs Filename:=utvonal & lapnev & ".xlsx"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End SubSub MentTorol()
Dim lap As Long, utvonal As String, lapnev As String
utvonal = "C:\Temp\"
Application.ScreenUpdating = False
For lap = Sheets.Count To 2 Step -1
lapnev = Sheets(lap).Name
Sheets(lapnev).Move
ActiveWorkbook.SaveAs Filename:=utvonal & lapnev & ".xlsx"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub -
Zozzy
aktív tag
Sziasztok!
A következő problémára keresek megoldást:
Adott egy több tízezer soros táblázat, ami fejléc sort, és a B oszlopa kb. 14-15 féle számot tartalmaz. Nekem ezekre külön-külön leszűrve az adatokat, annyi új munkalapot kell létrehoznom, ahány féle különböző értéket tartalmaz a B oszlop. Az új munkalapfüleket az értéknek megegyezőre át kell neveznem, és természetesen a szűrt adatokat át kell másolnom. Az új munkalapokat utána új munkafüzetbe is át kell másolnom, és elmentenem önálló fájlként, fájlnévként megtartva a B oszlop megfelelő értékét.
Tulajdonképp ennyi a feladat, ami nem tart sokáig így sem, mégis szeretném valahogy egyszerűsíteni a folyamatot, amennyiben ez lehetséges.Javaslataitokat előre is köszönöm!
-
Fferi50
Topikgazda
Szia!
Közben meglett a HELP-ből Alt + De az igaz, hogy csak akkor látod, ha beállítottad a sortöréssel több sorba tulajdonságot.
Nekem úgy sikerült, hogy először beírtam a cellába a szöveget képletként:
="Első sor" & Karakter(10) & "Második sor"
Majd másolás, irányított beillesztés - értéket.
A sortörés csak úgy érvényesül, ha beállítod a cellaformázásban, hogy sortöréssel több sorba.Az így előállított sortörést ki tudod másolni (csak egy karakter!), utána be lehet szúrni a többi cellába a megfelelő helyre, úgy már működik anélkül, hogy képletet tennél bele.
Üdv.
-
#32547
Fferi50
Topikgazda
customer114
#32543
Fferi50
Topikgazda
válasz
customer114
#32543
üzenetére
Szia!
A probléma 2 vagy 3 segédoszlop hozzáadásával valósítható meg:
Három segédoszlop esetén:
Az első cellák képlete:
F oszlop:=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*(HA(G1>0;MAX(INDIREKT("C"&G1&":C"&H1));0)=C1)*1
G oszlop:=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*SOR()
H oszlop:=HA(G1>0;HAHIBA(HOL.VAN(0;$G1:$G$21;0)+SOR()-2;0);0)
A G oszlop 2. cellájának képlete:=HA(HAHIBA(SZÖVEG.KERES("X";B2)>0;0)*1*SOR()=SOR();HA(G1>0;G1;SOR());0)A H oszlop képletében a $G$21 címnél kell vigyázni, ide az összes adatsornál legalább egy sorral nagyobb számot kell írni a helyes működéshez.
Az F és H oszlop képletei a 2. sortól, a G oszlop képlete a 3. cellától lehúzható.
Ezek után a feltételes formázás képlete a D oszlopra:
=F1=1A feltételes formázás működik akkor is, ha az F oszlop képletét a feltételes formázás képletéhez írod be a következőképpen:
=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*(HA(G1>0;MAX(INDIREKT("C"&G1&":C"&H1));0)=C1)*1=1
Így egy segédoszlop megspórolható , cserébe a formázási képlet lesz bonyolultabb.A képen a D és E oszlop is formázva van, az egyik a rövid, a másik a hosszú képlettel.
Remélem, érthető és használható is.Üdv.
-
#32545
Fferi50
Topikgazda
customer114
#32541
Fferi50
Topikgazda
válasz
customer114
#32541
üzenetére
Szia!
A példádból úgy látom, hogy a feladat az egymást követő X-eket tartalmazó B cellák mellé kell kiválasztani a C oszlopban levő legnagyobb számot.
Most értem vissza, kicsit gondolkodni kell rajta...
Üdv.
-
#32544
lappy
őstag
customer114
#32543
lappy
őstag
válasz
customer114
#32543
üzenetére
Ez valószínű hogy macroval oldható meg,
Függvényekkel nehéz vizsgálni minden cella hosszát és még az értéket -
#32542
lappy
őstag
customer114
#32541
lappy
őstag
válasz
customer114
#32541
üzenetére
Akkor ha jól értem.
Ha C- oszlopban van szám és a legnagyobb akkor csak azt színezi, különben az összes B-t ami tartalmaz"X" szöveget. -
#32541
customer114
őstag
Fferi50
#32536
customer114
őstag
válasz
Fferi50
#32536
üzenetére
2 sorral ez működik (mint, ahogy a példámban írtam), azonban több soros változatra - ahol olyan B cellák is vannak, melyekben nincs "X" érték - sajnos nem használható. Illetve, előfordulhat olyan helyzet is, ahol a B celláknák akár 3-4 "X" értéket tartalmazó is előfordul. (pl. így: B1 "X" B2 "XY" B3 "YZ" B4 "Z" B5 "XYZ" B6 "XZ" B7 "XY". Ahol 3 "X"-es B cella van egymás alatt ott is csak annak a D cellának a formázását szeretném, amelyik a legnagyobb C értéket tartalmazza.
Lehet, hogy így tömény. Csináljak róla példa exceles képeket?
-
#32539
bsasa1
csendes tag
customer114
#32538
bsasa1
csendes tag
válasz
customer114
#32538
üzenetére
Nem, bármekkora számot tud kezelni, csak maximum 255 argumentumot vesz figyelembe. De például a teljes D oszlopot ha kijelölöd az 1 argumentum lesz a függvényben. Menj bele a függvény beszúrásával, kezd el kitölteni és egyből látni fogod.
-
#32538
customer114
őstag
Fferi50
#32536
customer114
őstag
válasz
Fferi50
#32536
üzenetére
Illetve, 1-255 számokat vesz csak figyelembe jól értelmezem? Ha ennél nagyobb számok közül kellene a nagyobbat megállapítania, az már nem jó?
-
#32536
Fferi50
Topikgazda
customer114
#32535
Fferi50
Topikgazda
válasz
customer114
#32535
üzenetére
Szia!
A szabály:
=HAHIBA(SZÖVEG.KERES("x";$B1);0)+(MAX($C$1;$C$2)=$C1)>1Ez csak akkor színez, ha B1,B2 cellában is előfordul az x.
A Max függvényt páronként kell beírnod, abszolút ($) címmel, mert egyébként mindig a 2 egymás után következő cellát nézné a C oszlopban.
Üdv.
-
#32535
customer114
őstag
customer114
őstag
Sziasztok,
A tegnapi kérdésemre kapott gyors és profi válasz után kicsit felbátorodtam:
Olyan megoldást keresek feltételes formázásra, ahol:
Tegyük fel, hogy van két adott sor, legyen 1. és 2., melyek B cellái tartalmazzák az “X” szövegrészt, ez alapján az egész sor A-C oszlopig formázást kap. Azonban szükség van azon D cellák formázására, melyek B cellái tartalmazzák az “X”-et és a C cellája a nagyobb számot tartalmazza. Példával:
B1: “XZY” C1: “2”
B2: “XYZ” C2: “1”Itt a D1 kelljen formázódjon, a D2-höz pedig nem nyúlhat a szabály.
Köszi
(létezik ilyen egyáltalán egy szabályból?)
-
#32527
Delila_1
veterán
customer114
#32524
Delila_1
veterán
válasz
customer114
#32524
üzenetére
Nem kell külön ellenőrizni, hogy a 4 HAHIBA eredménye nagyobb-e 0-nál. Ha bármelyik feltétel igaz, akkor a végeredmény is nagyobb lesz, ezért létrejön a színezés.
=HAHIBA(SZÖVEG.KERES("X";$B1);0)+HAHIBA(SZÖVEG.KERES("Y";$B1);0)+HAHIBA(SZÖVEG.KERES("Z";$B1);0)+HAHIBA(SZÖVEG.KERES("K";$B1);0) -
#32525
Delila_1
veterán
customer114
#32524
Delila_1
veterán
válasz
customer114
#32524
üzenetére
Bele.
=HAHIBA(SZÖVEG.KERES("X";$B1);0)+HAHIBA(SZÖVEG.KERES("Y";$B1);0)+HAHIBA(SZÖVEG.KERES("Z";$B1);0)>0Írd hozzá még a K-t.
Itt a végleges, K-val együtt.
=(HAHIBA(SZÖVEG.KERES("X";$B1);0)+HAHIBA(SZÖVEG.KERES("Y";$B1);0)+HAHIBA(SZÖVEG.KERES("Z";$B1);0)+HAHIBA(SZÖVEG.KERES("K";$B1);0))>0 -
#32524
customer114
őstag
Delila_1
#32523
customer114
őstag
válasz
Delila_1
#32523
üzenetére
Még egy valami, kíváncsiságból:
Létezik hasonló képlet arra, hogy ne csak a konkrét "X" "Y"stb. tartalmú cellák alapján formázódjanak, hanem ha egy cella így néz ki:
"XYZ"
már akkor is formázza, ha tartalmazza az "X"-et. Ne csak és kizárólag "X"-et tartalmazónál. szerk.: (azonban a képletben maradjon meg az egyenként "X" "Y" "Z" "K" stb. részt tartalmazó képlet)
Lényegében: Bele lehet-e csempészni a "SZÖVEG.KERES" képletet ide? De bármilyen más megoldás is jó.
-
#32523
Delila_1
veterán
customer114
#32522
Delila_1
veterán
válasz
customer114
#32522
üzenetére
-
#32521
Delila_1
veterán
customer114
#32518
Delila_1
veterán
válasz
customer114
#32518
üzenetére
=VAGY($B1="X";$B1="Y";$B1="Z") -
#32519
lappy
őstag
customer114
#32518
lappy
őstag
válasz
customer114
#32518
üzenetére
Igen ha HA függvényt és VAGY függvényt alkalmazol
ha(vagy(b1="x";b1="y"...;1;0)
Ha a feltételhez több féle szín tartozna akkor viszont nem lehet egy képletbe tenni -
#32518
customer114
őstag
customer114
őstag
Sziasztok,
Feltételes formázáshoz kapcsolódó kérdésem lenne:
Adott egy táblázat, melynek sorait fogom kijelöltetni más színnel - mint az eredeti - erre a "feltételes formázás / cellák kijelölése képlettel" részt fogom használni. A képlet:
pl.: ha a B oszlop bármely cellája tartalmazza az "X"-et, akkor formázza az adott sort:
=$B1="X" (és érvényességnél megadom a tartományt, ameddig a sor tart)
A kérdésem itt az, hogy meg tudom-e csinálni, hogy ne csak "X" értékeket tartalmazó B oszlopos cellákat formázzon, hanem különálló "X" "Y" "Z" stb. értékeket egyénileg tartalmazó B oszlop egy-egy celláit is, egyetlen képlettel.
Röviden: B1 B2 és B3 sorra ezeket az értékeket tartalmazza: X, Y és Z. Feltételes formázás egyetlen képletével akarom formázni, nem pedig egyesével így:
=$B1="X"
=$B1="Y"
=$B1="Z"Köszi
-
zsloti
senior tag
Sziasztok felmerult egy probléma és ha lehetséges egy Excel táblában látom a megoldást
Próbálok érthetően fogalmazni, ha valami nem tiszta nézzétek el nekem és bátran kérdezzetek... Xd
Adott egy intézmény több telephellyel ezen telephelyek közt kellene elosztani arányosan az üzemanyag költséget
Arra gondoltam hogy megnezem a telephelyek távolságát a központtól majd az adott napon látogatott telephelyek közt arányosan elosztom a napra jutó költségeket
Pl:A telephely 10km re van B 20km C 30km ezek összes távolsága 60 km ellenben én aznap 40 kilométert mentem csak mert sorban látogattam meg a telephelyeket
Ezt a 40 kilométert kellene arányosan elosztani a 3 hely között.
Gondolom valahogy úgy hogy az A a 40 km 10/60 ad, a B a 20/60ad és a C a 30/60ad része
Ez valahogy megoldható egy táblázatban?
Ja és a lényeg hogy 17 telephelyről van szó...
Köszönöm előre is
Zs -
-
Fferi50
Topikgazda
válasz
zoli1962
#32503
üzenetére
Szia!
Nem tudom, megfelel-e így, de a MA() függvény pontosan ezt teszi. Egyszer beírod, majd lehúzod a beírt számok mellé. Nap végén kijelölöd az egész adatsort - másolás - irányított beillesztés értéket, így rögzíted az értéket és másnapra nem fog megváltozni.
Makróval:
A munkalap kódlapjára:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column=1 Then
Application.EnableEvents = False
Target.Offset(0,1).Value=Date()
Application.EnableEvents = True
End If
End SubÜdv.
-
zoli1962
csendes tag
Üdv mindenkinek !
Magyar excel 2016-ot használokVan egy kérdésem,ami szerintem nem bonyolult csak nekem. Tehát ha egy cellába írok (szám)adatot (legyen mondjuk A1) Akkor például a B1 cellába írja be a beíráskor éppen aktuális évet,hónapot,napot. Köszönöm
-
Oly
őstag
válasz
Delila_1
#32456
üzenetére
Szia
Most volt időm ezt megnézni.
Az aktuális azért nem jó, mert nekem azokkal kell foglalkoznom csak, amik változtak.
Tehát ami ugyanannyi volt tegnap és ma is, azt ne listázza. A gyakorlatban ez nekem napi szinten egy több ezer soros lista, és kizárólag azok kellenek belőle, amik vagy eltűntek tegnap óta, vagy újak tegnap óta, vagy változott a mennyiség.
A Te példádban a Pálinka mennyisége nem változott, így azt nem is kell listáznia. -
EmberXY
veterán
válasz
bsasa1
#32499
üzenetére
Köszönöm, ez jónak tűnik, bár a makrókhoz nem értek, de első olvasatra pont a szóban forgó problémára ad megoldást, holnap mindenképp kipróbálom.
Fferi50: Az a menüpont inaktív nálam, fölévíve a kurzort azt írja, hogy azokra a fájlokra vonatkozik, amelyek az adott táblára hivatkoznak, nálam ugyebár külső forrás nincs, a hivatkozások a lapon belül vannak.
Köszi neked is a segítséget, de lehet, hogy a fenti makró lesz a megoldás, holnap kiderül.
Új hozzászólás Aktív témák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Kezdő fotósok digitális fényképei
- Székesfehérvár és környéke adok-veszek-beszélgetek
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Eredeti játékok OFF topik
- Milyen videókártyát?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Garmin topik
- TCL LCD és LED TV-k
- Milyen légkondit a lakásba?
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MS SQL Server 2016, 2017, 2019
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Apple iPhone 13 Mini 128 GB Fekete 1 év Garancia Beszámítás Házhozszállítás
- Apple iPhone Air Space Black 256 GB Használt, újszerű 100% akku / 7 ciklus 2026. 09.25
- Tablet felvásárlás! Samsung Galaxy Tab S10+, Samsung Galaxy Tab S10 Ultra, Samsung Galaxy Tab S10 FE
- Telefon felvásárlás!! Samsung Galaxy A50/Samsung Galaxy A51/Samsung Galaxy A52/Samsung Galaxy A53
- Wacom Cintiq DTK-2260 digitális rajztábla
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest