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

• #25355 m.zmrzlina senior tag alfa20 #25354

  Új Válasz 2015-02-06 15:26:46 #25355

  Ú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

  

  m.zmrzlina

  senior tag

  válasz alfa20 #25354 üzenetére

  Ez a megoldás nem foglalkozik azzal, hogy milyen nevet kapott a "keresztségben" az új munkalap egyszerűen a sorban a második munkalappal végzi a műveletet:

  Sub ful_torol()
  
  regi = ActiveSheet.Name
  Sheets(regi).Copy After:=Sheets(1)
  Sheets(2).Name = "leotom"
  
  'makró... blabla
  
  Sheets("leotom").Select
  Application.DisplayAlerts = False
  ActiveWindow.SelectedSheets.Delete
  Application.DisplayAlerts = True
  
  End Sub

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