- Tényleg jobban fogyaszt a Peugeot, az Opel és a Citroen?
- Huawei P30 Pro - teletalálat
- Honor 90 - modellalkat
- iPhone topik
- Az iPhone 15 frissítésgaranciát, a 16 szép rendereket kapott
- Vodafone mobilszolgáltatások
- MIUI / HyperOS topik
- Erősebb zajszűrést ad ismerős formában a Galaxy Buds 2 Pro
- Milyen okostelefont vegyek?
- Samsung Galaxy S20 és S20+ duplateszt
Hirdetés
-
MediaTek lapkával érkezhet a következő Samsung csúcstablet
ma Merőben szokatlan lenne, ha a Samsung nem Qualcomm vagy Exynos szettet használna a prémium termékvonalon, de a Geekbench szerint mégis ez lehet a helyzet a Tab S10+ esetében.
-
Márkaértékben az Apple a legjobb a világon
it Nem csak a piaci értéke alapján lett újra a világ ura az Apple, márkaértékben is almás vállalat a legjobb.
-
Elden Ring - Túl a 25 millión
gp Nagyon sokan beszerezték a játék a megjelenés óta, alig egy hét múlva pedig végre befut a várva várt DLC is.
-
Mobilarena
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
-
Louro
őstag
válasz Sutyi73 #41533 üzenetére
Nem teszteltem, de valahogy így
A célmunkalapra a fejlécet azért átmásolnám első körben és utána futtatnám.Sub GetInfo()
Dim wb As Workbook
Set wb = Activeworkbook
Path = "C:\Temp\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
Range("A2:G"&Activesheet.Usedrange.Rows.Count).Copy _
Destination:=wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").Usedrange.Rows.Count + 1)
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub[ Szerkesztve ]
Mess with the best / Die like the rest