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

• #22617 Delila_1 veterán slashing #22616

  Új Válasz 2014-07-26 14:12:37 #22617

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

  Nem próbáltam ki!

  Sub masol()
  Dim O As Integer, usor As Long, oszlop As Integer, FN As String
  
  oszlop = Cells(1, Columns.Count).End(xlToLeft).Column
  For O = 2 To oszlop
  FN = Cells(1, O) & ".xlsx"
  usor = Cells(1, O).End(xlDown).Row
  Range(Cells(2, O), Cells(usor, O)).Copy
  Workbooks.Add
  Range("A1").PasteSpecial
  ActiveWorkbook.SaveAs Filename:="C:\adatokki\" & FN
  ActiveWorkbook.Close
  Next
  End Sub

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