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

• #33382 Fferi50 Topikgazda HREH #33381

  Új Válasz 2016-12-08 22:27:04 #33382

  Ú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 HREH #33381 üzenetére

  Szia!

  A Thisworkbook kódlapjára másold be:
  Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Type = xlWorksheet Then Range("A1").Select
End Sub
  Ez minden esetben, amikor az aktívvá válik egy munkalap, az A1 cellára viszi a kurzort.
  Ne feledd, hogy makróbarát (xlsm) munkafüzetként kell menteni.

  Ha viszont csak egyszer szeretnéd áttenni a kurzort, akkor ezt a makrót futtasd le:
  Sub allitja()
Dim sh As Worksheet, ii As Integer
Application.ScreenUpdating = False
ii = ActiveSheet.Index
For Each sh In Worksheets: sh.Activate: sh.Range("A1").Activate: Next
Sheets(ii).Activate
Application.ScreenUpdating = True
End Sub

  Végigmegy a munkalapokon és mindenütt az A1 cellára állítja a kurzort.
  Ezt beteheted egy munkalap kódlapjára, vagy egy általános modulra, majd a futtatás után törölheted a kódot tartalmazó munkalapot és mentheted makró nélkül.

  Üdv.

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