Jelöld ki együtt az összes lapot (egyik lapfülön jobb klikk, minden lap kijelölése), majd Fájl/Oldalbeállítás/Oldal fülön Fekvő.

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

Ez bejött...danke

"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)

Nemjó. Nem sok sheetem van, hanem ezek külön fileok.
Úgy kéne, hogy amikor megnyitok egy új dokumentumot, alapból fektetettet állítson be. Az legyen az alapértelmezett.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

Még azt tehetnéd meg, hogy a personal.xls-be beviszed az alábbi makrót, és kiteszel hozzá egy ikont az eszköztárra. A fekvő lap beállításán kívül a táblázatodat vízszintesen a margók között középre is helyezi. Ha az nem kell, az alsó makrót használd.

Sub Fekvo_lap()
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlLandscape
End With
End Sub

Sub Fekvo_lap()
ActiveSheet.PageSetup.Orientation = xlLandscape
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.

Na ez már jól hangzik, de a personal.xls ről tudnál még egy picit bővebben mesélni?
Pl hogy hol találom és hogy teszem bele a makrot.

Angol az excelem, úgy írtad meg a makrot? Gondolom a "Fekvo_lap" az csak a név és nem zavar be. A középre helyezés nem létszükség, viszont ha azt is meg lehetne csinálni, hogy mind a négy margót 0,5cm-re állítsa, az maga lenne a tökély.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

[link]

Itt megtalálod a personal.xls létrehozásának a menetét az 527-es hozzászólásnál.
Eszközök->Tools
Margókkal a fekvő lap:

Sub Fekvo_lap()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.393700787401575)
.CenterHorizontally = True
.Orientation = xlLandscape
End With
End Sub

Ami makrót a personalba teszel, az minden füzetnél elérhető lesz.
A fejléc és lábléc magasságát a HeaderMarginnál és a FooterMarginnál állíthatod.

[ Szerkesztve ]

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

hello!
azt hogyan tudom megcsinálni, hogy bizonyos cellák tartalmát (értékét) összeadja egy külön cellába?

Muton#2316 - $z@r a drop >_<

Szia!

A külön cellába írd be hogy =A1+A2, ekkor össze fogja adni az A1, és az A2 cella tartalmát...

g.

[ Szerkesztve ]

kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.

köszönöm

Muton#2316 - $z@r a drop >_<

Küszi szépen. Holnap majd megpróbálom, aztán majd szólok ha elakadtam.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

Szuper.
Nem pontosan úgy csináltam, ahogy le volt írva de működik. Thx.

Amúgy nem tudom miért szídják a Microsoftot, az Excel a legjobb progi, egyszerűen mindent tud. Excel rules.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

Ikont tudtál kitenni az eszköztárra?

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

Nem. Bill kombinációt adtam a makrohoz, amikor bemásolja az adatokat csak rábökök és elindul. Ez így teljesen jó.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

Üdvözlet!

Lenne egy kérdésem ... van egy sok munkalapos munkafüzetem amibe összevető táblázatot kell készítenem. Az alapot az 1-12 ig számozott munkafüzetek adják (igen havi rendszerességű kimutatás), Az összevetésben ezen hónapok (azonos cellában lévő adatait) kelle feltüntetnem, de bármilyen két hónapét. Mivel több mint 200 adat/hó nem szeretném a hivatkozásokat egyenként átírni a sokásos ='1'!B3 formában, és a 12x12 hónap külön összevetése sem megoldás.
Vagyis lehet e olyan hivatkozást írni aminek segítségével változóként adhatom meg a munkalap nevét ='(pl.: hivatkozás jelen munkalap egy cellájára)'!B3 és az adott cellába írt szám szerinti munkalap adatai jelennének meg.

Minden segítséget előre is köszönök!

kolja

Nem élteni sok fulcsaság ...

Az indirekt függvényt alkalmazd.

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, de ha lehetne egy kicsit bővebben ki kéne fejteni mert ez így nekem nem tiszta.

Hoznál egy példát.

kolja

Nem élteni sok fulcsaság ...

=INDIREKT(E2&"!"&G2&H2)+INDIREKT(F2&"!"&G2&H2)

ahol E2-ben van az első lapod neve (pl. '1)
F2-ben a második lap neve (pl. '2)
G2-ben az oszlop (pl. B)
H2-ben a sor (pl. 3)

Az oszlop nevét idézőjelek között fixen is megadhatod, a sorét pedig anélkül, fixen.

=INDIREKT(E2&"!"&"B"&3)+INDIREKT(F2&"!"&"B"&3)

[ Szerkesztve ]

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

Nagyon köszi, így már minden világos, bár nekem ennél egy egyszerűbb is elég lett.
=INDIREKT("'"&$K$2&"'!"&"R2") ...szépen adja azt ami nekem kell.

Örök hála

köszönöm

kolja

Nem élteni sok fulcsaság ...

Mit tartalmaz a K2?

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 összevető táblázat munkalapjának egy cellája amely a vizsgált munkalap nevét tartalmazza.

kolja

Nem élteni sok fulcsaság ...

Sziasztok,

egyik kollégámnak kellene a következő:

Adott két munkafüzetlap (január, február). A sorok feladatokat tartalmaznak. Az utolsó oszlop jelöli a feladatok kész/nem kész állapotát.
Azt kellene megoldani, hogy a február lap már tartalmazza az elején a január "nem kész"-szel záruló sorait, és mindez automatikusan történjen.
Megoldható-e ez VLOOKUP-pal (FKERES), vagy van rá jobb megoldás?

Köszi.

Február lap A2-be:

=január!T2

A T2 helyett írd be azt a cellát, amelyik az állapotot tartalmazza.

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!

A feladat, amit szeretnék megoldani: Adott egy cella, (pl A1) amiben szöveg van: mindenféle lehet. Szeretnék bizonyos kulcs szavakra rákeresni a cellán belül, (Pl.: SOK, KEV). Ha van az egyik, akkor azt írja be pl. A2-be. (az együttes előfordulással nem kell foglalkozni) Az alábbi függvénnyel kezdtem volna, de nem jó:

A2=HA(SZÖVEG.KERES("SOK";A1;1)>0;"SOK";HA(SZÖVEG.KERES("KEV";A1;1)>0;"KEV";"nincs"))

Ugyanis az a helyzet, hogy ha nem talál a cellában „SOK”-ot (ami előfordulhat) akkor #ÉRTÉK! hibaüzenet jelenik meg, és nem vizsgálja tovább. Az is fontos lenne, ha nem talál semmit, akkor se az #ÉRTÉK! legyen a cellába, hanem egy általam definiált szöveg.

Próbáltam a HA függvényben hivatkozni az „#ÉRTÉK! „ értékre”, de nem sikerült...

Ötlet?

g.

kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.

Hali!

Kiegészítve "Delila_1" válaszát: (ha csak a NEM KÉSZ adat kell)

pl a Február A1 cellában:

=HA(Január!A1="nem kész";"NEM KÉSZ";"kész")

Persze a megfelelő cellanévvel.

g.

[ Szerkesztve ]

kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.

Erre nincs szükség, mert a január lap cellája tartalmazza az állapotot.

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

kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.

Azt hogyan tudom megadni, hogy az egész sort másolja "nem kész" érték esetén, a "kész"-eket pedig ne?

Február B2-be

=ha(január!$T2="nem kész";január!A2;)

ezt vízszintesen végighúzod addig, ameddig adatait vannak.

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

Próbálj még a HIBÁS függvénnyel operálni.

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

TÖKÉLETES!!!!! Köszi!

g.

kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.

Köszi.
Gondolom azt már csak makróval lehet megoldani, hogy a "kész"-végű sorok helyére ne is másoljon semmit (mert most kinullázgatja a megfelelő sorokat).

Sziasztok!
Office 2007 Excelben hól találom a vezérlőket? szertnék csinálni de nem tudom hól van. 2003-ba amit csináltam és megnyitom a 2007-el azt tudom fórmázni, de nem tudok újat létrehozni. melyik menüpont alatt találom?

Sziasztok

Van nekem egy sheetem rengeteg adattal, meg tudom azt csinálni valahogyan, hogy ha vmelyik serial szám kétszer szerepel akkor azokat kicsapja a táblázatból? Létezik erre fv? Vagy makró irányába kell elmennem?

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

Adatok menü -> Szűrő menüpont > Irányított szűrő -> Szűrendő tartományt kijelölöd -> alul "Csak az egyedi rekordok megjelenítése" elé pipa. Igy csak leszűri helyben.
Ha azt akarod, hogy a többszöri előfordulások ne is maradjanak benne elrejtve a táblában, akkor "Más helyre másolja" elé bejelölést teszel, vagy egyszerűen csak átmásolod a leszűrt táblát egy új lapra.

[ Szerkesztve ]

Nekem is lett egy kérdésem.
Egy táblázatban olyan űrlapot kellene csinálnom, amelyikkel keresés végezhető.

Fej! Tor! Potroh!

Pontosan hogyan képzeled el?

Itt egy kis makró, ami a 0-val kezdődő sorokat kitörli. Ha megadod a két lapod nevét, és azt, hogy a januári lapon melyik oszlopban van az állapotot jelző adat, megírom az automatikus másolást.

Sub torles()
sor = 1
Do While Cells(sor, 1) <> ""
Cells(sor, 1).Select
If Cells(sor, 1) = 0 Then
Selection.EntireRow.Delete
Else
sor = sor + 1
End If
Loop
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.

Köszi.
A két lap neve:
- forráslap: "Eri_08.01) Javítás"
- céllap: "Eri_08.02) Beérkezés"

Az X oszlop jelölné az állapotot. Viszont annyi változás van, hogy a "nem kész" állapotot nem szöveg, hanem üres cella jelölné. Tehát csak azon sorokat kellene átmásolni a második lapra, amelyek az X oszlopában nincsen semmi, hogy ezekkel kezdődhessen a második lap.
Tulajdonképpen szűréssel és másolással egyszerűen megoldható lenne a dolog, csak az lenne a lényeg, hogy mindez automatikusan történjen meg.

Inputboxban kérdezem le a másolandó lap nevét, mert az havonta változni fog.

Sub masol()
lapnev = InputBox("Melyik a lezárt hónap?", "Adatátvitel az új hónap lapjára", Default)
Sheets(lapnev).Select
sor = 2: sor_uj = 2
Do While Cells(sor, 1) <> ""
If Cells(sor, 24) = "" Then
Range(Cells(sor, 1), Cells(sor, 23)).Select
Selection.Copy
ActiveSheet.Next.Select
Cells(sor_uj, 1).Select
ActiveSheet.Paste
sor_uj = sor_uj + 1
ActiveSheet.Previous.Select
End If
sor = sor + 1
Loop
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.

Szívesen. Akkor "családban marad".

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

Egy angol - magyar és vissza szótár lenne. Adatbázissal apró munka, de nekem excelben kellene megcsinálnom: rákeresel egy angol szóra és megjeleníti a magyar megfelelőjét, vagy fordítva.

Fej! Tor! Potroh!

Legegyszerűbben a sima keresés funkcióval (CTRL + F) egyből rálelsz arra, ami kell.

De:
Az FKERES (angol nyelvű Excel-ben VLOOKUP) függvénnyel meg lehet csinálni, viszont csak akkor, ha minden szócikk csak egyszer szerepel az adatbázis lapokon.
Gondolom, úgy akarod, hogy van 3 lap: egy keresőlap, egy angol-magyar szótárlap, és egy magyar-angol szótárlap.
Alul, a lapokat megfelelően nevezd el: "Keresés"; "Angol-Magyar"; "Magyar-Angol", vagy hasonló.
A két szótárlap feltételezem 2 oszlopból állna: a szócikk és mellette a másik nyelvű megfelelője. Fontos, hogy adatfelvitel után rendezd ezt a két táblát az első oszlop alapján ABC-sorrendbe.
A keresőlapon pedig lenne két-két (bekeretezett cella): az egyik a magyar-angol, a másik az angol-magyar kereséshez. Ezek lennének a beviteli cellák (B2 és B3), melyeket hagyj üresen. Ezek mellett lenne egy-egy találati cella (C2 és C3).
Az angol-magyar találati cellába (C2) az alábbi függvény kerüljön: =FKERES(B2;'Angol-Magyar'!A;2;0)
A magyar-angol találati cellába (C3) az alábbi függvényt írd:
=FKERES(B3;'Magyar-Angol'!A;2;0)
Ne ijedj meg: alapesetben a HIÁNYZIK hibaüzenet látszik majd a találati mezőben, de amint beírsz a keresésbe valamit, kihozza az eredményt.
Ajánlott az egész file-t írásvédetté tenni, hogy véletlenül se ments el egy aktuális keresést.
Szólj, ha valami nem világos.

MOD: A smiley-k helyére kettőspontB-t írj, szóköz nélkül!!! A fórummotor smiley-nak ismerte fel.

[ Szerkesztve ]

helo,

sikerult mar csinalnom egy kulso adatok importalasat egy weboldalrol, most mar csak azt szeretnem valahogy megoldani, hogy mondjuk ot pecenkent frissitve ne mindig felulirja az adatokat, hanem mondjuk egy uj sorba ala... megoldhato ez...?

elore is koszonom a segitseget...

Sziasztok!
Van egy jelenléti ív szerűség excelben.
Sorok = napok

Hogyan tudom azt megoldani, hogy egy hétnél régebbi adatokat ne lehessen módosítani?
Pl. 10én már ne lehessen 3-i adatokat felvinni (a 3. naphoz tartozó sorba).

A lapvédelem aktív, mert van egy csomó védett képlet.
Ja, és ez a legjobb lenne, ha a munkafüzet megnyitásakor indulna az ellenőrzés.

Légyszíves segítsen aki tud.

Köszi

Másold be az alábbi makrót. Minden nyitáskor az aktuális lapon zárolja az egy hetesnél régebbi sorokat, A-tól AD oszlopig. Ha több lapod van,a lapnév helyére írd be a védendő lapod nevét, ha csak egy, azt a sort töröld ki.

Sub auto_open()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Lapnév").Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 1) < Date - 6 Then
Range(Cells(sor, 1), Cells(sor, 30)).Select
Selection.Locked = True
End If
Next
ActiveSheet.Unprotect
End Sub

[ Szerkesztve ]

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

nagyon köszönöm

Fej! Tor! Potroh!

Köszönöm!
Sokat segítettél!