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

• #2871 Delila_1 veterán picsu #2870

  Új Válasz 2007-12-17 12:51:19 #2871

  Ú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 #2870 üzenetére

  Mondták, igaz, akkor istennőt mondtak. Köszönöm. Itt a javított kiadás hibakezeléssel.

  Sub Adatok()
  utvonal = "E:\Eadat\"
  sor = 2
  Do While Cells(sor, 1) <> ""
  fnev = Cells(sor, 1) & ".xls"
  funev = utvonal & Cells(sor, 1)
  On Error GoTo hiba
  Workbooks.Open Filename:=funev
  If tal = 0 Then
  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
  Else
  Cells(sor, 2) = "Nem létező file"
  End If
  tal = 0
  sor = sor + 1
  Loop
  Exit Sub
  
  hiba:
  Err = 0
  tal = 1
  Resume Next
  
  End Sub

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