2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #2868 Delila_1 veterán picsu #2866
    Új Válasz #2868
    Ú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 picsu #2866 üzenetére

    Szia!
    Ezt a makrót vidd be a teszt.xls-edbe:

    Sub Adatok()
    utvonal = "E:\Eadat\"
    sor = 2
    Do While Cells(sor, 1) <> ""
    fnev = Cells(sor, 1) & ".xls"
    funev = utvonal & Cells(sor, 1)
    Workbooks.Open Filename:=funev
    ActiveWindow.ActivatePrevious
    Cells(sor, 2).Select
    ActiveCell.Formula = "=INDIRECT(""[" & fnev & "]Munka1!B3"")"
    Cells(sor, 3).Select
    ActiveCell.Formula = "=INDIRECT(""[" & fnev & "]Munka1!C6"")"
    Cells(sor, 4).Select
    ActiveCell.Formula = "=SUM(INDIRECT(""[" & fnev & "]Munka1!E1:E7""))"
    Range(Cells(sor, 2), Cells(sor, 4)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.ActivateNext
    ActiveWindow.Close
    sor = sor + 1
    Loop
    End Sub

    A 2. sorban az útvonalat írd át a saját útvonaladra, és ha a füzeteknek nem a Munka1 lapjáról kell beolvasni az adatokat, írd át mind a 3 helyen azt is az ActiveCell.Formula kezdetű sorokban. Jó munkát.

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