Doğru değer yazılmalı

[zırzır]

Arkadaşlar,senet alım-satımı yaptığım bir excel sayfam var,Bu sayfada bazı değişiklikler yapmak istedim fakat olmadı,acil yardımlarınızı bekliyorum.Örnek aşağıdadır.

 

[altanson]

C3 hücresine =AŞAĞIYUVARLA(A3/B3;0) formülünü yazabilirsiniz. Veri doğrulama ile satış sayfasında =AŞAĞIYUVARLA(A3/B3;0) sonucundan daha büyük bir sonuç girilmesini engelleyebilirsiniz, koşullu biçimlendirme ile =AŞAĞIYUVARLA(A3/B3;0) sonucundan daha büyük bir rakam girildiğinde uyarı vermesini sağlayabilirsiniz. Benim aklıma gelenler sadece bunlar.

 

[N.Ziya Hiçdurmaz]

yanıt

Örneği inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
For say = 2 To [b65536].End(3).Row
If Range("c" & say).Value <> Range("a" & say) / Range("b" & say) Then
Range("c" & say) = Range("a" & say) / Range("b" & say)
End If
Next
End Sub

 

[zırzır]

Sayın altanson ilginiz için teşekkür ederim.
Sayın V.Basic For Applications,gerekli düzenlemeyi ekteki sayfada yaptım.