Lütfen yardımcı olur musunuz

[oguzhansanma]

Merhabalar. Benim şöyle bir ricam olacaktı.

D2'den itibaren Dsonsuza kadar giden bütün hücreler için ve E2'de itibaren Esonsuza giden bütün hücreler için yapılması gerek.

D2 hücresinde kdvsiz fiyat yazıyor, E2 hücresinde ise kdv dahil fiyat.

d2 hücresindeki sayı e2 hücresinde d2*1,18 olarka yazılsın istiyorum. buraya kadar sıkıntı yok bu normal bir çarpma işlemi ancak istediğim şu ki.
Eğer e2 hücresine bir rakam girilse bu sefer e2 hücresindeki rakam d2 hücresinde e2/1,18 olsun.

Yani 2 hücrede de formül olucak ama oralara değer de girmem gerekiyor bunu nasıl yaparım?

Yardımlarınız için şimdiden teşekkürler dostlar iyi ki varsınız..

 

[netcini]

Formul ile bunu yapmanız mümkü değil diye düşünüyorum.

İşlem yapacağınız sayfanın kod kısmına bu kodu eklerseniz, basit şekilde istediğiniz olur

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 1 Then
If Target.Column = 4 Then
Cells(Target.Row, 5) = Target * 1.18
End If
If Target.Column = 5 Then
Cells(Target.Row, 4) = Target / 1.18
End If
End If
End Sub

 

[oguzhansanma]

Ben çok anlamıyorum koda kopyaladım ama bir şey fark etmedi kodu kopyaladıktan sorna ne yapmam lazım?


belgenizin bazı bölümleri belge denetçisi tarafından kaldırılamayan kişisel bilgiler içeriyor olabilir.

hatası veriyor kaydederken kodu

 

[oguzhansanma]

Çok teşekkürler işe yaradı.