Makro "Run Time 424" hatası hakkında

[uygaroz]

Makro hatası hakkında

İyi günler dilerim. Çalışma sayfasındaki formülleri hesaplatmak için yapmaya çalıştığım makro aşağıdaki gibidir. Fakat çalışınca ;

"Run Time Error 424 Object Required" ---- Hatası veriyor.

Sizce bunu nasıl düzeltmem gerekli acaba?

Not : Sayfadaki her hangi bir değer değiştiğinde tüm formüllerin ( Makro hesaplamalarının) çalışmasını amaçlıyorum.

Veri Girişi : ekli dosyada
* Siyah arka planlı ve beyaz yazılı hücrelere yapılmaktadır....

Yardımlarınızı rica ederim.
Uygar



Private Sub Worksheet_Calculate()

If Intersect(Target, [h9:V65536]) Is Nothing Then Exit Sub
sat = Target.Row


Cells(sat, "m") = Cells(sat, "I") + Cells(sat, "K") + Cells(sat, "l")

Cells(sat, "w") = WorksheetFunction.RoundUp(Cells(sat, "n") * Cells(sat, "p") + Cells(sat, "t") + Cells(sat, "q") + Cells(sat, "r") + Cells(sat, "s") + Cells(sat, "u"), 0)


Cells(sat, "N") = (((Cells(sat, "h") + 20) / 2) ^ 2 * 3.14 * 7.5 * (Cells(sat, "I") + 30) + ((Cells(sat, "j") + 20) / 2) ^ 2 * 3.14 * 7.5 * (Cells(sat, "k") + Cells(sat, "l") + 225)) / 1000000
Cells(sat, "o") = (((Cells(sat, "h") / 2) ^ 2) * 3.14 * 7.5 * Cells(sat, "I") + ((Cells(sat, "j") / 2) ^ 2) * 3.14 * 7.5 * (Cells(sat, "k") + Cells(sat, "l"))) / 1000000

Cells(sat, "o") = WorksheetFunction.RoundUp(Cells(sat, "o"), 0)
Cells(sat, "ae") = Cells(sat, "n") * Cells(sat, "v")
Cells(sat, "af") = Cells(sat, "v") * Cells(sat, "o")
Cells(sat, "x").Value = Cells(sat, "w") * Cells(sat, "v")

End Sub

 

[uygaroz]

Güncel... yardımlarınızı rica ediyorum

 

[uygaroz]

Hala daha güncel....