DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 bakmaMerhaba;
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.
Sayın Muygun uzmanım, 11 yıl önce vermiş olduğunuz formülleri kullanıyorum.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.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.