koşullu yeniden hesaplama

[endoox]

arkadaşlar merhaba
bağımsız değişken 20 tane hücre var. bu hücrelerin tamamı 1 olduğunda , c21 hücresinde "ok" yazıyor. değilse " yanlış" yazıyor. ihtiyacım olan şey şu "f9" tuşuna bastığımda "ok" yazana kadar hesaplamanın devam etmesi. başka bir deyişle "ok" yazınca durması. şu anda "ok" yazana kadar tek tek "f9" tuşuna basıyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodu bir modüle kopyalayıp deneyiniz:

Sub hesap()
10:
If [C21] <> "ok" Then
    ActiveSheet.Calculate
GoTo 10
End If

End Sub

 

[endoox]

yeniden otomatik hesaplama

yusuf44 kod için teşekkür ederim. ancak çalışmadı. "f9" tuşuna 1 kez basıyorum ancak eskisi gibi 1 kez hesaplama yapıyor. c21 hücresinde "ok" yazana kadar otomatik hesaplama yapmıyor. teşekkürler

 

[YUSUF44]

F9'a siz basmayacaksınız. Kodu çalıştıracaksınız, ok yazıncaya kadar çalışmaya devam edecek.

 

[YUSUF44]

Eğer F9 tuşuna bastığınızda kod çalışsın istiyorsanız aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırın:

Private Sub Worksheet_Calculate()
10:
If [C21] <> "ok" Then
    ActiveSheet.Calculate
GoTo 10
End If
End Sub

 

[endoox]

yeniden otomatik hesaplama

yusuf44 maalesef kodları çalıştıramadım. belki de ben anlatamadım. teşekkür ederim.

 

[endoox]

yeniden otomatik hesaplama

f9 tuşuna bir kez bastığımda, c21 hücresinde ok yazana kadar hesaplama devam etsin. ok yazdığında dursun. tekrar f9 tuşuna basarsam, yine ok yazana kadar hesaplamaya devam etsin. ilginiz için teşekkürler.

 

[YUSUF44]

İlgili sayfa sekmesine sağ tıklayın ve kod görüntüle deyin
Son verdiğim kodu açılan sayfaya yapıştırın
Çalışma sayfasına geçin ve F9 tuşuna basın

 

[endoox]

yeniden otomatik hesaplama

yusuf44 run-time error method calculate of project worksheetfailed mesajı veriyor. ve çalışmayı durduruyor.

 

[endoox]

yeniden otomatik hesaplama

kod bölümünde ise
If [C21] <> "ok" Then sarı renk bant içinde görünüyor.

 

[YUSUF44]

Bende herhangi bir hata vermiyordu. Ancak şu anda sayfada değişiklik yaptığımda excel donuyor. Yorum yapamayacağım maalesef.

 

[endoox]

yeniden otomatik hesaplama

yardımın için teşekkür ederim. çözmeye çalışacağım.