Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #33382 Fferi50 Topikgazda HREH #33381
    Új Válasz #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