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

• Delila_1 veterán

  #22912

  #22910 greenface

  2014-08-14 11:23:45

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #22910 greenface

  Mint kiderült, nem is volt jó a kód. Az Exceledben a bővítményeknél jelöld be a két, Analyzis kezdetűt, hogy a VB szerkesztő megismerje az egyes utasításokat.

  Sub Erteket_Beilleszt()
  Dim FN As String
  Const utvonal = "C:\Adatok\Alkönyvtár\"
  Application.DisplayAlerts = False
  
  ChDir utvonal
  FN = Dir(utvonal & "*.xlsx", vbNormal)
  
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=utvonal & FN
  
  Muvelet FN
  
  ActiveWorkbook.Save
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Application.DisplayAlerts = True
  End Sub

  Ezt kell indítanod, az egyes fájlok behívása után elindítja a Muvelet makrót, ami az értékek beillesztését végzi.

  Sub Muvelet(FN)
  Dim cella As Range
  
  For Each cella In Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18")
  cella = cella.Value
  Next
  
  For Each cella In Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14")
  cella = cella.Value
  Next
  Sheets("Munka1").Delete
  End Sub

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