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

• #4901 Fehér Mancs tag VANESSZA1 #4897

  Új Válasz 2009-05-06 10:43:38 #4901

  Ú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

  

  Fehér Mancs

  tag

  válasz VANESSZA1 #4897 üzenetére

  Ha automatikusan szeretnéd nézni ezt, akkor a timer-rel is lehet operálni (Fire-től loptam :

  Workbook_open-nél beindítjuk a folyamatos figyelést:

  Private Sub Workbook_Open()
  Call check_date
  End Sub

  Majd egy új modulba betesszük az ellenőrző-figyelmeztető kódot:

  Sub check_date()
  
  For Each a In Columns(1).Cells
  If VarType(a) = vbDate Then
  If a <= Now() Then
  MsgBox ("Figyelmeztetés!")
  Exit For
  End If
  End If
  Next a
  Application.OnTime Now + TimeSerial(0, 10, 0), "check_date", , True
  
  End Sub

  (Ez most az 1 oszlopot nézi és 10 percenként ellenőriz, azt nézi, hogy az adott oszlopban szereplő dátumok mindegyike magasabb-e a mostaninál.)

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