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

• #33659 Fferi50 Topikgazda bteebi #33655

  Új Válasz 2017-01-15 15:26:06 #33659

  Ú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

  

  Fferi50

  Topikgazda

  válasz bteebi #33655 üzenetére

  Szia!

  " ha megosztom a munkafüzetet (sokan használnák), akkor nem működik az archiválás, mert - gondolom - az "Archivált" lapon nem tudja megtalálni az utolsó sort."
  Közös használat esetén csak teljes sorokat vagy oszlopokat lehet törölni, cella blokkokat nem, ezért nem működik abban az esetben a makród.
  Range(Sheets("Adatok").Cells(Target.Row, 2), Sheets("Adatok").Cells(Target.Row, 6)).Delete Shift:=xlUp

  sor helyett:
  Sheets("Adatok").Cells(Target.Row, 2).EntireRow.Delete

  Üdv.

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