-
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
-
daddy9
tag
válasz
Fferi50
#45521
üzenetére
Szia!
Sikerült meghívnom a Moduloknál megírt SUB-ot, így nagyban leegyszerűsödött a dolgom, csak a publikus változókkal kellett még gyors ismeretséget kötnöm, hogy minden jól működjön.
A hiba egyébként az volt, hogy egyszerűen amikor a Function-t használta volna a SUB, akkor szimplán átugrotta, viszont emiatt nem jött létre egy lapfül, amit a Function eredményétől függően (létezik-e már) hoztam volna létre.
Nagyon szépen köszönöm a segítséget!
-
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!
-
daddy9
tag
válasz
Delila_1
#42955
üzenetére
A másodikra (42951 hsz) meg se moccan semmi.
Hiába kezdem úgy, hogy minden oszlop fel van fedve, aztán úgy, hogy az 5. oszloptól el van rejtve. Hiába írok bármit a 36. sorba, nem reagál rá.
Az általam #42944 hsz-be írt verzió működik, de nem szép. -
daddy9
tag
Egyszerűbb, ha példát írok.
Alapesetben az lenne a cél, hogy (A : D) oszlopok látszódjanak, attól függetlenül, hogy a 36. sorban mi van, az (E:AA) tartomány lehet rejtett.
Ha a D36-os cella nem üres (bármit írok bele), akkor fedje fel az E oszlopot (nem kell újat beszúrni). Ha ezután az E36-ba is írok valamit, akkor fedje fel az F oszlopot és így tovább az utolsó (előző példában 27.) oszlopig.
Remélem így már érthető, hogyan szeretnék új oszlopokat "nyitni"/felfedni.
És még egyszer köszönöm!
-
daddy9
tag
Sziasztok!
Egy kis segítséget szeretnék kérni.
Az alábbi makrót szerkesztettem át egy meglévő alapján:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.ScreenUpdating = FalseLastColumn = 27 'Last ColumnFor i = 5 To LastColumn 'Lopping through each ColumnIf Cells(36, i) = "" Then Columns(i).EntireColumn.Hidden = TrueIf Cells(36, i - 1) <> "" Then Columns(i).EntireColumn.Hidden = FalseNextApplication.ScreenUpdating = TrueEnd SubA lényege annyi lenne, hogy megnézi, hogy a 36. sorban van-e valami és ha nincs, akkor elrejti, kivéve az első 4 oszlopot. Ezen felül, ha egy oszlop 36. sorában van valami, akkor a tőle jobbra lévő oszlopot láthatóra állítom, hogy legyen hova írni.
Ha ezt a makrót egy új állományba átmásolom, akkor hibát ír.
Gondolom az a baja, hogy az IF nincs lezárva (?), de akkor ha hiba van benne, akkor most miért működik a fenti formájában?
Segítenétek megfelelően lezárni?
Köszönöm a segítséget! -
daddy9
tag
-
daddy9
tag
válasz
Delila_1
#42787
üzenetére
A C33:E36 tartományban található értékek alapján osztogatom az okleveleket.
Az ügyes lányok pillangós + macis, az ügyes fiúk focis + macis oklevelet, a jók csak focis és pillangóst.(#42786) sztanozs
A leegyszerűsített példára lehet, hogy elég lenne, de nem 2-3 munkalap (nyomtatvány) készülne, hanem 20-25 és nem 4 féle feltétel alapján, hanem több. A példa direkt egyszerűsített, mert a logikájára próbálok rájönni, utána a "tartalommal feltöltést" már intézem. De köszönöm, hogy foglalkoztál vele! -
daddy9
tag
Sziasztok!
Egy komplexebb feladatot szeretnék makró segítségével megoldani, de kicsit elakadtam.
Vannak nyomtatványaim (a példában oklevelek), amiket a tanulók nevével és eredményével töltenék ki.
A feladat az lenne, hogy egy makróval külön-külön tudjam az "ügyes" tanulóknak szánt 2 oklevelet (az alsó táblázat alapján) exportálni PDF-be, és a "jó" tanulóknak az 1 oklevelet.
Természetesen a konkrét felhasználásban nagy jelentősége van annak, hogy külön tudjam ezeket exportálni, csak a példában próbáltam egyszerűsíteni.
Tehát a lényeg az, hogy ha van több "ügyes" fiú tanulóm, akkor egy oklevél munkalapot szeretnék legyártani és azt többször kitöltetni a makróval, majd exportálni, de ennek a megoldásában elakadtam. A "Naplószám" alapján gondolom létre lehetne hozni valamilyen loop-ot, csak ezekhez sajnos nem értek (még).
Nem tudom, hogy mennyire érthető a kérdés a fentiek alapján.
A példához tartozó teszt.xls itt található: https://drive.google.com/open?id=1AWmF1U2jeWShTatBCiTa6sP0znXX6TdB
Minden apró segítséget előre is nagyon köszönök! -
daddy9
tag
Sziasztok!
Abban kérném a segítségeteket, hogy az alábbi makrót szeretném úgy átalakítani, hogy ne a B1:B60 cellákat írja ki egy txt fájlba, hanem csak addig, amíg van is tartalom a B oszlopban, ami jellemzően a B50 és B60 közé esik. Működik így is, csak van a txt fájlom végén egy rakás felesleges sortörés azokban az esetekben, amikor pl a B50-ig van tartalom.
Sub Makro()
Dim iCntr As Long
Open "test.txt" For Output As #1
For iCntr = 1 To 60
Print #1, Range("B" & iCntr)
Next iCntr
Close #1
End SubSegítségeteket előre is nagyon köszönöm!
-
daddy9
tag
Sziasztok!
Abban kérném a segítségeteket, hogy hogyan lehetne egy elérési útból az utolsó mappa nevét kimásolni egy másik cellába.
pl: A1-ben van a c:\munka\buda\ és B1-be szeretném csak azt, hogy buda.
Természetesen ezt változó hosszal, tehát nem tudom simán a JOBB függvényt használni.
A segítséget előre is köszönöm! -
daddy9
tag
Sziasztok!
Egy PDF illetve TXT exportáló makróra lenne szükségem, ami megcsinálja az alábbiakat:
- Az első munkalapon (Adatbekérő) lenne elhelyezve egy gomb ez indítaná az exportálást (PDF és TXT is).
- A 2-től 5. munkalapokon (Borító, Leírás, Kérelem, Tartalom) találhatóak kész nyomtatványok, amik az első munkalapon lévő adatokat veszik át. Ezeket szeretném egy újonnan létrejövő "dokumentumok" mappába rakni Borító.pdf, Leírás.pdf, Kérelem.pdf és Tartalom.pdf néven.
- A 6. munkalapon (info) is vannak adatok az A113 tartományban. Ezt szeretném TXT formátumban (szóközzel elválasztva) elhelyezni egy CD_alma vagy CD_körte vagy CD_szilva mappában attól függően, hogy az első munkalap B2-es cellájában alma/körte/szilva van írva. Ennek a neve info.txt lenne értelemszerűen.
- Az már csak hab lenne a tortán, ha a táblázat mondjuk a C:\ gyökérben van elhelyezve, de az elérési utat én adom meg az első munkalap O43-as cellájába írva pl így: "C:\munka\1001-2015\". Akkor ezen a mappán belül hozza létre a 'dokumentumok' és a 'CD_alma' mappát és esetleg egy másolatot is készít magáról (vagy mentés másként) a meglévő 'munkaközi' mappába.Ha ezt valaki nekem el tudná mondani, hogy milyen elemekből és hogyan rakjam össze / hol olvassak utána (esetleg meg is írja
), azt nagyon megköszönöm (igény esetén sörrel jutalmazom)!
Elkezdtem olvasgatni a témakörben, de úgy érzem nagyon sok gyakorlás kellene, mire odáig eljutnék, hogy ezeket összehozzam.
A segítséget előre is nagyon köszönöm!
), azt nagyon megköszönöm (igény esetén sörrel jutalmazom)! Új hozzászólás Aktív témák
- HIBÁTLAN iPhone 12 mini 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3452
- Logitech Lift for MAC ergonomikus egér
- Asus Rog Ergo gamer szék
- ÚJ Lenovo ThinkPad X13 Gen 5 - 13.3" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- HP 14 Elitebook 840 G7 FHD IPS i5-10210U 4.2Ghz 16GB 256GB SSD Intel UHD Graphics Win11 Pro Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest