Yardım Formülü Koda Çevirme

Merhaba Arkadaşlar; İş Sağlığı ve Güvenliği ile ilgili olarak eğitim süreleri konulu bir tablo oluşturuyorum. Basit formülleri tamamladım, ancak karmaşık bir formülü koda çevirirken zorlandım. Yardımlarınızı bekliyorum.
=EĞER(A2<10;"YOK";EĞER(A2<50;A2*10;EĞER(A2<250;A2*15;EĞER(249<A2;A2*20))))
Böyle bir formül mevcut. "A2" alanı manuel girilen, çalışan personel sayısı.

Sonucu A1'e yazacak şekilde, bu kodları kullanabilirsiniz. İncelerseniz mantığı anlarsınız.

Merhaba; Yardımlarınız için teşekkür ediyorum; Verdiğiniz değerleri girdim, ancak sorgulama çalışmadı maalesef; Dediğiniz gibi A1 gelen yere sonucu girdim, şöyle ki;

Select Case Range("fieldname2")
Case Is < 10
Range("fieldname52") = "YOK"
Case Is < 50
Range("fieldname52") = Range("fieldname2").Value * 10
Case Is < 250
Range("fieldname52") = Range("fieldname2").Value * 15
Case Else
Range("fieldname52") = Range("fieldname2").Value * 20
End Select

ancak sonucu alamadım.

Dosyanızı ekleyin lütfen.

Merhaba; Herhangi bir dosya yok. "Calculated Fields Form" World Press eklentisi içerisinde Diğer Sağlık Personeli için vermiş olduğunuz formülü yazdığımda sonuç boş geliyor.

aşağıdaki linkten giriş yapıp ilgili eklentiden inceleyebilirsiniz; Yardımlarınız için şimdiden teşekkürler

Giriş – İstanbul Vizyon iş güvenliği

Kullanıcı Adı:
H_AKAY
Hk123333.

O eklenti ile ilgili bilgim yok.
Verilen kodlar vba tarafında kullanılabilir.