Hirdetés
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Árnyékos sarok
- sziku69: Fűzzük össze a szavakat :)
- Geri Bátyó: Agglegénykonyha 10 – Alapanyagok/készételek többféle felhasználása
- hege8888: Retro Kocka Kuckó harmadjára Hódmezővásárhelyen
- sziku69: Szólánc.
- leslieke: leslieke farmerzsebe
- MasterDeeJay: i7 4980HQ asztali gépben (vs i7 4770)
- Tamás88: Karácsonyi hangulat... de másképp
-
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
-
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
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
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
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.
-
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
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
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
-
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
-
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 -
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
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
Új hozzászólás Aktív témák
Fferi50- One otthoni szolgáltatások (TV, internet, telefon)
- Kerékpárosok, bringások ide!
- Na, milyen hardver kerül a fa alá?
- World of Tanks - MMO
- Interactive Brokers társalgó
- Kínai és egyéb olcsó órák topikja
- btz: Internet fejlesztés országosan!
- Elektromos autók - motorok
- Okos Otthon / Smart Home
- Napelem
- További aktív témák...
- BESZÁMÍTÁS! LENOVO ThinkPad P15 Gen1 - i7 10850H 64GB DDR4 1TB SSD Quadro T2000 WIN11
- BESZÁMÍTÁS! MSI B450M R5 5600X 32GB DDR4 512GB SSD RTX 3070 8GB Zalman Z1 PLUS GIGABYTE 750W
- CTO Bontott 0perces TÜZES EZÜST MacBook Air 13.6" M4 10C/1G 16GB 512GB Gar.: 1 év APPLE világgar
- Asus Zenbook 14 Laptop UX3402Z i7
- LG 32UN880K - 32" IPS ERGO / 4K UHD / 60Hz 5ms / DisplayHDR 400 / USB Type-C / AMD FreeSync
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi