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

• #41509 Fferi50 Topikgazda spe88 #41507

  Új Válasz 2019-08-05 13:22:40 #41509

  Ú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 spe88 #41507 üzenetére

  Szia!
  Egy icipici módosítás kell (amire én sem gondoltam először).
  Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Output" Then Set ThisWorkbook.ASH = ActiveSheet
End Sub
  helyett:
  Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Output" Then Set ThisWorkbook.ASH =sh
End Sub

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