hücre içine içeriğinin üstüne veri eklemek

[musculus]

a1 hücresinde 5.000 sayısı olsun.a1 hücresini seçip 10 yazınca hücrede 5010 olabilir mi acaba ?

 

[musculus]

kendim bir çözüm yolu buldum ama olmadı
b4:c12 hücre içeriğini sayfa aktive edilince f4:g12 yapiştırdım

sonra b4 içeriğinde değişiklik olunca b4 ile f4 'ü toplayıp b4'e yaz dedim ama her iki hücrede de 1 olsa bile 208 çıkıyor 207 fazla nedenini bulamadım

 

[Ömer]

Merhaba,

Linki incelermisiniz..

http://www.excel.web.tr/f50/hucreye-yazd-g-m-say-y-otomatik-toplas-t45085.html

.

 

[musculus]

teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "A1" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End If
End With
End Sub



kodlar işimi gördü yalnız sadece a1 hücresinde işe yarıyor
b4:c12 aralığı yazınca çalışmıyor
b4:c12 aralığında çalışması için ne yazmam gerekiyor

 

[Ömer]

19. mesajda bu istediğiniz vardı, tekrar incelermisiniz..

Sadece Range("E9:E29,F9:F29,J9:J29,K9:K29") bu satırı,

Range("B4:C12") şeklinde değiştirmeniz yeterli olacaktır..

http://www.excel.web.tr/f50/hucreye-yazd-g-m-say-y-otomatik-toplas-t45085/post270965.html

.

 

[musculus]

Her çıkmaz sokağımda aklımın alamıyacağı şiirsel çözümler için teşekkür ederim.