- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- iPhone topik
- Honor 90 - modellalkat
- Franciaországban nyit a Honor 200 Lite
- MWC 2024: Két új órát hozott a Xiaomi
- Vodafone mobilszolgáltatások
- Samsung Galaxy S21 FE 5G - utóirat
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Redmi Note 12 Pro - nem tolták túl
- Szinte csak formaság: bemutatkozott a Pixel 6 és Pixel 6 Pro
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Ülésezik a hardveregylet
ph Az irodai készülékek és monitorok társaságát egy ház, egy egér és egy DAC egészíti ki.
-
Olcsó 5G-s ajánlatot nyújt a Realme Indiának
ma Megérkezett a Realme C65 5G, az első készülék a MediaTek Dimensity 6300-zal.
-
Mobilarena
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
-
Delila_1
Topikgazda
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 SubSub Fekvo_lap()
ActiveSheet.PageSetup.Orientation = xlLandscape
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.
-
Pá
addikt
válasz Delila_1 #2954 üzenetére
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.''
-
Delila_1
Topikgazda
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 SubAmi 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.
-
Muton
addikt
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 >_<
-
gsc73
aktív tag
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.
-
-
kolja
tag
Ü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 ...
-
Delila_1
Topikgazda
=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.
-
Amazonas
senior tag
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.
-
gsc73
aktív tag
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.
-
gsc73
aktív tag
válasz Amazonas #2972 üzenetére
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.
-
csongi
veterán
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? -
sonar
addikt
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!
-
Amazonas
senior tag
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 ]
-
rdi
veterán
Nekem is lett egy kérdésem.
Egy táblázatban olyan űrlapot kellene csinálnom, amelyikkel keresés végezhető.Fej! Tor! Potroh!
-
Delila_1
Topikgazda
válasz Amazonas #2982 üzenetére
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Amazonas
senior tag
válasz Delila_1 #2988 üzenetére
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. -
Delila_1
Topikgazda
válasz Amazonas #2989 üzenetére
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Amazonas
senior tag
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 ]
-
sekli
addikt
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...
-
takyka77
tag
Sziasztok!
Van egy jelenléti ív szerűség excelben.
Sorok = napokHogyan 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
-
Delila_1
Topikgazda
válasz takyka77 #2997 üzenetére
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.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- World of Warcraft Shadowlands Collectors edition EU EN