macro "object riquired" hatası veriyor?

[aybekcan]

merhalar
bu macro "object riquired" hatası veriyor.nedenini anlamadım.yardımcı olabilrimisiniz acaba.
Sub rastgele_tarih()
Dim ilktar As Date
Dim sontar As Date
Dim rastrh As Date
Dim i As Byte

gir = InputBox(prompt:="kaç tarih istiyorsunuz?", Title:="sarih sayısı")
ilktar = 1 / 1 / 2010
sontar = 31 / 12 / 2018
For i = 4 To gir
Set rastrh = Worksheets("sayfa1").Cells(i, 2)
testarih = WorksheetFunction.RandBetween(ilktar, sontar)
rastrh.Value.NumberFormat = "d/m/yyyy"
rastrh = testarih
rastrh.Offset(0, 1).Activate

End Sub

 

[ÖmerBey]

Dim rastrh As Date
.
.
.
Set rastrh = Worksheets("sayfa1").Cells(i, 2)

Tarih olarak tanımladığınız değere hücre ataması yapmaya çalışıyorsunuz.
Bunun dışındaki diğer düzeltmeleri de inceleyiniz.

Sub rastgele_tarih()
Dim ilktar As Date
Dim sontar As Date
Dim rastrh As [COLOR="Red"]Range[/COLOR]
Dim i As Byte

gir = InputBox(prompt:="kaç tarih istiyorsunuz?", Title:="[COLOR="red"]t[/COLOR]arih sayısı")
[COLOR="red"]If gir = "" Then Exit Sub[/COLOR]

ilktar = [COLOR="red"]"[/COLOR]1 / 1 / 2010[COLOR="red"]"[/COLOR]
sontar = [COLOR="red"]"[/COLOR]31 / 12 / 2018[COLOR="red"]"[/COLOR]
For i = 4 To [COLOR="red"]3 + gir[/COLOR]
Set rastrh = Worksheets("sayfa1").Cells(i, 2)
testarih = WorksheetFunction.RandBetween(ilktar, sontar)
rastrh.NumberFormat = "d[COLOR="red"]\[/COLOR]/m[COLOR="Red"]\[/COLOR]/yyyy"
rastrh = testarih
rastrh.Offset(0, 1).Activate
[COLOR="red"]Next[/COLOR]
End Sub

 

[aybekcan]

çok teşekkür ederim.elinize sağlık.