Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- gerner1
- Gurulunk, WAZE?!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sziku69: Szólánc.
-
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
-
Fferi50
Topikgazda
Szia!
Ez az itteni minta azt csinálja, amit szeretnél, a speciális szűrés felhasználásával.
A keresendő szöveget a textboxba írhatod be - annyival több, mint amit Te kérsz, hogy minden betű beírása után szűri a két oszlopot. Ha egyik vagy másik oszlopban talál a betűcsoportnak megfelelő szöveget, akkor azt kiszűri, a többit elrejti.Üdv.
-
-
Delila_1
veterán
Másik megoldás a kilistázásra.
J1-től beírod a listázandó mappák útvonalát. Pl. J1-be C:\Főmappa\,
J2-be C:\Főmappa\Almappa1\, J3-be C:\Főmappa\Almappa1\Al-Almappa\, stb.Sub MappaLista()
Dim utvonal As String, sor As Long, FN As String, sorMappa As Integer
sor = 1: sorMappa = 1
Do While Cells(sorMappa, 10) <> ""
utvonal = Cells(sorMappa, 10)
ChDir utvonal
FN = Dir(utvonal)
Do While FN <> ""
Cells(sor, 1) = FN
sor = sor + 1
FN = Dir()
Loop
sorMappa = sorMappa + 1
Loop
End Sub -
lappy
őstag
Private Sub CommandButton1_Click()
Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer
Application.ScreenUpdating = False
directory = "c:\test\"
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
i = i + 1
j = 2
Cells(i, 1) = fileName
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
Workbooks("files-in-a-directory.xls").Worksheets(1).Cells(i, j).Value = sheet.Name
j = j + 1
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
End SubEz nem teljesen jó,de ha egy szakértő itt ránéz akkor alapnak jó lesz.
Amúgy ez csak az adott könyvtárban lévő xl?? kiterjesztésű fájlokat gyűjti a hozzájuk tartozó munkalapok neveivel együtt. -
koob
senior tag
Most lenne aktuális a dolog, piszok macerásan
(5perces munkát, több mint egy óra alatt) tudom csak megoldani (nagyon sok adat),
hogy egyik *.XLS-ből a másikba, ahol már van adat,
ugyanolyan formában láthatóvá váljék az az adatösszefüggés, mint ahonnan származnak a részösszegek!
Ezekeket az Irányított beillesztés, Adatok/Részösszeg -eket profin, hogyan lehet alaklamazni, különböző Excel fájolkból hivatkozás, másolás, de tartalom-forma maradjon?
Jó lenne egy ilyen témában ''hypercam''-es oktató videó...
[Szerkesztve] -
Gh0sT
addikt
Új hozzászólás Aktív témák
Hirdetés
- Ha Darwinra hallgat az AI, nehéz lesz megállítani
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Mesterséges intelligencia topik
- Hardverfogócska a kertben
- Luck Dragon: Asszociációs játék. :)
- World of Warships
- Gumi és felni topik
- Fujifilm X
- A szellőzésre is figyel a Lian Li kábeleket rejtő, Infinity sorozatú mikrotornya
- iPhone topik
- További aktív témák...
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- MS SQL Server 2016, 2017, 2019
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- GYÖNYÖRŰ iPhone 13 Pro 128GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS4675, 100% AKKSI
- LG UltraGear 45GX90SA-B OLED Monitor! 3440x1440 / 240Hz / 0.03ms / FreeSync / G-Sync! BeszámitOK
- Apple Watch Series 11 46mm GPS + Cellular Karcmentes állapot 100% akkumulátor
- iPhone 15 Pro Max 256GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- Normál állapotú Galaxy S25 DS 256GB Navy Blue
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


(5perces munkát, több mint egy óra alatt) tudom csak megoldani (nagyon sok adat),
Talán valami feltételes formázással. Esetleg mi van akkor, ha összecsukod a részösszegeket a bal oldalon (+; - gombok), kijelölöd őket és félkövérré teszed. Vagy ilyenkor a köztes tartalom is félkövér lesz?
Fferi50