- Fűzzük össze a szavakat :)
- Szólánc.
- Bambanő háza tája
- Asszociációs játék. :)
- Nagy "hülyétkapokazapróktól" topik
- Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- PLEX: multimédia az egész lakásban
- Ingyen kellene, de tegnapra
- Ep128Emu felhasználói képeskönyv
- Árnyékos sarok
-
LOGOUT.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
-
zsolti_20
senior tag
válasz
Delila_1 #44995 üzenetére
A legjobb lesz ha bedobom ide a telejs kódrészletet ami a másolásért felel.
Dim xlApp As Application
Dim xlBook As Workbook
Dim Sh As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sFileName)
xlBook.Sheets(6).Range("H4").Copy
xlApp.DisplayAlerts = False
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sh = xlBook.Sheets("Transactions")
Sh.Activate
Range("C339").Select
Sh.Paste
Range("C339").Select
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sFileName)
xlBook.Sheets(6).Range("J5:K20").Copy
xlApp.DisplayAlerts = False
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sh = xlBook.Sheets("Transactions")
Sh.Activate
Range("A342").Select
Sh.Paste
Range("A342").Select
Új hozzászólás Aktív témák
- Xiaomi Mi Box androidos médialejátszó 4K és HDR támogatással
- BMW topik
- Formula-1
- A fociról könnyedén, egy baráti társaságban
- World of Tanks - MMO
- One mobilszolgáltatások
- Riasztó topik
- Milyen légkondit a lakásba?
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Nvidia GPU-k jövője - amit tudni vélünk
- További aktív témák...