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

• #22624 Delila_1 veterán slashing #22623

  Új Válasz 2014-07-26 15:10:19 #22624

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

  Ímé:

  Sub masol()
  Dim oszlop As Integer, usor As Long, Uoszlop As Integer, FN As String
  
  Uoszlop = Cells(4, Columns.Count).End(xlToLeft).Column
  For oszlop = 2 To Uoszlop
  FN = Cells(4, oszlop) & ".xls"
  usor = Cells(4, oszlop).End(xlDown).Row
  Range(Cells(5, oszlop), Cells(usor, oszlop)).Copy
  
  Workbooks.Open "C:\adatokki\" & FN
  Sheets("Data Entry").Activate
  usor = Range("D" & Rows.Count).End(xlUp).Row + 1
  If usor < 12 Then usor = 12
  Range("D" & usor).PasteSpecial xlPasteAll
  ActiveWorkbook.Save
  ActiveWorkbook.Close
  Next
  End Sub

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