Değer girildiğinde sutundaki verileri çarpma

[kemal turan]

merhaba,
aşağıdaki kodumuz f sutununa bir değer girildiğinde G sutununa e sutunu il f sutununu çarpıyor sonucu yazıyor.
Sonucu formül çubuğunda örnek =E5*F5 şeklinde gösteriyor.Bunun değer olarak görülmesine ihtiyacım var.Yani Value komutunu nereye koyacağımı bulamadım.
Yardımlarınızı bekliyorum.
Teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son
If Intersect(Target, Range("f2:f" & Rows.Count)) Is Nothing Then Exit Sub

With Target
Cells(.Row, "g") = "=e" & .Row & "*f" & .Row & ""
End With
son:
End Sub

 

[Orion1]

merhaba,
aşağıdaki kodumuz f sutununa bir değer girildiğinde G sutununa e sutunu il f sutununu çarpıyor sonucu yazıyor.
Sonucu formül çubuğunda örnek =E5*F5 şeklinde gösteriyor.Bunun değer olarak görülmesine ihtiyacım var.Yani Value komutunu nereye koyacağımı bulamadım.
Yardımlarınızı bekliyorum.
Teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son
If Intersect(Target, Range("f2:f" & Rows.Count)) Is Nothing Then Exit Sub

With Target
Cells(.Row, "g") = "=e" & .Row & "*f" & .Row & ""
End With
son:
End Sub

Buyurun.

With Target
Cells(.Row, "g") = "=e" & .Row & "*f" & .Row & ""
[B][COLOR="Red"]cells(.row,"g").value=cells(.row,"g").value *1[/COLOR][/B]

 

[kemal turan]

Buyurun.

With Target
Cells(.Row, "g") = "=e" & .Row & "*f" & .Row & ""
[B][COLOR="Red"]cells(.row,"g").value=cells(.row,"g").value *1[/COLOR][/B]

Sn Orıon merhaba,
Bulmacayı aşağıdaki şekilde çözdüm.:mutlu:
With Target
Cells(.Row, "g").Value = Cells(.Row, "e").Value * Cells(.Row, "f").Value
Teşekkür eder haayırlı akşamlar dilerim.
Selametle kalınız.

 

[Orion1]

Sn Orıon merhaba,
Bulmacayı aşağıdaki şekilde çözdüm.:mutlu:
With Target
Cells(.Row, "g").Value = Cells(.Row, "e").Value * Cells(.Row, "f").Value
Teşekkür eder haayırlı akşamlar dilerim.
Selametle kalınız.

Tebrikler.