-
GAMEPOD.hu
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
-
alfa20
senior tag
Szia,
Köszönöm a választ,
Akkor próbálkozom, mert egy makróhoz kell kereséshez, aminek a végén úgy is rögzít minden adatot.
Több táblából kell egyet készíteni és van amelyikben állandó adatok vannak, csak ritkán bővül.
Eddig valahogy így oldottam meg:
=FKERES(C2;[Fájlneve.xlsx]Munkalap!$A1$B42;2;0)
csak ha esetleg bővíteni a sort, akkor makróban nem kellene a képletet átírni adattábla esetén, ezért gondoltam erre a megoldásra.köszi!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
Nem biztos, hogy jól értem.
Tehát megnyitsz egy füzetet. Az utolsó oszlop füzetenként máshol van, de mindig az utolsó mínusz 2. oszlopban vannak #N/A értékek, amik szerint a sorokat törölni akarod.Próbáld ezzel a makróval:
Sub HibasSorokTorlese()
Dim usor As Long, oszlop As Long, betu As String
usor = Range("B" & Rows.Count).End(xlUp).Row
oszlop = Range("A1").End(xlToRight).Column
'Utolsó oszlop-2 első sorába a hibákat tartalmazó oszlop betűjele
Cells(1, oszlop + 3) = "=CHAR(" & oszlop - 2 + 64 & ")"
betu = Cells(1, oszlop + 3)
'Autoszűrő kiterjesztése az utolsó oszlop+1 területre
Range(Cells(1, 1), Cells(1, oszlop)).Select
Selection.AutoFilter
Range(Cells(1, 1), Cells(1, oszlop + 1)).Select
Selection.AutoFilter
'Segédoszlopba fejléc
Cells(1, oszlop + 1) = "Hibák"
'Képlet a segédoszlopba
Range(Cells(2, oszlop + 1), Cells(usor, oszlop + 1)) = "=IF(ISERROR(" & betu & "2),1,0)"
'Autoszűrés a hibákat tartalmazó oszlop szerint
On Error GoTo Vege
ActiveSheet.Range(Cells(1), Cells(usor, oszlop + 1)).AutoFilter Field:=oszlop + 1, Criteria1:=1
'Látható sorok kijelölése és törlése
Range("C2:C" & usor).SpecialCells(xlCellTypeVisible).Select
Selection.Rows.Delete shift:=xlUp
Vege:
'Autoszűrő minden megmaradt sort mutasson
ActiveSheet.Range("A1:C" & usor).AutoFilter Field:=oszlop + 1
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zhari
csendes tag
válasz kőbaltazár #20627 üzenetére
Esetleg próbáld ki =cella("védett" függvényt egy segéd munkalapon.
-
zhari
csendes tag
Szeretném egy oszlopnak csak azon celláit kijelölni (vagy szűrni vagy megjelölni), ahol középre rendezett a formázás. Ezt hogy tudnám megoldani a legegyszerűbben?
-
Delila_1
Topikgazda
Ezt tudtommal csak makró segítségével tudod megoldani.
A példámban az adatok az A1 cellában kezdődnek.
A középre rendezett cellák hátterét pirosra festi.Sub Kozepre()
Dim CV As Object
Range("A1").Select
Selection.CurrentRegion.Select
For Each CV In Selection
If Range(CV.Address).HorizontalAlignment = xlCenter Then _
Range(CV.Address).Interior.ColorIndex = 3
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sulthan
újonc
Sziasztok!
Érdekes problémával találkoztam az excel 13 64bites verziónál. Egy viszonylag egyszerű kereső makro (munkalapról nyomógombbal indítva kb 20-22 sec alatt fut le. Ha viszont az egérkurzor a makró nyomógombja fölött van, vagy leviszem a munkalapfülek fölé, azonnal, azaz kb 2-3 sec alatt lefut. Más, nagyobb makrók esetében is tapasztaltam ezt a "lapfül fölé viszem a kurzort, akkor sokkal gyorsabb" módszert. Ilyenkor villog, meg alakot vált a kurzor, egyébként meg szépen "el van magával". Viszont kb tízszeres futásidő van, ha nem "piszkálom"...
Póbálkoztam screenupdate kikapcsolásával, DoEvents beiktatásával, de nem oldódott meg a probléma.
Tapasztalt valaki ilyet? Esetleg a hiba kiküszöbölésére valami ötlet?
Zoli -
bteebi
veterán
válasz kőbaltazár #20627 üzenetére
Az ezen az oldalon lévő makró megoldja. Csak ara a tartományra működik, amiben adatok vannak! Tehát ha például az A1 és az F5 cellában van adat, akkor az A1:F5 tartomány ellenőrzését végzi el ez a kód.
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
kőbaltazár
tag
válasz bteebi #20661 üzenetére
Sajnos egyik sem működik valamit biztos nem jól csinálok.
Azt szeretném, hogy egy munkalapon B22ésC37 tartomány valamint az F13 és B53 cellák tartalmát lehessen csak módosítani, a többi cellát valami háttérszínnel jelölje meg.
Az még hab lenne a tortán, ha nyomtatáskor az összes cella fehér hátterű lenne.
Üdv és köszi.[ Szerkesztve ]
Üdv: Kőbaltazár
-
kőbaltazár
tag
Még egy kérdésem volna
A1 cella tartalma 07:00 (időként formázva)
A3 cellába 08:30 kellene (+90 perc)
Az =A1+90 képlet 07:00-át ír ki. hogy kellene megcsinálni?Üdv: Kőbaltazár
-
Delila_1
Topikgazda
válasz kőbaltazár #20664 üzenetére
=A1+90/60/24
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kőbaltazár
tag
válasz Delila_1 #20665 üzenetére
Köszönöm, működik
Van arra lehetőség, hogyha lehúzom a képletmásolóval, csak az időként formázott cellákat vegye figyelembe?
Csak az A1; A5; A9; A13 cella van időként formázva, a többiben másfajta adat van. Tudom nem sok beírhatnám egyesével, de a kíváncsiság miatt érdekelne.
Köszi[ Szerkesztve ]
Üdv: Kőbaltazár
-
Delila_1
Topikgazda
válasz kőbaltazár #20666 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bteebi
veterán
válasz kőbaltazár #20663 üzenetére
Valami ilyesmi?
Sub Protect()
Cells.Select
Selection.Interior.ColorIndex = 43
Range("B22:C37,B53,F13").Select
With Selection
.Interior.ColorIndex = xlNone
.Locked = False
End With
ActiveSheet.Protect
End SubNyomtatásnál a fekete-fehér is jó?
With Sheets("Lap neve")
.PageSetup.BlackAndWhite = True[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
kőbaltazár
tag
Sziasztok!
Megoldható valahogy, hogy ha egy mumkafüzetben csak két munkalap van, úgy elrendezni, hogy egyik munkalap egyik, a másik a másik monitoron legyen?
Köszi!Üdv: Kőbaltazár
-
Geryson
addikt
Good morning!
Ha azt szeretném, hogy egy képlet (adott esetben egy SZUMHA képlet) 2 helyet is figyelembe vegyen keresésének alapjául, akkor azt így teszem? Merthogy nekem ez így nem megy. Tehát mind az A206, mind a B206-ot nézni kellene Sőt, akkor sem megy, ha ÉS függvénnyel az egészet egybefűzöm, azaz 2x van a SZUMHA függvény leírva.
=SZUMHA(Adatforrás!A:A;ÉS(A260;B260);Adatforrás!B:B)*1000
[ Szerkesztve ]
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
bmenya
csendes tag
Sziasztok
A kérdésem a következő kettő lenne.
1. Megoldható, hyogy nyomtatáskor csak az információt tartalmazó sorok kerüljenek kinyomtatásra. Pl. 1 sor 5,6,7,11,sor a többi ne.2. A cella szinezése füghet egy másik cselle értékétől pl b1 értéke 4 c3 celle zöld
-
bmenya
csendes tag
válasz Delila_1 #20676 üzenetére
A sorok elrejtése kissé sok időt venne el mert, 16 munkalapon 130 sorból kellene kiválogatni.
A feltételes formázás akkor működik ha a celle amit szinezni akarok az felel meg a feltételnek nekem kb igy kellene ha(kezd!d2=1;kezd!d2" ide kellene a cella szinét meg adni;"0" nincs cella szinezés a képlet vég!d18 cellában van.
-
#54715584
törölt tag
Sziasztok,
Segítsetek, mert nem boldogulok és már kezdek megőrülni
Conditional Formatting-ot kellene használnom, mégpedig a következő képpen:
Az A oszlopban lenyíló menü van, Data Validation által meghatározott lista, ami lényegében az első sor.
Az kellene, hogy ha kiválasztom a B-t az A2 cellábban, akkor a C2-t módosítsa a formázás.
Ha a C-t választom, akkor a D2 legyen formázva.Meg lehet ezt így oldani valahogy?
-
Delila_1
Topikgazda
válasz bmenya #20677 üzenetére
Rögzíts egy makrót, ahol elrejted a sok sort.
A feltételes formázással csak a saját lap celláinak értékei szerint formázhatsz. Megteheted, hogy a formázandó lapra behivatkozod a kezd lap d2 celláját – =kezd!D2 –, és ennek alapján színezel. A színezendő cella képlete, ha a fenti hivatkozás például a P1-ben van, =P2=1.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Lackó86
tag
Sziasztok!
Hogyan lehet kereszt irányú áthúzást csinálni (átlós)?
köszi!
jambi
-
Delila_1
Topikgazda
válasz bmenya #20682 üzenetére
Gyakorold be, hogy mikor elindítod a rögzítést, minél kevesebb hibát vigyél bele.
Ha a sok lapodon azonos sorokat kell elrejtened, érdemes együttesen kijelölni a lapokat, akkor mindegyiken egyszerre végrehajtja a műveleteket. FONTOS! a végén meg kell szüntetned a közös kijelölést.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
q13579
senior tag
Sziasztok!
Ha dátumot akarok összefűzni egy numerikus értéket tartalmazó cellával, hogyan tudnám megoldani, hogy a dátum formátuma nem változzon az összefűzés során:
Pl. Össze akarom fűzni a következő cellák tartalmát:
A1: 3125
A3: szóköz
A2: 2015.01.23Összefűzés eredménye: 3125 42027
Tehát az összefűz után a 2015.01.23. helyett a 42027-et kapom...
Előre is köszönöm a tippeket.
-
-
Delila_1
Topikgazda
válasz #54715584 #20693 üzenetére
A feltételes formázás külön műfaj, eltér a füzetedben lévő függvények, képletek megadási módjától az alkalmazása.
Próbáld ki, amit javasoltam , és akkor jelentkezz, ha az nem jön össze.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bmenya #20694 üzenetére
Akkor egyenként kell elrejtened a sorokat.
Mivel túl sok rögzíteni valód van, javaslom, hogy több makróba vedd fel, és utólag másold össze ezeket. Kevesebb hiba lesz benne.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Diablo 3
- Villanyszerelés
- Kerékpárosok, bringások ide!
- Újabb Samsungok telepíthetik a Galaxy AI-t
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Mindent megtudtunk az új Nokia 3210-ről
- Milyen billentyűzetet vegyek?
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- nVidia tulajok OFF topikja
- Vezetékes FÜLhallgatók
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Steames kulcsok jó áron eladóak!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen