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

• #6009 Pulsar veterán Delila_1 #6005

  Új Válasz 2010-01-12 17:29:14 #6009

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

  ez lett, és működik... köszönöm nektek MESTEREK!!!

  Sub masolas_adat()
  
  Dim excel_filename, filename2, kelt As String
  
  excel_filename = ThisWorkbook.Name
  
  Workbooks.Open FileName:="C:\Production_Daily.xls"
  
  kelt = Workbooks("Production_Daily").BuiltinDocumentProperties("Creation date").Value
  Workbooks(excel_filename).Sheets("Data").Range("A47") = kelt
  
  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

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