Do While ya da Do Until Loop ile kontrol hakkında macro

[andruil]

Merhaba Arkadaşlar,

Bir döngü yazmak istiyorum.

A1'den A10'a kadar karışık olarak sayılar var 1,3,8,9,11,15,16,20,22,24 gibi.
Bir de B1 hücresinde tek sayımız var.

B1 hücresinde mesela 50 yazıyor diyelim.
- 50 eğer o 10 adet sayı içerisinde yoksa birşey yapmasın excel
- Fakat B1 hücresinde örneğin 9 yazıyor ise kontrol etsin ve listede var ise geri doğru sayarak devam etsin. 9-1 yapıp 8'i bulduğunda listede olduğu için tekrar -1 yapıp 7'yi bulsun ve listede 7 olmadığı için 7 olarak kalsın.

 

[Emir Hüseyin Çoban]

. . .

Bu odev mi.
Do loop ile yapma zorunlulugu nedir.

. . .

 

[andruil]

Hayir odev degil ama ben o sekilde yapilabilecegini varsayip sormustum. Ben istedigimi yapabileceksem farkli sekilde de olabilir tabi ki.

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
    
20:
    If Range("B1") > 0 Then
        
        If WorksheetFunction.CountIf(Range("A1:A10"), Range("B1")) = 0 Then
            GoTo 10
        Else
            Range("B1") = Range("B1") - 1
            GoTo 20
        End If
    End If
    
10:
End Sub

. . .

 

[andruil]

Çok teşekkürler.. Kendime kızıyorum CountIf nasıl aklıma gelmedi diye