İntersect Target

[cocoa35]

Merhaba, aşağıdaki kod içine D615 Eklemek istiyorum nasıl eklemeliyim ne yaptıysam hata verdi

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range([J8: J929], [L8:L929])) Is Nothing Then Exit Sub
'If Intersect(Target, Range("J8:J929", "L8:L929", "D8929")) Is Nothing Then Exit Sub' yapmak istediğim bu ama olmuyor!
(Bu kısma nasıl ( D8929) eklenecek? ne yaptıysam hata veriyor sanırım 2 parantezden fazlasını almıyor)
Application.EnableEvents = False
.
.If Range("J929") = "" Then Range("J929").FormulaLocal = "=(D9)"
.
If Range("L929") = "" Then Range("L929").FormulaLocal = "=(D5)"

If Range("D615") = "" Then Range("D615").FormulaLocal = "=DEKANTÖR!D64" ( Eklenecek satır)

Application.EnableEvents = True
End Sub

 

[Necdet]

Merhaba,
Zaten 2 adet alan eklenmiş, söylediğiniz hücreyi de ekleyin gitsin.

 

[cocoa35]

Şunu denedim ama olmadı!

'If Intersect(Target, Range("J8:J929", "L8:L929", "D8929")) Is Nothing Then Exit Sub'

Application.EnableEvents = False

 

[Necdet]

If Intersect(Target, [D615,J8:J929, L8:L929]) Is Nothing Then Exit Sub