Geri Sayma

[mavi674]

Selamlar
Geri sayan bir makroya ihtiyacım vat.
Makroyu çalıştırınca A1 hücresindeki sayı değeri ne ise o değerden eksilerek A1 hücresinde görünerek geri saysın ta ki
U1 hücre değeri 1 ise geri sayma dursun.
Teşekkürler...

 

[mavi674]

yapmaya çalıştım ama makroyu her çalıştırmada 1 eksiliyor.
oysa u1 hücresi 1 olana kadar otomatik geri saysın. Döngüyü yaptıramadım.
Yardımlarınızı bekliyorum.

Sub deneme()
gün = Range("a1")

For i = 1 To 100
    If Range("u1") = 0 Then
        cıkar = gün - 1
       Range("a1") = cıkar
    End If
Next
End Sub

 

[mavi674]

Yaptım

Sub deneme()
For i = 1 To 100
gün = Range("a1")
    If Range("u1") = 0 Then
        cıkar = gün - 1
       Range("a1") = cıkar
    End If
Next
End Sub