İki hücre ortalama değerini başka hücreye otamatik alma

[greenword]

Arkadaşlar, yardımcı olabilirseniz çok sevineceğim. Benim yapmak isteyipte yapamadığım, örneğin D4 hücresi ile D5 hücresine değer girdiğimde bu hücrelerin ortalamasını alıp otamatik olarak A1 hücresine yazması. Ben bunu ancak bir butona tıklayarak yaptırabiliyorum fakat otamatik olarak değer girildiğinde bu işlemi yapmasını makro yazarak beceremedim. Yardım edenlere teşekkürü şimdiden borç bilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D4,D5]) Is Nothing Then Exit Sub
    If [D4] = "" And [D5] = "" Then
    [A1] = ""
    Exit Sub: End If
    [A1] = WorksheetFunction.Average([D4,D5])
End Sub

 

[greenword]

COST_CONTROL ilgine teşekkür ederim. bu soruma ilave olarak aynı sayfada F4 ve F5 hücrelerine girdiğim değerleride C1 hücresine yazacak şekilde devam edebilirmiyim.

 

[Korhan Ayhan]

Selamlar,

Bu durumda kodu aşağıdaki şekilde düzenlemelisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D4,D5,F4,F5]) Is Nothing Then Exit Sub
    If [D4] = "" And [D5] = "" Then
    [A1] = ""
    Else
    [A1] = WorksheetFunction.Average([D4,D5])
    End If
    If [F4] = "" And [F5] = "" Then
    [C1] = ""
    Else
    [C1] = WorksheetFunction.Average([F4,F5])
    End If
End Sub

 

[sinbade]

Cehaletimi bağışlayın...
A1 hücresine =(D4+D5)/2 formülünü girseniz olmuyor mu?
ya da =ORTALAMA(D4;D5) deseniz...?

 

[greenword]

sinbade haklısın, fakat bu yazılan değerler grafik alanında çizim olarak görülüyor ve ben formül girdiğimde grafiğin değer okuduğu son noktada çizgi bir anda aşağılara doru kayıyor, çünkü grafik bir sonraki hücredeki formülü değer olarak görüyor. yinede ilgine teşekkür.

 

[greenword]

COST_CONTROL çok teşekkür işime tam olarak yaradı.