Üzerine toplama

[serif11]

Arkadaşlar selam.
E3 hücresine manuel olarak rakam giriyorum.
İsteğim şu:
Hücrede rakam varken (örneğin;200) üzerine 5 yazdığımda bu ikisini toplasın ve hücre değerini 205 yapsın.
Şimdiden teşekkürler.

 

[systran]

tam olarak hücrenin kendi üzerine toplama olur mu bilmem ama şunu deneyin.
1- Excel seçenekleri Gelişmiş --> ENTER basınca aşağıya taşı işaretini kaldırın.
2-Excel seçenekleri --> formüller --> Hesaplamalar bölümünde Yinelemeli hesaplamayı etkinleştir. En fazla yineleme seçeneğini 1 olarak seçin.

B1 hücresine =B1+A1 yazın. A1 hücresine yazdıkça ENTER basın B1 hücresindeki değer toplanarak artar.

 

[PLİNT]

Merhaba
Alternatif olarak kodlarlada şöyle olabilir:
(İlgili sayfanızın kod sayfasına)

[SIZE="2"]Dim tp As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
If Target.Column = 5 And IsNumeric(Target.Value) = True Then tp = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column <> 5 Then Exit Sub
If Target.Address <> "$E$3" Then Exit Sub
On Error GoTo çık
Application.EnableEvents = False
If Target.Value = "" Then tp = Empty
Target.Value = Target.Value + tp
çık:
Application.EnableEvents = True
End Sub[/SIZE]

 

[serif11]

Systran ve Plint arkadaşlarım.
Öncelikle ilgi ve emeğinize teşekkür ederim.
Systran arkadaş. Maalesef öneriniz bana uygun değil.
Plint arkadaş. Kodları yarın deneyip sonucu yazarım.
Sevgiyle kalın

 

[serif11]

Plint arkadaşım.
İşlem tamam. Süperrrrr
İlgine, bilgine, emeğine, yüreğine sağlık.