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

• #48941 Magnat veterán bteebi #48927

  Új Válasz 2022-05-02 00:12:31 #48941

  Ú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

  

  Magnat

  veterán

  válasz bteebi #48927 üzenetére

  Szia,

  Set eredmenyek = ActiveSheet.Range("B2:B10,D2:D10,F2:F10")
Vizsgal = false
For Each cella In eredmenyek
If Vizsgal Then
If Abs(Cella - PreCell) < 1 Then
Application.Speech.Speak "Please check", SpeakAsync:=True
Else: Application.Speech.Speak "OK", SpeakAsync:=True
End If
Else
Vizsgal = true
End If
PreCell = Cella
Next

  [ Szerkesztve ]

• #48929 Fferi50 Topikgazda bteebi #48927

  Új Válasz 2022-04-29 17:46:00 #48929

  Ú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

  

  Fferi50

  Topikgazda

  válasz bteebi #48927 üzenetére

  Szia!
  Mi lenne, ha egy kijelölt cellába is beírnád az utolsó cella értékét. Ezután csak ezzel kell összehasonlítani az új bevitel értékét.
  Üdv.

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