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

• #6002 Pulsar veterán Delila_1 #5999

  Új Válasz 2010-01-12 17:00:36 #6002

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 #5999 üzenetére

  igen.

  a megnyitás egy részét is nektem kszönhetem:

  Sub masolas_adat()
  
  Dim excel_filename, filename2 As String
  
  excel_filename = ThisWorkbook.Name
  
  Workbooks.Open FileName:="C:\Production_Daily.xls"
  filename2 = ActiveWorkbook.Name
  Columns("A:G").Select
  Selection.Copy
  
  Windows(excel_filename).Activate
  Sheets("IDE_MASOLD").Activate
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Application.CutCopyMode = False
  
  Windows(filename2).Activate
  ActiveWindow.Close
  
  End Sub

  Hova tegyem itt azt a sort? Production_Daily.xls - nek kellene az create time-ja

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