Hirdetés
- Mobilhálózatokra szabott EPYC-kel ugrik az 5G-s homokozóba az AMD
- Kiemelt figyelmet fordít a biztonságra az MSI szélsebes SSD-je
- Kis híján zsebre vágható 2 az 1-ben gépet villantott a TENKU
- A végletekig optimalizálja a SensorPaneleket az új AIDA64
- Egy kritikus technológiában nem ért egyet a TSMC és a Samsung az Intellel
-
PROHARDVER!
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
-
daddy9
tag
Sziasztok!
Bocsi a béna kérdésért, de elakadtam.
Van egy folyamatom, amit megírtam Module1-ben egy SUB-ba. Ez alatt található ez a Function:Function Sheet_Exists(WorkSheet_Name As String) As Boolean
Dim Work_sheet As Worksheet
Sheet_Exists = False
For Each Work_sheet In ThisWorkbook.Worksheets
If Work_sheet.Name = WorkSheet_Name Then
Sheet_Exists = True
End If
Next
End Function
Ez ilyen formán rendben működik.A táblázatomban úgy szeretném használni ezt a folyamatot, hogy több másikkal együtt egy Userform-on helyezek el gombokat és azokkal indítom a fent már megírt folyamatot.
Ha a Formhoz kapcsoltan (View Code) egy gombra bemásolom a fent megírt SUB teljes kódját és odamásolom a Function-t is, akkor nem "látja" a SUB az oda bemásolt Function-t.
A kérdésem az lenne, hogy hogyan tudnám ezt a legegyszerűbben megoldani?
A másik, amire sajnos nem tudtam rájönni (nem olvastam ezek szerint még eleget), hogy egy Modulban megírt SUB-ot (vagy Function-s) hogyan tudok "meghívni" a Userform egy gombjával?A válaszokat előre is nagyon köszönöm!

Új hozzászólás Aktív témák
- MWC 2026: Xiaomi termékdömping lesz szombaton, ezek a cuccok érkeznek
- erer1000: Milyen tesztekre lennétek kíváncsiak a lenti káosz gépet illetően?
- Samsung kuponkunyeráló
- Milyen videókártyát?
- Projektor topic
- Fejhallgató erősítő és DAC topik
- Milyen okostelefont vegyek?
- Milyen hangkártyát vegyek?
- Futás, futópályák
- Energiaital topic
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- GYÖNYÖRŰ iPhone 12 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS4564, 100% AKKSI
- Dell Latitude 5430 14" Touchscreen i5-1235U 16GB 512GB 1 év garancia
- Beszámítás! VALVE INDEX virtuális valóság szemüveg garanciával hibátlan működéssel
- Bomba ár! Lenovo X13 Yoga G1 - i5-10G I 8GB I 256SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4530, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
