- Luck Dragon: Asszociációs játék. :)
- total90: SSD és HDD árak 2026-ban – most kell vásárolni, vagy várni 2028-ig?
- Depression: Hardver rúzs effektus?
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
-
Fototrend
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
-
kokopeti
csendes tag
válasz
Delila_1
#13251
üzenetére
Delila egyszerűen nem bírom megcsinálni...
Private Sub Workbook_Open()
Do
felh_nev = InputBox("Üdvözöllek a BMP CAR Kft. vállalatirányítási rendszerében! A továbblépéshez kérlek írd be a rendszergazdától kapott felhasználónevet!", "Bejelentkezés")
Loop Until felh_nev = "bmpcarkft"
Sheets("Adatok").Select
UserForm1.Show False
MultiPage1.Value = 0
End SubAmikor indítom addig lefut a programom, hogy bejön a bejelentkező oldal, beírom azt a "felhasználónevet" amit előre megadtam. Aztán ezután a program dolga az lenne, hogy nyissa meg nekem az elkészített Userform multipage oldalai közül a legelsőt ami a "Főoldal" nevet viseli. Csak ezzel a MultiPage1.Value = 0 sorral van problémája, de ez már a 10. verzió amit beírtam és halvány fogalmam sincs, hogy hogyan hivatkozhatnék rá, mivel a Főoldalról gombok segítségével is szeretnék hivatkozni a Multipage oldalaihoz külön-külön.
Még dolgozok rajta, de ez megint egy olyan probléma ami egy teljesen egyszerű kis parancs lehet, viszont nem jövök rá, hogy mi az a parancssor amivel hivatkozhatok rá. Amennyiben még nem akasztottalak ki titeket a tudatlanságommal, akkor ismét megköszönném a segítséget.
Új hozzászólás Aktív témák
- Eljött a Messenger.com vége
- Máris elfogytak az idei évre szánt HDD-k a Western Digitalnál
- iPhone topik
- Okos Otthon / Smart Home
- Miskolc és környéke adok-veszek-beszélgetek
- Fejhallgató erősítő és DAC topik
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Milyen billentyűzetet vegyek?
- Robot fűnyírók
- Milyen légkondit a lakásba?
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Fallout 4 Pip-Boy Edition eladó
- Antivírus szoftverek, VPN
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Csere-Beszámítás! Acer Nitro 5 AN515-57! I7 11800H / RTX 3050Ti / 16GB DDR4 / 512GB Nvme SSD!
- HIBÁTLAN iPhone 15 128GB Pink-1 ÉV GARANCIA - Kártyafüggetlen, MS4510
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- Bomba ár! Lenovo ThinkPad T15 G1 - i5-10GEN I 16GB I 256GB SSD I 15,6" FHD I Cam I W11 I Gari!
- Samsung Galaxy S24 Ultra 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
