Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #3631 Delila_1 veterán FehérHolló #3628
    Új Válasz #3631
    Ú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 FehérHolló #3628 üzenetére

    Itt egy kis makró, ami a fájl bezárásakor rákérdez a rendezésre (I oszlop szerint):

    Sub auto_close()
    If MsgBox("Akarod rendezni mentés előtt az adatokat?", vbYesNo) = vbYes Then
    Range("I2").Select
    Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
    ActiveWorkbook.Save
    End Sub

    Fontos, hogy auto_close legyen a neve, mert akkor automatikusan végrehajtódik záráskor.

    Ha még ugyanarról a fájlról van szó, amelyikben B:G oszlopokban van adat, és I-be íródik a dátum, akkor gondoskodni kell a H oszlop kitöltéséről, hogy a rendezésbe belevegye az előző oszlopokat is. Ha üres oszlop van közöttük, csak az I oszlopot rendezi.
    A H-ba, ha egyébként nem lenne ott adat, a targetes makróval íratunk egy pontot. Az
    If (Target.Column >1 kezdetű sor után írd be:
    Cells(8,Target.Column)="."

    Ha nincs fejléced, a Header:=xlGuess-t javítsd át Header:=xlNo-ra.

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