Sutunlardaki çarpma bölme problemi

[kemal turan]

merhaba,
Aşağıdaki kod başka bir excel çalışma kitabında çalışıyor,
kodu ek dosyaya aldığımda dengesiz çalışıyor.Kafayı yedirtecek:roll::roll::roll:
ek dosyaya bakabilirsiniz.
istenen sutunlar değilde alakasız sutunlardaki işlemlerde çalışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son

If Intersect(Target, Range("E11:F" & Rows.Count)) Is Nothing Then
If Sheets("satış").Range("j1").Value = 1 Then
           Exit Sub
Else
End If
With Target

Cells(.Row, "G").Value = Cells(.Row, "E").Value * Cells(.Row, "F").Value
End With
End If

If Intersect(Target, Range("G11:G" & Rows.Count)) Is Nothing Then
With Target
Cells(.Row, "E").Value = Cells(.Row, "G").Value / Cells(.Row, "E").Value
End With
End If

son:
End Sub

 

[PLİNT]

Merhaba
Dosyanıza bakma imkanım yok ama;
kodların mesela " Range("E11:F" & Rows.Count) " aralığına veri girildiğinde çalışması gerekiyorsa:

If [COLOR="Red"]not [/COLOR]Intersect(Target, Range("E11:F" & Rows.Count)) Is Nothing Then

 

[kemal turan]

Çok teşekkür ederim
Selametle kalınız