rakamları makro ile toplama

[sirkülasyon]

A1 hücresinde rakam yazılı.(2.596,34 gibi) Düğme yardımı ile aktar yapınca E1 hücresine (2.596,34) yazacak.
İkinci defa aktarma yapınca E1 hücresine (2.596,34+2596,34) yazacak.
Üçüncü ve sonra ki tüm aktarmalarda "+" diye ekleyerek devam edecek
Böyle bir makroya ihtiyacım var.
Yardımcı olabilir misiniz?

 

[Ömer BARAN]

Merhaba.

-- Toplama işleminin sonucunu E1 hücreye yazdırmak için;

[E1] = [E1] + [A1]

-- Metin olarak (2.596,34+2596,34) gibi yazdırmak için ise;

[E1] = "(" & Format([A1], "#,##0.00") & "+" & Replace(Replace([E1], "(", ""), ")", "") & ")"

gibi olması lazım. Yeni eklenenin sola ekleneceğini varsaydım.

 

[lark]

Macro ile

Sub ilave_toplam()
   
    Range("E1").Select
    eski = Range("e1").Formula
    If eski = "" Then
    eski = "="
    End If
   
    ilave = Range("a1").Value
   
    ActiveCell.FormulaR1C1 = eski & "+" & ilave
   
End Sub

 

[sirkülasyon]

Ömer Bey ve Lark bey
Her ikinize de teşekkür ederim.
Yukarıda makroyu A1:A367 E1:E367 aralığında kullanılacak şekilde zamanınız olursa revize edebilir misiniz?

 

[sirkülasyon]

konu güncel

 

[Ömer BARAN]

Tekrar merhaba.
İstediğiniz;
-- matematiksel toplama ise mavi satırı,
-- verileri aralara + ekleyerek birleştirmek ise kırmızı satırı
kullanın, ancak diğer renkli satırı silin.
.

[FONT="Arial Narrow"]For satır = 1 To 367
[COLOR="Blue"]    If Cells(satır, "A") <> "" Then Cells(satır, "E") = Cells(satır, "E") + Cells(satır, "A")[/COLOR]
[COLOR="Red"]    If Cells(satır, "A") <> "" Then Cells(satır, "E") = "(" & Format(Cells(satır, "A"), "#,##0.00") & "+" & Replace(Replace(Cells(satır, "E"), "(", ""), ")", "") & ")"[/COLOR]
    Cells(satır, "A") = ""
Next[/FONT]

 

[sirkülasyon]

Ömer Bey
Formül çubuğunda (değer+değer+değer) şeklinde görünüp de hücrede toplam değer şeklinde olabilir mi?
Neden derseniz hücrenin genişliği (değer+değer+değer) olunca bayağı büyüdü.
Onun haricinde bir sıkıntı yok.

Yardımlarınız için de teşekkür ederim

 

[Ömer BARAN]

Bildiğim kadarıyla mümkün değil,
bence (değer+değer+değer) şeklindeki yapıyı F sütununa alıp,
matematiksel toplamı da E sütununa aldırmak en pratik şey olur.
Böylece E sütununda toplam değeri, F sütununda da bunların hangi sayıların toplamı olduğunu görmüş olursunuz diye düşünüyorum.
.

[FONT="Arial Narrow"]For satır = 1 To 367
    If Cells(satır, "A") <> "" Then
        Cells(satır, "[B][COLOR="Blue"]E[/COLOR][/B]") = Cells(satır, "[B][COLOR="Blue"]E[/COLOR][/B]") + Cells(satır, "A")
        Cells(satır, "[B][COLOR="Blue"]F[/COLOR][/B]") = "(" & Format(Cells(satır, "A"), "#,##0.00") & "+" & Replace(Replace(Cells(satır, "[B][COLOR="Blue"]F[/COLOR][/B]"), "(", ""), ")", "") & ")"
        Cells(satır, "A") = ""
    End If
Next[/FONT]

 

[sirkülasyon]

Ömer Bey
Ellerine sağlık. Çok çok teşekkür ederim.
Hakkınızı helal edin

 

[YUSUF44]

Aşağıdaki gibi dener misiniz:

Sub toplam()
For i = 1 To 367
    If Cells(i, "E") = "" Then
        Cells(i, "E").Formula = "=" & Cells(i, "A")
    Else
        Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & Cells(i, "A")
    End If
Next
End Sub

 

[Ömer BARAN]

Ömer Bey
Ellerine sağlık. Çok çok teşekkür ederim.
Hakkınızı helal edin

Estağfurullah.

Hekimhan'a selam olsun.
.

 

[sirkülasyon]

Yusuf Bey

Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & Cells(i, "A")

Kısmında hata var. DEBUG değil de END ile devam edersem Hata kısmında toplama yapıyor. Ama yukarıda arz ettiğim kod hata veriyor.

 

[YUSUF44]

Bende hata vermemişti. Hatalı haliyle bir örnek dosya yüklerseniziyi oolu.

 

[sirkülasyon]

Yusuf Ustam
Dosya ekte

 

[YUSUF44]

367'ye kadar demiştiniz ama 10-367. satırlar boş. Boş olduğu için bu hata oluşuyor. Kodu aşağıdaki gibi değiştirin, boş hücre kontrolü yapıyor:

Sub toplam()
For i = 1 To 367
    If Cells(i, "A") = "" Then GoTo 10
    If Cells(i, "E") = "" Then
        Cells(i, "E").Formula = "=" & Cells(i, "A")
    Else
        Cells(i, "E").Formula = Cells(i, "E").Formula & "+" & Cells(i, "A")
    End If
10:
Next
End Sub

 

[sirkülasyon]

ustam sıkıntısız bir şekilde işlem görüyor.
Ellerine sağlık