Ayrı aralıkta farklı kod çalıştırma

[arzum2000]

Aşağdaki makroda [b46:j46] arasına yazdığım makro çalışmıyor başka nasıl yazabiliriz acaba ilk etabta sadece target.value yi hesaplıyorken sorun yok ancak tekrar b46:j46 arasında bir işlem yapınca makro çalışmıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B23:J45]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = CDbl(((Cells(8, Target.Column).Value) * CDbl(Cells(9, Target.Column).Value) _
* CDbl(Cells(10, Target.Column).Value) / 1000000000)) * Target.Value
[b46:j46] = Target.Value / (Cells(8, Target.Column).Value) * (Cells(9, Target.Column).Value) _
* (Cells(10, Target.Column).Value) / 1000000000
Application.EnableEvents = True
End Sub

 

[Ömer]

Merhaba,

Bu şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, [B23:J45]) Is Nothing Then
Target.Value = CDbl(((Cells(8, Target.Column).Value) * CDbl(Cells(9, Target.Column).Value) _
* CDbl(Cells(10, Target.Column).Value) / 1000000000)) * Target.Value
End If
If Not Intersect(Target, [B46:J46]) Is Nothing Then
Target.Value = Target.Value / (Cells(8, Target.Column).Value) * (Cells(9, Target.Column).Value) _
* (Cells(10, Target.Column).Value) / 1000000000
End If
Application.EnableEvents = True
End Sub

.