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

• #717 lapa veterán cortez25 #716

  Új Válasz 2005-11-23 21:41:23 #717

  Ú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

  válasz cortez25 #716 üzenetére

  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