Ú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

• #2098 matekmatika tag ssrobi #2097

  Új Válasz 2007-03-19 20:09:36 #2098

  Ú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

  Találkoztam már többször én is ezzel a hiányosságával az vb-nek. Tartományt nem tud kezelni közvetlenül, de ha beszúrsz egy modult és a tartomány kijelölést, valamint a másik munkalapon a beillesztést az ott lévő függvényben vagy eljárásban végezteted el akkor működni fog.
  
  Tehát ahol a kódod van ott Insert-module. Majd itt a modulon végezteted el a tartomány kijelölés-másolás-beillesztést.
  
  Sub akarmi()
  Windows(''munkafüzet1.xls'').Activate
  Columns(''A:A'').Select
  Selection.Copy
  Windows(''munkafüzet2.xls'').Activate
  cells(1,1).select
  activesheet.paste
  end sub
  
  Az eredeti kódod helyén pedig egyszerűen maghívod az akarmi-t. Így:
  akarmi
  
  Ha nem megy írj megcsinálom.
  
  [Szerkesztve]

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