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

• #52658 Delila_1 veterán föccer #52657

  Új Válasz 2024-05-21 10:23:32 #52658

  Ú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

  

  Delila_1

  veterán

  válasz föccer #52657 üzenetére

  Ezt találtam, de nem próbáltam:
  
  Makróval törölt adatok visszaállítása
  
  1. elmented a munkalap másolatát:
  Dim sh As Worksheet, msh As Worksheet
  Set sh = ActiveSheet
  sh.Copy after:=Sheets(sh.Index)
  Set msh=ActiveSheet
  msh.Name="Mentett"
  sh.Activate
  
  ha nincs már szükség a mentett munkalapra, akkor
  msh.Delete vagy Sheets("Mentett").Delete
  
  2. ha vissza szeretnéd hozni:
  Dim msh As Worksheet, sh As Worksheet
  Set msh = Sheets("Mentett")
  Set sh = ActiveSheet
  msh.UsedRange.Copy sh.Range(msh.UsedRange.Cells(1).Address)
  

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