Koşullu ses çalma formülü isteği

[eserabi]

Merhaba,

Aşağıdaki koşulu yerine getirecek formüle çok ihtiyacım var. Bilen arkadaşların yardımcı olmasını rica ediyorum.

D5 ile D25 arası hücrelerden herhangi biri
F5 hücresindeki değerden 5 eksikse
Ses çal

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
say = 0
For i = 5 To 25
If Cells(i, "d") + 5 = Cells(5, "f") Then say = say + 1
Next i
If say >= 1 Then Beep
Application.ScreenUpdating = True
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[eserabi]

Merhaba;

Sayfanın kod bölümüne;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
say = 0
For i = 5 To 25
If Cells(i, "d") + 5 = Cells(5, "f") Then say = say + 1
Next i
If say >= 1 Then Beep
Application.ScreenUpdating = True
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

Dostum mükemmelsin. Tam istediğim gibi çalıştı fakat ben yanlış belirtmişim. En az 5 eksikse, yani 6 7 8 9 hepsinde çalsa, zahmet veriyorum kusura bakma

 

[muygun]

Merhaba;
Kodları;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
say = 0
For i = 5 To 25
sayı = Cells(i, "f") - 5
If Cells(i, "d") <= sayı Then say = say + 1
Next i
If say >= 1 Then Beep
Application.ScreenUpdating = True
End Sub

Şeklinde değiştirin ve deneyin.
İyi çalışmalar.

 

[izcik]

Merhaba;
Kodları;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
say = 0
For i = 5 To 25
sayı = Cells(i, "f") - 5
If Cells(i, "d") <= sayı Then say = say + 1
Next i
If say >= 1 Then Beep
Application.ScreenUpdating = True
End Sub

Şeklinde değiştirin ve deneyin.
İyi çalışmalar.

Sayın Muygun uzmanım, 11 yıl önce vermiş olduğunuz formülleri kullanıyorum.
Saygılar

 

[muygun]

Syn. izcik;

İşinizi gördüğü sürece çözüm yolu ve zamanın önemi yok.
İyi çalışmalar.

 

[eserabi]

Merhaba;
Kodları;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
say = 0
For i = 5 To 25
sayı = Cells(i, "f") - 5
If Cells(i, "d") <= sayı Then say = say + 1
Next i
If say >= 1 Then Beep
Application.ScreenUpdating = True
End Sub

Şeklinde değiştirin ve deneyin.
İyi çalışmalar.

Çok teşekkür ederim. Duacın olacağım.

 

[mavi674]

Selam
i5:i18 arası hücrelerden herhangi bir hücre değeri 1 olduğu sürece (bu i5=1 veya i10=1 veya i18=1 gibi) otomatik olarak (buton olmadan)
bip çalsın ta ki değerler 0 oluncaya kadar
Şimdiden Teşekkürler...