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)

Kipróbálom, köszi, írok hogy mizu

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 Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Libreoffice-ban pedig ugyanez az EDATE() függvény. Köszöntem a segítséget

Esetleg próbáld ki =cella("védett" függvényt egy segéd munkalapon.

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?

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 Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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

Köszi! Működik.

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.

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.

A korábbi hozzászólásomban lévő problémák közül a 2., 3. és a 7. pontot már sikerült megoldanom, a többit azonban még nem. Lenne valakinek ötlete? Előre is köszönöm!

Cancel all my meetings. Someone is wrong on the Internet.

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

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

=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ö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

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.

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 Sub

Nyomtatá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öszia gyors választ, mennem kell melózni, ha visszajöttem megnézem

Üdv: Kőbaltazár

Köszönöm!

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

erre valakinek ötlete eseteleg ?

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

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

A SZUMHA helyett a SZUMHATÖBB függvényt alkalmazd, a 2007-es verziótól kezdve rendelkezésedre áll.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

A nem nyomtatandó sorokat nyomtatás előtt elrejtheted.

A cellákat színezheted a feltételes formázással.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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.

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?

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.

A C2-be vidd be a formázást. =A2="B"

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Hogyan lehet kereszt irányú áthúzást csinálni (átlós)?

köszi!

jambi

Köszönöm a segítséget probálkozom. Makrot még nem csináltam.

A cellaformázás Szegélyek fülén választhatod ki ezt.

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öszönöm!

jambi

Sok adatról van szó, kb. 100 sor és ennek automatikusnak kellene lennie.
Hasonlóan az Index-Match pároshoz, csak éppen formázni kellene az adott cellát.

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.

Azonos oszlopban másolhatod a formátumot, például a formátumfestő ecsettel.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Nincs mit.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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.

Pont az a lényeg, ne hogy ne manuális legyen, hanem automatikus.
Ez egy értékelő lap lenne, amit több százan fognak kitölteni, és látniuk kell az általuk választott leírást megvastagítva + mindenki minden sorban mást fog választani

=A1&" "&SZÖVEG(A3;"éééé.hh.nn")

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Be kell írnod a feltételes formázás feltételét, akkor automatikus lesz a formátum változása.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Az lényegében egy index-match párosítás, amit már próbáltam, de nem működik

A sorok amit nyomtatni kell nem mindig ugyanazok munkalapok sem egyeznek meg.

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.

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.

Kösz gyakorlok

Jogosssssss

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Írd majd meg, mire mentél, hogy sikerült.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.