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

• #2868 Delila_1 veterán picsu #2866

  Új Válasz 2007-12-16 16:15:34 #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