makrodaki hata ne demek

[efturgut]

bu şekilde bir hata çıkıyor.ne yapabilirim
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bu bölüm sarı içinde alt taraf
((( ozet.Range(Cells(3, datasayisi + 2), Cells(65536, datasayisi + 2)).ClearContents )))

If Target.Row >= 3 Then
ozet.Cells(Target.Row, "I").Value = "X"
End If
Set islem = data.Columns("A:A").Find(ozet.Cells(Target.Row, 1), lookat:=xlWhole)
deis = Target.Row
End Sub

 

[fedeal]

Merhaba,yazılı makroda öncelikle sayfa tanımlı değil
set ozet=sheets("ozet")
gibi bir satır olmalı en başında
aynı zamanda data sayfası içinde yada
sheets("ozet").Range(Cells(3, datasayisi + 2),
sayfayı yukardaki gibi tanımlamalısınız.
ayrıca tanımlanmış datasayısı adlı değişkenide göremedim makroda
makronun tamamını değil kesit olarak yazdıysanız ufak bir örnek dosyayla açıklamalı olarak eklerseniz daha net yanıt alırsınız.
Saygılar.

 

[efturgut]

sayın fedeal daha yeni başladığım
allah'tan kaydetmemişimde dosyayı kurtardım.ilginiz için tekrar teşekkürler.yeni açmış olduğum konuda yardımcı olursanız sevinirim.dosyayı ekledim.