Hirdetés
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- sziku69: Fűzzük össze a szavakat :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
LOGOUT
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
-
szivacs1987
aktív tag
válasz
Mela Kehes
#53420
üzenetére
-
Delila_1
veterán
válasz
Mela Kehes
#36053
üzenetére
Törölve.

-
Delila_1
veterán
válasz
Mela Kehes
#36055
üzenetére
Folytassuk privátban!
-
Delila_1
veterán
válasz
Mela Kehes
#36053
üzenetére
Userformon duplaklikk.
-
Delila_1
veterán
válasz
Mela Kehes
#36051
üzenetére
Megnyitod a füzetet, amit belinkeltem. Bekéri a jelszót. Add meg a Pál nevet (ez a legrövidebb
).
A Munka4 lap lesz látható.Most Alt + F11-gyel belépsz a VB szerkesztőbe. Bal oldalon kiválasztod a sárga hátterű UserForm1-et, majd jobb oldalon a Belépés gombon egy duplaklikk bevisz a gomb makrójába. Itt írd át a Case utasításokat. Bővítheted az utasítások számát.
-
Delila_1
veterán
válasz
Mela Kehes
#36049
üzenetére
Nem módosul, bármelyik változat jó lesz.
-
Delila_1
veterán
válasz
Mela Kehes
#36047
üzenetére
FFeri ötlete alapján jelszavas belépést állítottam össze. [link].
Behíváskor indul a UserForm1. A Jelszo nevű TextBoxba beírt érték alapján láthatóvá teszi azt a lapot, amit a jelszó tulajdonosa láthat, a többit elrejti.
-
Delila_1
veterán
válasz
Mela Kehes
#36044
üzenetére
Egy kis makró, amit a ThisWorkbook laphoz rendelsz a VB szerkesztőben, megoldja.
Private Sub Workbook_Open()
Dim lapnev As String, lap As Integer
Select Case Environ("Username")
Case "Jancsi"
lapnev = "Munka1"
Case "Juliska"
lapnev = "Munka2"
Case "Péter"
lapnev = "Munka3"
Case "Pál"
lapnev = "Munka4"
End Select
For lap = 1 To Sheets.Count
Sheets(lap).Visible = xlSheetVisible
Next
For lap = 1 To Sheets.Count
If Sheets(lap).Name <> lapnev Then Sheets(lap).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End SubA füzet megnyitásakor automatikusan elindul. Az egyes nevekhez (Case "Jancsi") a valódi felhasználó nevét írd be, ahogy a gépe el van nevezve. A lapnev="Munka1" helyére annak a lapnak a nevét add meg, amit a felhasználó láthat.
-
Fferi50
Topikgazda
válasz
Mela Kehes
#36044
üzenetére
Szia!
Egy makró, ami a fájl megnyitásakor bekéri a felhasználó nevet és a jelszót, majd ennek alapján elrejti azokat a munkalapokat, amelyet nem kell látnia.
(Persze ehhez a felhasználó neveket és a jelszavakat is tárolnod kell a munkafüzetben.)Üdv.
-
Fferi50
Topikgazda
válasz
Mela Kehes
#35990
üzenetére
Szia!
Használd a * (csillag) joker karaktert a kereséshez:
"*keres*" minden olyan tétel, amiben a keres előfordul
"*keres" minden olyan tétel, ami keresre végződik
"keres*" minden olyan tétel, ami keressel kezdődik.Üdv.
-
Delila_1
veterán
válasz
Mela Kehes
#35835
üzenetére
Kimutatást kell készítened pár kattintással. Ebben az oszlopodat, ami a sikerült - nem sikerült értékeket mutatja, szűrd a "sikerült"-re.
-
Delila_1
veterán
válasz
Mela Kehes
#35813
üzenetére
Ha a nevet tartalmazó oszlop jobbra van a keresett értéktől, akkor az FKERES is alkalmazható.
-
Delila_1
veterán
válasz
Mela Kehes
#35808
üzenetére
INDEX és HOL.VAN.
-
lappy
őstag
válasz
Mela Kehes
#35773
üzenetére
darabhatöbb fgv.
-
Louro
őstag
válasz
Mela Kehes
#33565
üzenetére
Ha D meghajtóra másolod, akkor lehet ugyanolyan könyvtárstruktúrát készíteni és akkor kompatibilis lesz

Az #ÉRTÉK hibaüzenetet azért adhatja, mert a hivatkozott cella tartalma is érték. Én általában lustaságból szoktam így hivatkozni más fájlokra. Egyszer megnyitom és egyenlőségjel után kattintok arra, amit szeretnék elhozni. Olyan, mintha copy->paste lenne.
@Imy: [link]
Videó. Itt fontos, hogy a legördülőben válaszd az Új szabályt. A legalsót válaszd ki. A formázandó cellák kijelölése képlettel. Majd írd be =ÜRES(A1) .... értelemszerűen azt a cellát írd be, amire a vizsgálatot szeretnéd. Ha másolni szeretnéd a formázást, akkor a Kezdőlap menüszalag Vágólap (első szekció) részén láthatsz egy Formátummásolót. Először állj a másolandó cellára. Majd katt a menüpontra és utána jelöld ki azt a területet, ahol alkalmazni szeretnéd ugyanazt.
-
Louro
őstag
válasz
Mela Kehes
#33556
üzenetére
Én úgy csalnék, hogy megnyitnám a másik fájlt. Ahová akarod hivatkozni, oda = jel után kattintanék a forrásra és kész. Így nem kell kézzel beírni a hivatkozást.
@Reinhardt: Az idővel úgy játszanék, hogy =HA(D2<C2;24-C2+D2;D2-C2)
Így megvan az éjszakai munkaóra
-
lappy
őstag
válasz
Mela Kehes
#33556
üzenetére
=SZUM('C:\Jelentések\[Költségvetés.xlsx]Éves'!C10:C25)
pl ez alapján -
Fferi50
Topikgazda
válasz
Mela Kehes
#24167
üzenetére
Szia!
Talán a fordulók párosítását - azaz a sorsolást - szeretnéd megcsinálni?
Vannak erre különféle párosítási táblázatok, ahol csak egy számot kell az adott csapathoz/játékoshoz rendelned és a táblázatból máris kiolvasható a fordulók rendje és párosítása.
sorsolási táblaEz ugyan sakkra van, de messzemenően figyelembe veszi az otthoni-idegenbeli (sakkban ugye világos-sötét) játékeloszlás "igazságosságát" is.
Vagy itt van ez a link:kispályás foci
ami nem "kispályás" lehetőségeket kínál.Üdv.
Új hozzászólás Aktív témák
- M.2 csatlakozók terén (is) jónak ígérkezik az MSI közelgő AMD-s alaplapja
- Gumi és felni topik
- Gaming notebook topik
- Anglia - élmények, tapasztalatok
- Honor Magic5 Pro - kamerák bűvöletében
- Milyen légkondit a lakásba?
- Óra topik
- Otthoni hálózat és internet megosztás
- Projektor topic
- Azonnali alaplapos kérdések órája
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Vírusirtó, Antivirus, VPN kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3391
- ÚJ Acer Nitro V ANV15 - 15.6"FHD IPS 165Hz - i5-13420H - 16GB - 512GB - RTX 4060 -Win11 - 3 év gari
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 256GB SSD 1TB HDD GTX 1660 SUPER 6GB Zalman T4 Plus 450W
- Lenovo ThinkPad T14 Gen1 Ryzen5 4650U Refurbished - Garancia
- Amazon Kindle 10th Generation ébresztős tok
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi

).

Fferi50
