Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    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

  • #44996 zsolti_20 senior tag Delila_1 #44995
    Új Válasz #44996
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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