Makro ile toplama

[evren_01]

Arkadaşlar başlık için özür dilerim

Konuyu nasıl başlayacağımı bilemediğimdendir.

Soruma gelince aşağıdaki şekilde anlatmak istediklerim . b2 hücresinde belirtilen sabit sayının üzerine a2 hücresine yazılacak olan değeri toplamasını istiyorum bunu makroda nasıl yapabilirim.

Not: bu sabit değer tekrar makro çalıştırıldığında değişkendir.mesala a2 hücresine 10 değerini yazdıımızda b2 hücresinin değeri 10.009,48 olacak tekrar makro çalıştıldığında sabit sayı 10.009,48 olacak

yardımlarınızı bekliyorum arkadaşlar ...

 

[Recep İpek]

Aşağıdaki kodu deneyiniz.

Sub Topla()
[b2] = [b2] + [a2]
End Sub

 

[evren_01]

Değerli kardeşim

Teşekkür ederim yardımın için

Fakat benim aradığım bunu formül olarak göstermek.

Sebebine gelince bir önceki sayının değerini orada görmek istediğimden dosyaları acıp oradan bakmak istemiyorum .

 

[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 Target.Address <> "$A$2" Then Exit Sub
    TOPLA = [A2] + [B2]
    [B2].Formula = "=" & Replace(TOPLA, ",", ".") & "+A2"
End Sub

 

[evren_01]

Değerli kardeşim ellerin dert görmesin
Teşekkür ederim . mükemmel çalışıyor. fakat küçük bir sorun var kuruşlu değerleri topla dediğim zaman makro hata veriyor . tekrar bakabilirseniz sevinirim ...

 

[Korhan Ayhan]

Selamlar,

Kuruşlu değerlere göre üstteki mesajımdaki kodu yeniden düzenledim incelermisiniz.

 

[conari]

Sayın @COST_CONTROL sanırım makro hatalı çalışıyor.

b2 de çıkan sonuç B2+a2+a2 olarak hesaplanıyor.

b2 =10 ise
a2 ye 10 girildiğinde b2=20 olması lazım, ama mükerer toplama sonucu rakam 30 çıkıyor.
bilginize.

 

[Korhan Ayhan]

Selamlar,

Sn. conari,

Bu durumun farkındayım ama arkadaşımız kodu bu şekilde istediği için A2 hücresine son yazılan veriyi özellikle sildirmedim. Bu yüzden kod hem değeri B2 hücresine ekliyor hem de A2 hücresini formül olarak B2 hücresine eklediği için mükerrer işlem yapılmış gibi görünüyor. Eğer A2 hücresindeki değeri silersek durum düzeliyor. Arkadaşımızda zaten mesajında kodun bu haliyle işine yaradığını belirtmiş.

Değerli kardeşim ellerin dert görmesin
Teşekkür ederim . mükemmel çalışıyor. fakat küçük bir sorun var kuruşlu değerleri topla dediğim zaman makro hata veriyor . tekrar bakabilirseniz sevinirim ...

 

[conari]

O kısma dikkat etmemiştim özür:roll: