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

• #22614 slashing senior tag Delila_1 #22613

  Új Válasz 2014-07-26 13:54:54 #22614

  Ú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

  

  slashing

  senior tag

  válasz Delila_1 #22613 üzenetére

  Nah megpróbáltam beilleszteni ahogy írtad lefut szépen csak egy a bajom hogy addig jelöl ki amíg az A oszlopban adatok vannak. Az A oszlop az tök lényegtelen számomra mindig csak azt az oszlopot kéne nézni ahonnan akar másolni. Az első sorban B2-től vannak a kimenő fájlok nevei file1 file2 ....
  alattuk az adatok.

  Sub adatokkimentese()
  Dim sor, oszlop As Integer
  
  Sheets("teszt").Select
  sor = Range("A" & Rows.Count).End(xlUp).Row
  oszlop = Cells(1, Columns.Count).End(xlToLeft).Column
  
  For Each cell In Range(Cells(1, "B"), Cells(1, oszlop))
  Range(Cells(2, cell.Column), Cells(sor, cell.Column)).Copy
  Workbooks.Add
  Range("A1").PasteSpecial
  
  ActiveWorkbook.SaveAs Filename:= _
  "C:\adatokki\" & cell.Value & ".xlsx"
  ActiveWorkbook.Close
  Next cell
  
  Application.CutCopyMode = False
  End Sub

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