- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
- Itt van az eddig legjobban teljesítő kétfiókos NAS a TerraMastertől
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Hálózati / IP kamera
- WLAN, WiFi, vezeték nélküli hálózat
- Törvénnyel pörgetné fel az európai zöldtechnológiát az EU
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Zyxel NAS326
- Facebook és Messenger
- Synology NAS
-
IT café
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
-
Delila_1
Topikgazda
válasz mimi_bacsi #3414 üzenetére
Tedd egy külön mappába az xls-eket, amiket össze akarsz fésülni
Vegyél egy új füzetet, az első sorba másold át a címsort. Másold be a scriptet, mentsd el a fájlt Gyűjtő néven, de másik könyvtárba.
Írd át az útvonalat, és a Range(Cells(2,1), Cells(usor,4)).Copy sorban írd át a 4-et annyira, ahány oszlopod van az összefésülendő fájlokban. A 4-es a D oszlopot jelenti.
A script egyenként behívja a mappában lévő fájlokat, az adatokat egymás alá beilleszti a Gyűjtő füzetbe, bezárja a behívott füzetet. Az összegyűjtött adatokat a végén kedved szerint rendezheted.Sub Fésü()
Const utvonal = "E:\Eadat\Új mappa\" 'Ezt írd át arra a mappára, ahol az xls-eid vannak
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FN
usor = Range("A65536").End(xlUp).Row + 1 'Behívott füzet alsó sora
Windows("Gyűjtő.xls").Activate
gy_usor = Range("A65536").End(xlUp).Row + 1 'Gyűjtő füzet alsó sora
Windows(FN).Activate 'Behívott füzet
Range(Cells(2, 1), Cells(usor, 4)).Copy 'A:D oszlop (1:4)
Windows("Gyűjtő.xls").Activate 'Gyűjtő füzet
Cells(gy_usor, 1).Select
ActiveSheet.Paste
Windows(FN).Activate 'Behívott füzet
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen