Application-defined or object-defined error (Başka ve Basit Bir Örnek)

[mpirpanlar]

bir kaç mesaj önce yaşadığım sorunu aktarmaya çalışmıştım. daha basit bir yöntemle tekrar anlata bilmek için bu mesajı gönderiyorum

excel'e eklemiş olduğum bir fonksiyonla formülü yazdığım satır dan sonra belirttiğim değerin alt satırlara yazmasını istiyorum ancak hata meydana geliyor bunun sebebi ile ilgili bilgisi olan varsa ve yardım ederse sevinirim...

Kod örneği

Public Function tekrarET(TekrarSayisi)
Dim actsatir, sonsatir As Integer
On Error GoTo hata
actsatir = ActiveCell.Row
sonsatir = actsatir + TekrarSayisi
For i = actsatir To sonsatir
ActiveSheet.Cells(actsatir + 1, 1) = "qqq"
Next
Exit Function
hata:
MsgBox (Err.Description)
Exit Function
End Function

 

[abinden]

arkadaşım, macrolarda pek iyi değilimdir. ancak, fouctionlarını sub ile değiştirip, parantez içini silince, qqq harflerini aktif satır altına yazdı. Zaten ActiveSheet.Cells(actsatır + 1, 1) = "qqq" bu anlama gelmiyor mu?

Dediğim gibi makro ile aram pek iyi değil ama istersen aşağıdaki gibi bir yaklaşımı deneyebilirsin.

1. formül yazılı son satırı bul (hücre de olabilir)
2. inbox açılır ve yazılması istenen değeri ister
3. inbox açılır ve tekarar sayısı istenir
4. zaten son formüllü hücre bulunmuştu aktif hale de getirlidiyse, girdiğin makro bu işlemi gerçekleştirecektir.