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

  • #38188 Delila_1 veterán morgusz #38184
    Új Válasz #38188
    Ú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

    Delila_1

    veterán

    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 Sub

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