Ú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.)

• #4898 Delila_1 veterán VANESSZA1 #4897

  Új Válasz 2009-05-06 06:58:10 #4898

  Ú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 VANESSZA1 #4897 üzenetére

  A makrót a laphoz rendeld: lapfülön jobb klikk, Kód megjelenítése. A kapott üres lapra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target.Value >= Date Then MsgBox "Figyelmeztetés"
  End Sub

  Itt a C (harmadik) oszlop értékeit figyeltetem, a Target.Column = 3 -nál írhatod át. Ha az egész lapot akarod figyeltetni, a Target.Column = 3 And részt hagyd el.

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