Çözüldü Sütun içerisinde seçilen verilerin ortalamalarını almak

[yesimgurol]

Merhabalar,
E sütununda fare ile seçmiş olduğum hücrelerdeki verilerin,
- seçim yaptığım ilk hücre sırasındaki H sütununa seçilen verilerin ortalaması,
- seçim yaptığım ilk hücre sırasındaki I sütununa seçilen verilerin standart sapması,
- seçim yaptığım ilk hücre sırasındaki j sütununa seçilen verilerin %bağıl standart sapma değerlerini (standart sapma / ortalama * 100) almak istemekteyim.

Şİmdiden ilginize teşekkür ederim.

Örnek dosyam ;

İndir deneme1

Dosyayı indir deneme1

dosya.co

 

[DoğanD]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Range("H5:J5").ClearContents
On Error GoTo son
Range("H5") = WorksheetFunction.Average(Target)
Range("I5") = WorksheetFunction.StDev(Target)
Range("J5") = Range("I5") / Range("H5") * 100
End If
son:
End Sub

 

[yesimgurol]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Range("H5:J5").ClearContents
On Error GoTo son
Range("H5") = WorksheetFunction.Average(Target)
Range("I5") = WorksheetFunction.StDev(Target)
Range("J5") = Range("I5") / Range("H5") * 100
End If
son:
End Sub

Doğan bey merhaba, çok teşekkür ederim. İstediğim şekilde oldu. Emeğinize sağlık.