Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
şu kodu sayfa1 in kod kısmına kopyalayıp denermisiniz..
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("m8:m1000")) Is Nothing Then Exit Sub
If Target <> "" And Target <> Target.Offset(-1, 0) Then
Target.Offset(0, 2) = (Target - Target.Offset(-1, 0)) * Target.Offset(-1, -10) / 1000000
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.