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

• lapa veterán

  #717

  #716 cortez25

  2005-11-23 21:41:23

  Új Válasz

  Ú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

  

  lapa

  veterán

  #716 cortez25

  #716 cortez25

  Egy naplozó progi, ami 4-5 prcenként naplóz....ennek az adatait mentettem saját excelbe,ami percenként frissít. amikor naplóz magának akkor 1-percen belül hozzám kerül és ha nem a szokásos adat jön akkor jelezzen. ennyi.
  
  [Szerkesztve]

  oké asszem összeraktam. ha jól sejtem vmi adatlekérdezéssel dolgozol. nem csináltam ilyet, de feltételezem megeszi ha frissítéskor adat változik.
  
  1. tábla kinyit
  2. alt+f11
  3. baloldalt this workbook duplaklikk --> jobboldalt fehér
  4. ezt bepastel:
  
  Private Sub Workbook_SheetChange(ByVal ActiveSheet As Object, _
  ByVal Source As Range)
  'A oszlop utolsó feltöltött sorára ugrik
  Cells(1, 1).End(xlDown).Select
  
  'ha nem mindenoké akkor jelez mint az őrkutya
  If ActiveCell.Value <> ''mindenoké'' Then
  MsgBox ''hoppá bibi van.'', vbOKOnly + vbCritical, ''hiba''
  Else
  End If
  End Sub
  
  5. tesztel
  
  ez ráugrik a tábla aktív fülében az A oszlop utolsó feltöltött cellájára (gondolom egymás alá mennek a dolgok), és ha nem ''mindenoké'' van beírva szól. a fenti cucc a tábla minden változásánál lefut.
  
  

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