-
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
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni.
Excellel szerkesztett kérdőívben vannak bármilyen értékkel kitölthető cellák és legördülő választéklistát tartalmazó cellák.
A kitöltők számára szeretném kötelezően kitöltendővé tenni a cellákat.
A bármilyen értékkel tölthető cellák esetében egy régebbi fórumban találtam egy makrót ami nagyon jól működik, viszont a legördülő választéklistás cellák esetében ez nem működik.A kérdésem az lenne, hogy a legördülő választéklistát tartalmazó cellák kötelezővé tételére létezik valami megoldás?
Előre is köszönöm!
Üdv.
Gaben -
gaben86
csendes tag
lappy
Így remekül működik, thx.
-
gaben86
csendes tag
Ez csak természetes
2 variáció van, vagy mentés előtt reklamál, vagy a munkafüzet bezárása előtt:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Mentés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End SubHa esetleg abban tudnál(tok) még segíteni, hogy lehet azt beállítani, hogy nekem ne kelljen kitölteni, üresen el tudjam menteni?
Mert a makró használatával nekem is előírja a cellák kitöltését. -
gaben86
csendes tag
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Mentés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Sub[ Szerkesztve ]
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni, hogy lehet azt megoldani, az alábbi auto load makró esetén:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Subhogy én üresen tudjam bezárni az adott munkafüzetet, anélkül hogy a hivatkozott cellát ki kellene töltenem, viszont akinek elküldöm kitöltésre, annak kötelező legyen az adott cella kitöltése.
Előre is köszönöm!
Gaben
[ Szerkesztve ]
-
gaben86
csendes tag
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretnék kérni,
excelben ha egy adott cellára rákattintok az egérrel vagy ha rá navigálok a billentyűzettel, akkor az adott cellához rendelt kép megjelenjen a táblázatom mellett, ha tovább lépek róla -a cella már nem "aktív" akkor a kép eltűnjön.
Jelenleg egy 50 soros táblázatom van, minden sorához kellene egy adott képet hozzárendelni, a fent leírtak szerinti működéssel.
A képek a C: meghajtó egy adott mappájában vannak a gépemen
A táblázatom A-G oszlopig terjed, H oszlopban a kép megjelenhetne a táblázat mellett.Ez megoldható véleményetek szerint?
Előre is köszönöm!
Üdv.
Gaben -
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni, van egy excel munkafüzetem, amelyben több száz munkalap van.
Az első munkalap forrásul szolgál a többinek, erre mutatnak a hivatkozások a többi munkalapon.
A forrás munkalapon módosítok valamit, azt végrehajtja a többi munkalapon is.A forrás munkalapra bekerült egy alap műveleteket tartalmazó képlet az egyik cellába.
Kérdésem az lenne, hogy megoldható e, hogy a többi munkalapon erre a képletre hivatkozzak, nem a cella értékére, hanem magára a képletre, hogy a képlet a többi munkalapra átkerüljön.
Erre azért van szükség mert a képletet gyakran kell módosítani, nem szeretném minden egyes alkalommal az összes munkalapra átmásolni, hanem csak az alap munkalapon lévőt átírni, amit lekövet a többi munkalap is.Segítségeteket előre is köszönöm!
Üdv.
O.Gábor -
gaben86
csendes tag
-
gaben86
csendes tag
lappy
Bocsánat, tökéletesen működik, csak a beírásnál felcseréltem a 2 cellát.....[ Szerkesztve ]
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni egy feladat megoldásához.Adott egy excel munkafüzet (befektetett eszközök állományának változásait követjük nyomon benne) 2 db munkalappal, az egyik adattárolásra szolgál(Csak számokat tartalmaz "adat" elnevezéssel), a másik a munkafelület "Munka1" elnevezéssel, mint egy űrlap.
A munkafelületben FKERES-el jelenítek meg nyitó értékeket+ vannak képletezett összesítő sorok -és oszlopok (záró értékek), a köztes mozgások kézzel kerülnek kitöltésre.
240 üzem adatait tartalmazza, az FKERES függvények egy legördülő listára támaszkodva dolgoznak, a listában az üzemek kódszáma található.Amint a változások felvezetésre kerültek a munkafüzetet az éppen kiválasztott üzem adataival egy új fájlba kellene menteni, úgy hogy a legördülő lista éppen aktuális eleme legyen a fájl neve.
Az új fájlban értékének kellene szerepelnie a függvények helyén, de az összesítő soroknak, oszlopoknak működőképesnek kellene maradnia, ha lehetséges.Segítségeteket előre is köszönöm!
Üdv. G.
-
gaben86
csendes tag
válasz Delila_1 #39493 üzenetére
Szia!
Továbbgondolva, megfelelő lenne számomra az is, ha az elkészült "Munka1" munkalapokat mindig egy meghatározott, makrómentes munkafüzetbe mentené(ami ugyan ott található mint a forrásfájl), a munkalapok neve az eredeti "Munka1" munkalap L1 cellájában található legördülő lista éppen aktuális eleme lenne.
Elegendő lenne, ha a formátumot -és az értékeket vinné át.
A "Munka1"-ben használt táblázat A1 : N55 terjed.
A végén az eredeti munkafüzetnek kellene aktívnak maradnia, a másik pedig bezáródhatna mentés után.Nem tudom, ehhez szükség egyéb információ is?
Köszönöm!
Üdv. G.
[ Szerkesztve ]
-
gaben86
csendes tag
válasz Delila_1 #39493 üzenetére
Bocsánat az kimaradt, hogy egy activeX Parancsgombhoz szeretném hozzárendelni a műveletet.
A "Munka1" adatlapok mentése utánra készítettem egy activeX Törlés gombot, ami a kézzel bevitt adatokat törli, így egy másik üzem nyitó adatai betölthetőek -és lehet tovább dolgozni a következővel.
A mentés gombbal is próbálkoztam, de eléggé kezdő vagyok a VBA-ban, nem igazán sikerült.
-
gaben86
csendes tag
Sziasztok!
Szeretnék segítséget kérni az alábbiakban: munkafüzetben 2 munkalap van az egyik "Munka2" adatforrás, amiben ügyfelek adatai szerepelnek, az "a2:a237" oszlop ügyfelek azonosítóját tartalmazza, a többi oszlop "b2:bo237" különféle növénykultúra terület adatait, "b1:bo1" fejlécnek tekintendő.
Ez a táblázat soronként "ügyfelenként" tartalmaz üres cellákat.A másik munkalap "növények" kötött formátumú, nyomtatásra előkészített lap.
Arra van e lehetőség, hogy a növények munkalap legördülő listájából (h1) kiválasztott "ügyfél" azonosítóra az adott ügyfélhez tartozó adatok átkerüljenek a "Munka2" táblából, de úgy, hogy az üres cellák kimaradjanak, csak az adatot tartalmazó cellákat kellene áthoznia a hozzá tartozó fejlécekkel.
A legtöbb átmentendő adat max 15db, a "b2, d2, f2, h2, k2, m2, o2, q2, t2, v2, x2, z2, ac2, ae2, ag2"
összevont cellába kerülne a fejléc, a hozzá tartozó értékek pedig, a "b4, d4, f4......." cellákba, ezek nem összevontcellák.
Mentést követően a feltöltött cellákat üríteni kellene,majd kezdődhetne előröl egy másik üzemet kiválasztva.Remélem jól meg tudtam fogalmazni -és értelmezhető amit írtam.
Előre is köszönöm segítségetek!
Üdv. G.
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni, egy makróval kapcsolatban, amit találtam.
Munkafüzetek összemásolását végzi egy munkafüzetbe, de teljes másolást végez, nekem csak arra lenne szükségem, hogy a Munka1 lapokat másolja csak ki a füzetekből.
Miként kellene módosítani, hogy úgy működjön, ahogy írtam?
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End SubElőre is köszönöm!
Üdv. G.
-
gaben86
csendes tag
Szia!
Köszönöm a segítséged, kipróbáltam, de nekem "Compile error"-t ír.
Ha megkérlek a teljes makrót beillesztenéd, lehet rosszul helyettesítettem be a programrészt.
Új hozzászólás Aktív témák
- Mini-ITX
- Android alkalmazások - szoftver kibeszélő topik
- Villanyszerelés
- Milyen TV-t vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen routert?
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Genshin Impact (PC, PS4, Android, iOS)
- Ukrajnai háború
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eladó Steam kulcsok kedvező áron!
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen