for döngüsünü değerler eşitlenince durdurma

[laptü]

merhabalar arkadaşlar iki değer eşitleninceye kadar for döngüsü çalışıp,, eşitlenince durmasını istiyorum lütfen yardımcı olun.... saygılarımla...

 

[muygun]

Merhaba

Sub Düğme1_Tıklat()
For a = 1 To Cells(1, 3) Step 0.001
If a <= Cells(1, 3) Then Cells(1, 1) = a
Next a
End Sub

Şeklinde deneyin.
İyi çalışmalar.