Kodlamadaki hata

[recepkull]

Arkadaşlar bu koddaki yapmak istediğim, seçili hücrenin satır sayısını 10 ile çıkar 2 ye böl, sonuç ondalık sayı ise aşağıya yuvarla, 1 den küçük ise BC7 hücresini boş bırak değilse sonucu BC7 hücresine yaz. Bu kod, aşağıya yuvarla fonksiyonunu ekledikten sonra hata vermeye başladı. Rica etsem sorunu çözmekten ziyade neden hata verdiğini açıklayıcı bir şekilde anlatabilir misiniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kaçıncı = WorksheetFunction.RoundDown((ActiveCell.Row - 10) / 2)
If Kaçıncı < 1 Then
Range("BC7").Value = " "
Else
Range("BC7").Value = Kaçıncı & ". Sırayı yazdır"
End If
End Sub

 

[Ömer]

Merhaba,
Yuvarlama ölçütünü yazmamışsınız.
WorksheetFunction.RoundDown((ActiveCell.Row - 10) / 2, 0) ben sıfır yazdım. Siz kendinize uyarlarsınız.

Not: Soru başlıklarını konu içeriğini ifade edecek şekilde belirlemeye özen göstermenizi rica ederim.

.

 

[recepkull]

????????‍ Teşekkür ederim Ömer hocam.