Target Kullanımı ile alakalı Hata

[k.guclu]

İyi günler Arkadaşlar,

Target kullanarak yaptığım bir çalışmam var. Fakat A sütünundaki hücrelerden birini tutup aşağı doğru sündürdüğümde

"Run-time error '13': Type mismatch"

hatası veriyor. A sütununa tek tek veri girsem sorun olmuyor.
Bu konuda yardımcı olursanız memnun olurum.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isaret As String
Dim rng1, rng2, rng3 As Range
 
If Intersect(Target, [a:a]) Is Nothing Then
Else
isaret = Target
Set rng1 = Sheets("TANIMLAMALAR").Range("E26:E150").Find(isaret, Lookat:=xlWhole)
Set rng2 = Sheets("TANIMLAMALAR").Range("R26:R150").Find(isaret, Lookat:=xlWhole)
 
Target.Offset(0, 8) = rng1.Offset(0, 1)
Target.Offset(0, 9) = Sonuc + rng4
Target.Offset(0, 4) = Target.Offset(0, 3) * Target.Offset(0, 2)
Target.Offset(0, 7) = Target.Offset(0, 4) * Target.Offset(0, 5) - Target.Offset(0, 6)
Target.Offset(0, 10) = Target.Offset(0, 9) * Target.Offset(0, 8)
Target.Offset(0, 11) = Target.Offset(0, 10) * Target.Offset(0, 7)
End Sub

 

[Recep İpek]

Kodlarınız birden fazla alan seçtiğinizde çalışmayabilir.