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

• #5953 Pulsar veterán Fire/SOUL/CD #5952

  Új Válasz 2010-01-08 23:50:33 #5953

  Ú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 Fire/SOUL/CD #5952 üzenetére

  szóval most így néz ki a makró, de nem fut le. Mint bénáztam el?

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

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