-
GAMEPOD.hu
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 morgusz #38184 üzenetére
A Const utvonal-nál a saját útvonaladat add meg, ügyelve, hogy az utolsó karakter \ legyen.
Sub Masolas()
Dim usorCel, usorFN, FN, Cel As Worksheet
Const utvonal = "D:\Adatok\Morgusz\" 'Itt add meg a saját útvonaladat
Set Cel = ActiveWorkbook.Sheets("Munka1")
Application.ScreenUpdating = False
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If Left(FN, 3) = "xyz" Then
usorCel = Cel.Range("A" & Rows.Count).End(xlUp).Row + 1 'céllap első üres sora
'Fájlok behívása
Workbooks.Open Filename:=utvonal & FN
usorFN = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row 'alsó sor a megnyitottban
Range("A" & usorFN & ":J" & usorFN).Copy Cel.Range("A" & usorCel)
ActiveWindow.Close False 'megnyitott fájl bezárása módosítás nélkül
End If
FN = Dir()
Loop Until FN = ""
Application.ScreenUpdating = True
MsgBox "Kész van az adatok bemásolása", vbInformation, "Értesítés"
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
- World of Warcraft Shadowlands Collectors edition EU EN
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen