Makro problemi

[delisey]

Arkadaşlar benim şöyle bir problemim var
A1 hücresinde bir sayısal değer var ben bu hücreyi tıklayıp üstüne bir sayı girişi yaptığımda eski sayı ile yeni girdiğim sayının toplanarak yine A1 hücresine yazılmasını istiyorum. Aşağıdaki gibi bir vb kod yazdım.Ancak problemleri var.Mesela birden çok bir alanı fare ile seçtiğimde hata veriyor yada DEL tuşu ile içi dolu herhangi bir hücreyi sildiğimde A1 hücresine giriş yapmadığım halde bunu toplayarak A1 hücresine ekliyor. Bu kodu hangi şekilde düzelterek muntazam çalışmasını sağlayabiliriz.


Dim sabit As Double
Dim deger As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If deger = True Then Exit Sub
For Each dolgulu In Range("f11")
deger = True
Sayfa1.Range("f11") = sabit + dolgulu
Exit Sub
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each dolgulu In Range("f11")
sabit = Target
Next
deger = False
End Sub

 

[delisey]

Ya arkadaşlar lütfen yardımcı olun,kimsenin bir fikri yokmu acep

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Dim sabit As Double
 
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 0 Then Exit Sub
Application.EnableEvents = False
[a1] = [a1] + sabit
Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then sabit = Target
End Sub

 

[delisey]

Levent Bey, hernangi dolu bir hücreyi seçip delete tuşuna bastığımda bunda da A1 hücresinde gereksiz bir toplama işlemi oluyor.Acaba kullandığım excel sürümü ile mi ilgili yoksa kodda bir eksiklikmi var.Çözemedim gitti

 

[Korhan Ayhan]

Selamlar,

Sn. leventm beyin önermiş olduğu kodu aşağıdaki şekilde değiştirip denermisiniz.

Dim Sabit As Double
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If [A1] = 0 Then Exit Sub
    If Target.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
    [A1] = [A1] + Sabit
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then Sabit = Target
End Sub

 

[delisey]

çok teşşekür ederim.bu haliyle düzgün çalışıyor.Saygılar ,iyi çalışmalar