yine hücreye sayı girince yanındaki ile toplasın sorusu

[melphisto]

Arkadaşlar merhaba,
A sütununda herhangi bir hücreye sayı yazdığım zaman yanındaki hücredeki sayının üzerine ilave etsin istiyorum. mesela B1'de 100 var ben A1'e 20 yazınca B1 hücresi 120 olsun. Buraya kadar kolay, forumda arama yapın diyeceksiniz ama ben B1'nin üzerine tıklayınca =100+20 gibi görmek istiyorum.
ben hep sayı girdikçe B1 hücresi =100+20+50+15.... gibi gidecek.
Yapılabilirmi arkadaşlar?

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
[b1] = "=" & Replace([b1].Formula, "=", "") & "+" & [a1]
End Sub

 

[melphisto]

Arkadaşım eline sağlık, fakat küçük bir sorun var; bu çalışmadı.
formüldeki Address ne işe yarıyor, başka bir yerde tanımlayan bir şey yok. Formül eksik olmasın acaba. ayrıca sanki bana formül sadece =100+20 yapacak sonradan eklenenleri göstermeyecek gibi bir his var içimde ama hadi hayırlısı.

 

[Korhan Ayhan]

Selamlar,

Sn. leventm beyin önerdiği kod gayet güzel çalışıyor. Sadece küçük bir eklenti yapmak gerekiyor. Ondalıklı rakamlarda sıkıntı yaratıyordu. Aşağıdaki şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = "" Or Target = 0 Then Exit Sub
    Target.Offset(0, 1) = "=" & Replace(Target.Offset(0, 1).Formula, "=", "") & "+" & Replace(Target.Value, ",", ".")
End Sub

 

[melphisto]

Sayın leventm ve COST CONTROL, kusura bakmayın ama ben yanlış bir şeymi yapıyorum, ondalık sayı önemli değil zaten adetler üzerinde kullanacağım ama bende hiç tepki vermiyor. kodu sayfanın kod sayfasına kopyaladım. yapacakta başka bir şey yok sanırım. nerede hata yapıyorum ne yapmam gerekiyor. ekte dosyayı ekliyorum.

 

[melphisto]

Arkadaşlar kusura bakmayın ne olur, excelimde bir problem olmuş sanırım. kapatıp açınca düzeldi. ellerinize sağlık tam istediğim gibi çalışıyor. yardımlarınız için çok teşekkürler