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

• #2099 matekmatika tag ssrobi #2097

  Új Válasz 2007-03-19 20:43:49 #2099

  Ú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

  

  matekmatika

  tag

  válasz ssrobi #2097 üzenetére

  Persze a követkaző formula kicsit elegánsabb. Nem csak azért, mert van benne egy hibakezelés is arra az esetre, ha nem lenne nyitva a másolandó adatokat tartalmazó munkafüzet, hanem mert csak
  
  Sub akarmi()
  On Error GoTo ErrorHandler
  Workbooks(''munkafüzet1.xls'').Activate
  Columns(''A:A'').Select
  Selection.Copy
  Workbooks(''munkafüzet2.xls'').Activate
  Cells(1, 1).Select
  ActiveSheet.Paste
  Exit Sub
  ErrorHandler:
  Workbooks.Open Filename:=''munkafüzet1.xls''
  End Sub

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