Koşula uyana kadar f9 tuşunu yineleme

[lifecycle]

Merhaba arkadaşlar ben excelde 5 hücrede randombetween komutunu kullanarak sürekli F9 tuşuna basarak 0 ile 2 arası rastgele sayılar üretiyor ve bu sayıların toplamları ne zaman 7 nin üzerine çıktı o değerleri not alıyorum.F9 tuşunu çok hızlı yineleyerek saniyenin 1/10 u gibi sayıların toplamı 7 nin üzerine çıktığında ise durmasını sağlayacak bir kod yazabilir misiniz?

 

[lifecycle]

işin kısacası belli bir hücredeki değer her ne zaman 7 nin üzerine çıktı macro o zaman yinelemeyi durduracak.Emeği geçecek kardeşlerime şimdiden çok Teşekkür Ederim.Allah hepinizin yar ve yardımcısı olsun inşallah

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[baydeniro]

Sayın Korhan Ayhan teşekkürler.

 

[lifecycle]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

Allah senden razi olsun kardeşim tam istediğim gibi olmuş çok teşekkür ederim eline sağlık

 

[lifecycle]

Birşey daha sorabilir miyim Korhan Bey ? Birden fazla koşula uymasını sağlamak için yazmış olduğunuz bu kod'a ne eklemem gerekiyor? Örneğin A8 hücresindeki değer ve A9 hücresindeki değer istediğim koşula uyduğunda gibi...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki yapıyı kullanabilirsiniz.

Sub HESAPLA()
    Do
        DoEvents
        Application.Calculate
    Loop While WorksheetFunction.Sum(Range("A1:A5")) < 8 And Range("A3") = 2 And Range("A4") = 1
End Sub

 

[lifecycle]

Merhaba,

Aşağıdaki yapıyı kullanabilirsiniz.

Sub HESAPLA()
    Do
        DoEvents
        Application.Calculate
    Loop While WorksheetFunction.Sum(Range("A1:A5")) < 8 And Range("A3") = 2 And Range("A4") = 1
End Sub

Harikasiniz Korhan Bey üzerimden çok büyük bir yükü aldınız.Allah da sizin üzerinizden yükü alsın inşallah çok teşekkürler