birbirine bağlı hücreler

[mahonyyyy]

sorum şu

c3 hücresi = a2 hücresi * c2 hücresi
c2 hücresi = c3 hücresi / a2 hücresi

c3 hücresine değer girdiğimde c2 hücresini
c2 hücresine değer girdiğimde c3 hücresini otomatik olarak hesaplayan
yani hangisine değer girersem diğerini hesaplasın
bu makroyu nasıl yazarım
teşekkür ederim

 

[Levent Menteşoğlu]

Merhaba

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:2c0ac0704a]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then [c3] = [a2] * [c2]
If Target.Address = "$C$3" Then [c2] = [c3] / [a2]
End Sub
[/vb:1:2c0ac0704a]

 

[mahonyyyy]

oldu hocam cok sağol
teşekkürler

 

[mahonyyyy]

hocam dünkü birbirine bağlı iki hücreyi birbirine bağlı üç hücre olarak nasıl hesaplatabilirim
ekte dosyada olan genel gider+kar % ve genel gider + kar tutarı hücrelerini hesaplatmak istiyorum

B43 = C43 * B8
B43=B42*B40/100
B42= B43/B40 *100
C43=B43/B8
C43=B42*C40/100

yani bu üç hücreden herhangi birini girdiğimde diğer ikisini hesaplasın
bunu yapabilir miyiz

teşekkürler

 

[mahonyyyy]

yardım eden yok muuuuu

 

[mahonyyyy]

allah rızası için yardıııım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a9f7e2b409]Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$42" Then
[B43] = [B42] * [B40] / 100
[C43] = [B42] * [C40] / 100
End If
If Target.Address = "$B$43" Then
[B42] = [B43] / [B40] * 100
[C43] = [B43] / [B8]
End If
If Target.Address = "$C$43" Then [B43] = [C43] * [B8]
Application.EnableEvents = True
End Sub
[/vb:1:a9f7e2b409]

 

[Zeki Gürsoy]

Application.EnableEvents = False

Anlamı nedir?