Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
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

  • #50167 lappy őstag Pá #50166
    Új Válasz #50167
    Ú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

    lappy

    őstag

    válasz Pá #50166 üzenetére

    Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen <> False Then
    Set OpenBook = Application.Workbooks.Open(FileToOpen)
    OpenBook.Sheets(1).Range("A1:Z200").Copy
    ThisWorkbook.Worksheets("SelectFile").Range("A1").PasteSpecial xlPasteValues
    OpenBook.Close False

    End If
    Application.ScreenUpdating = True
    End Sub
    A Sheet(1) -nél az 1 helyére adhatod meg hogy hányadik munkafüzet legyen
    Még azt nem sikerült megcsinálnom hogy a munkafüzetek közül is lehessen választani
    ezzel bemásolod az adatokat és innen veszed át az indirekt függvényekkel ami kell

Új hozzászólás Aktív témák