Aynı hücredeki rakamların toplamı

[sakoz]

Arkadaşlar merhaba ,

Bir konuda yardımınıza ihtiyacım var.
Mesela ; D6 hücresinin icinde (466+233+315+70+51) degeri yazıyor...Bunu toplatabilecegim bir formül varmıdır.

Tşk.İyi çalışmalar...

 

[sakoz]

Üstadlar bu sorunun cevabı yokmudur...?

 

[Orion1]

En başa = "Eşittir" Koyun.
Formül:
=466+233+315+70+51

 

[Korhan Ayhan]

Selamlar,

Bu işlemin yerleşik fonksiyonlarla yapılacağını zannetmiyorum. İsterseniz aşağıdaki kodlar ile çözüme ulaşabilirsiniz.

1. Kod seçtiğiniz hücrelerde hesaplama işlemini yapar ve sonucu hücreye yazar.

Sub HESAPLA_1()
    For Each Alan In Selection
    If Not IsEmpty(Alan.Value) Then Alan.Value = Evaluate("=" & Alan.Formula & "")
    Next
End Sub

2. Kod seçtiğiniz hücrelerde hesaplama işlemini yapar ve sonucu hücreye formül şeklinde yazar.

Sub HESAPLA_2()
    For Each Alan In Selection
    If Not IsEmpty(Alan.Value) Then Alan.Formula = "=" & Alan.Formula
    Next
End Sub

 

[Necdet]

En başa = "Eşittir" Koyun.
Formül:
=466+233+315+70+51

Sütunu seçip bul değiştir den ( bulunup =( ile değiştirilirse ne formüle ne de makroya gerek kalır

 

[ANTALYA 01]

F

Sayfanın Kod sayfasına yapıştır.Ben bu siteden aldım bu kodu işime yarıyor hücreye girdikçe topluyor.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Application.Intersect(Target, ActiveSheet.Range("A1:IV65536"))
If Not rng Is Nothing Then
AddPreviousValue Target
End If
Set rng = Nothing
End Sub

 

[sakoz]

ilgilenen tüm arkadaşlara çok teşekkür ederim....İyiki varsınız...