- Milyen routert?
- Crypto Trade
- Szabadulnak a kínai eszközöktől az amerikai szolgáltatók, de ez sokba kerül
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Bittorrent topik
- A franciáknak elege van abból, hogy minden gyerek mobilozik
- Gmail
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Apple Mac OS X
- Reklámblokkolók topikja
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz smallmer #3005 üzenetére
Vidd be az utvonal állandóba a saját útvonaladat, a *****-os sorban meg add meg a sablon fájlod-, és a benne lévő makró nevét.
Mivel sok fájlról van szó, hogy ne unatkozz közben, a státuszsorban kiírja 10 darabonként a másolások számát.Sub osszemasolo()
Dim FN As String, i As Integer
Dim FD, utvonal As String
Const utvonal = "D:\Főmappa\almappa\" 'jöhet a megnyitás, másolás"
ChDir utvonal
FN = Dir("*.xlsx")
Do While FN <> ""
i = i + 1
Workbooks.Open Filename:=FN, ReadOnly:=True
MsgBox "Itt másolgatunk", vbInformation
'A már kész makrót itt hívhatod meg: workbook("sablon_fájl.xltx").makró_neve *****
Workbooks(FN).Close False
FN = Dir()
If i Mod 10 = 0 Then Application.StatusBar = "Másolva: " & i & "db fájl!"
Loop
Application.StatusBar = False
MsgBox "Befejeződött az összemásolás", vbInformation, "Fájlok összemásolása"
ActiveWorkbook.Save
' ActiveWorkbook.Close
End SubProgramozó: 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
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Milyen routert?
- Milyen billentyűzetet vegyek?
- Mercedes topic
- Autós topik
- Crypto Trade
- LEGO klub
- Szabadulnak a kínai eszközöktől az amerikai szolgáltatók, de ez sokba kerül
- Amlogic S905, S912 processzoros készülékek
- Bugok, problémák a PROHARDVER lapcsaládon
- További aktív témák...
- Acer játékra is,15,6", FullHD,6.gen.core i7,GT940 4!!/6GB VGA,8GB Ram,SSD+HDD,jó akku
- Dell Latitude E7470 - i7 6600U / 8-16GB RAM - számla, 6 hó garancia
- Eladó Fanatec Csl dd 8nm
- X1 Nano Gen 1 13" 2K IPS i5-1130G7 16GB 256GB NVMe magyar vbill ujjolv IR kam gar
- IPhone 11 Pro 64GB gyári független ÚJ akku 100%
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest