- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Ulefone Armor X32 Pro
- Milyen okostelefont vegyek?
- Sony Xperia 1 V - kizárólag igényeseknek
- Yettel topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy A54 - türelemjáték
- Android alkalmazások - szoftver kibeszélő topik
- Apple Watch Ultra - első nekifutás
- Apple Watch
Hirdetés
-
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
-
lappy
őstag
válasz
gaborlajos #31945 üzenetére
-
Fferi50
Topikgazda
válasz
gaborlajos #25704 üzenetére
Szia!
Sub nyomtat()
If Not IsEmpty(Range("A1")) Then ActiveSheet.PrintOut
End SubAz A1 helyébe annak a cellának a címét kell írni, amelynek a kitöltésétől függővé teszed a nyomtatást.
A makrót egy általános modullapra kell írni.
Üdv.
-
poffsoft
veterán
válasz
gaborlajos #25704 üzenetére
lehetséges, hogy érvényesítéssel is megoldható...
Persze nem tuti , csak tipp. -
Fferi50
Topikgazda
válasz
gaborlajos #25702 üzenetére
Szia!
Kérdésre kérdés: mit értesz munkafüzet oldalai alatt? Mert a munkafüzetben munkalapok vannak és a munkalapokat lehet oldalakra bontani (legalábbis eddig így tudtam).
Egyébként pedig ránézel a munkalapra és nem nyomtatod ki, ha hiányzik az adott cella adata.....Komolyra fordítva:
Ha az a kérdés, hogy van-e ilyen beépített lehetőség az Excelben, akkor a válasz nincs.
Makróval viszont minden (na jó, szinte minden) megoldható. Végigmehetsz az adott munkalap kinyomtatandó oldalain és megnézheted, hogy az adott cellában van-e adat. Az eredmény függvényében kinyomtatod vagy továbblépsz kinyomtatás nélkül.Üdv.
-
slashing
senior tag
válasz
gaborlajos #25298 üzenetére
(2013-as verzió, 2010-esben is tuti jó még visszamenőleg nem tudom)
Egy példa lehet van rá jobb megoldás
A jelölőnégyzetre kattintasz és a szerkesztőlécen beírsz egy cellahivatkozást, pl.: =C1 ekkor megjelenik egy igaz vagy egy hamis a C1-ben attól függően hogy be van-e kattintva.
A3= minimum dátum
A4= maximum dátumC1= igaz vagy hamis
E2: =HA(C1=IGAZ;$A$3;"")
E3 és ez a képlet lehúzható ameddig akarod: =HA(E2<$A$4;DÁTUM(ÉV(E2);HÓNAP(E2);NAP(E2)+1);"") -
gaborlajos
csendes tag
válasz
gaborlajos #25173 üzenetére
Köszönöm szépen, ez így működik.
Üdv:
-
Delila_1
veterán
válasz
gaborlajos #25173 üzenetére
Alkalmazás:
Beírod a 20 cég nevét, amit most nálam az I1:M1 tartomány képvisel. Elé, ahol most nálam a Kategóriák szöveg szerepel, beírod pl. hogy Cégek. Kijelölöd a H1:M1 tartományt, és ha 2003-asnál magasabb verziód van, akkor Képletek | Definiált nevek | Kijelölésből új, Bal oszlopból.
2003-nál és alatta a kijelölés után Beszúrás | Név | Létrehozás.Most beírod az első cég alá a hozzá tartozó emberek nevét. Ez lesz mondjuk az I1:I12 tartomány. Kijelölöd, nevet adsz neki, mint az előbb, csak most a Bal oszlopból helyett a Felső sorból opciót választod. Ezt megismétled a többi cégnél is.
Az első cella (a példa szerint A1) érvényesítése Lista, forrása a =Cégek. Itt rögtön válassz is ki egyet. A második (B1) szintén Lista, a forrása pedig =INDIREKT(A1).
A listáknak nem kell azonos lapon lenniük az érvényesítésekkel. Nálam most mindegyik kategóriában 7 adat van, de természetesen különböző hosszúságúak lehetnek.
-
lappy
őstag
válasz
gaborlajos #25168 üzenetére
http://prohardver.hu/tema/excel/hsz_10160-10160.html
Itt is van egy leírás -
Fferi50
Topikgazda
válasz
gaborlajos #24886 üzenetére
Szívesen!
-
Fferi50
Topikgazda
válasz
gaborlajos #24868 üzenetére
Szia!
A munkalapod kódlapjára a következőt írd be légy szíves:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("$D$1:$E$50")) Is Nothing Then Exit Sub
Application.EnableEvents = False
vanmar = Application.Match(Target.Value, Range("$H$1:$H$" & Range("H4000").End(xlUp).Row), 0)
If IsError(vanmar) Then
If IsEmpty(Range("H1")) Then
Range("H1").Value = Target.Value
Else
Range("H4000").End(xlUp).Offset(1, 0).Value = Target.Value
End If
End If
Application.EnableEvents = True
End SubA kódlaphoz úgy jutsz, hogy a munkalap fülön jobb egérgombbal kattintasz. Ott kiválasztod a kód megjelenítését. Ezután a lap második felében megjelenik egy lenyiló, general felirattal. Azt átváltod worksheet feliratra. Megjelenik egy Worksheet_SelectionChange sub. Ezzel ne törődj, alá másold be a fentieket.
Amikor a D1:E50 cellák valamelyikébe beírsz egy nevet vagy bármit, a cella elhagyásakor a H oszlopban megvizsgálja, hogy van-e már olyan beírás. Ha nincs, akkor utolsónak beírja. De betű szerint egyeznie kell a beírásnak!
Természetesen a tartományokat a magad képére formálhatod (ha 4000-nél több dolgozó lehet, akkor a 4000-es számot vedd nagyobbra).Remélem valami ilyesmire gondoltál.
Üdv.
-
Fferi50
Topikgazda
válasz
gaborlajos #24858 üzenetére
Szia!
Eddig teljesen világos és egy makróval meg is oldható, hogy ha valaki uj nevet ír be, az átkerüljön a nevek oszlopába.
De! Mi garantálja, hogy mindig ugyanazt a nevet írja be és nem "bénázik"?
Én inkább csinálnék egy érvényesítő listát a nevek oszlopába és onnan választatnám ki a nevet. Így biztosan nem lenne félreütés. Persze ehhez tudnod kellene a dolgozók nevét előre. Mi a véleményed?Üdv.
-
Fferi50
Topikgazda
válasz
gaborlajos #24856 üzenetére
Szia!
Te egészen biztosan tudod, hogy mit szeretnél. Amit leírtál, abból viszont nem derül ki - legalábbis számomra:
Az ide másolja át részen látom a dolgozók neveit kigyűjtve. Ezen kívül mit kellene még mellé gyűjteni? Gondolom a teljesített órák számát, amit talán a mind összesen óra oszlop tartalmaz?
Miért van két név oszlop?Gondolat: A dolgozó neve oszlopra csinálsz egy irányított szűrést, egyedi értékekre, az ide másolja át oszlopba.
Ezután a dolgozók melletti cellákban egy szumha függvénnyel összegzed a hozzá tartozó órák számát.Legalábbis, ha ezt szeretnéd.
Légy szíves igazold vissza, jól gondolom-e a "feladatot".
Még valami: Excel verziód száma és nyelve?
Üdv.
-
Fferi50
Topikgazda
válasz
gaborlajos #24853 üzenetére
Szia!
Két dolog:
1. Az automatizmus magától nem megy, meg kell neki mondani, hogy mit csináljon - pl. eseményvezérelten, vagy gombnyomással vagy stb.
2. Amit írtam, azt nem csak egy oszlopra lehet alkalmazni, hanem tartományokra is - és makróból meg lehet hívni lásd első pont.Tehát, ha felteszel egy mintát és leírod, hogy mikor mit csináljon, akkor könnyebben tudunk segíteni.
Üdv.
-
Fferi50
Topikgazda
válasz
gaborlajos #24846 üzenetére
Szia!
Ha 2010-es (esetleg 2007?) vagy annál újabb exceled van, akkor adatok -> ismétlődések eltávolítása.
Ha korábbi, akkor adatok -> irányított/speciális szűrő. Másolás más helyre, csak az egyedi adatok. Ekkor viszont az adatok első cellája fejléc kell legyen.Üdv.
Új hozzászólás Aktív témák
- Vicces képek
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Apple MacBook
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Elektromos autók - motorok
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Windows XP
- Azonnali alaplapos kérdések órája
- Autós topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- PC Game Pass előfizetés
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- AKCIÓ! Apple Macbook PRO 15" 2018 i9 32GB 500GB notebook garanciával hibátlan működéssel
- Bezámítás! Lenovo Legion 5 17ACH6H Gamer notebook - R7 5800H 16GB DDR4 512GB SSD RTX 3060 6GB WIN11
- Konica Bizhub C220 A3 fénymásoló
- LÉZEREZÉS! külföldi billentyűzet magyarra kb. 20-30p alatt!
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3023, 90% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest