Makro kodunda yardım.

[kemal turan]

Merhaba,
Aşağıdaki kodumuzun bold olan kısmında yapmak isteyip de yapamadığım şey şey;
D21;D50 arasında veri değiştiğinde G sutununa AN sutunundaki değeri göstersin.
Yardımlarınız için teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
'Sheets(CStr(Target.Value)).Select
On Error Resume Next
If Not Intersect(Target, [c21:c50]) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Target.Offset(0, 1) = ""
Target.Offset(0, 3) = ""
Target.Offset(0, 4) = ""
Else
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Cells(Target.Row, "Aı")
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Cells(Target.Row, "AO")
If Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Cells(Target.Row, "AM")
If Target.Offset(0, 4) = "" Then Target.Offset(0, 4) = Cells(Target.Row, "AN")
End If
End If
Son:
If Not Intersect(Target, [d21:d50]) Is Nothing Then
If Target.Value = "" Then

Target.Offset(0, 3) = ""
Else
If Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Cells(Target.Row, "AN")

End If
End If

End Sub

 

[kemal turan]

makro kodunda yardımçözüldü)

merhaba,
Aşağıdaki şekilde sorun çözüldü.

If Not Intersect(Target, [d21:d50]) Is Nothing Then
Target.Offset(0, 3) = Cells(Target.Row, "d").Value * Cells(Target.Row, "f").Value
End If