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

• #11926 Delila_1 veterán GoZoL #11925

  Új Válasz 2011-11-08 11:40:07 #11926

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

  Sub Osszevon()
  Const utvonal = "E:\Eadat\Excel fórumok\Próba\" 'Itt írd át az útvonalat
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer
  
  oszlop_gy = 3
  Set WBGy = Workbooks("Gyűjtő.xls") 'Itt írd át a gyűjtő füzeted nevét
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Range("H28:H80").Copy WBGy.Sheets(1).Cells(9, oszlop_gy)
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

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