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

• #3631 Delila_1 veterán FehérHolló #3628

  Új Válasz 2008-06-06 16:31:45 #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