A1+A2 sayilarini A3 hucresine topladiktan sonra A1 hucresini herseferinde sifir(0)...

[fatihtoska]

merhabalar
bir sorum olacakti simdiden tesekkurler
A1+A2 sayilarini A3 hucresine topladiktan sonra A1 hucresini herseferinde sifir (0) yazdirabilirmiyim

 

[Necdet]

Merhaba,

Makro ile olası.

 

[monelogg]

Ekli dosyayı görüntüle A1 sıfır.rar

İlk defa bir soru cevaplıyorum, hayırlısı...

 

[Korhan Ayhan]

Ekli dosyayı görüntüle 136863

İlk defa bir soru cevaplıyorum, hayırlısı...

Bu tarz katılımları hep bekliyoruz. Tebrikler.

 

[monelogg]

Bu tarz katılımları hep bekliyoruz. Tebrikler.

Teşekkür ederim, elimden geldiğince katılım göstermeye çalışacağım.

 

[YUSUF44]

Alternatif olarak deneye yanıla şunu buldum:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1", "a2")) Is Nothing Then Exit Sub


Sheets("Sayfa1").Range("A3").Value = Range("A1").Value + Range("A2").Value

Application.EnableEvents = False
Range("A1").Value = "0"
Application.EnableEvents = True
End Sub

Sayın moderatörlerim değerlendirirlerse sevinirim.

Bu kodlar A1 veya A2 değiştiğinde a3'e toplam alıp, A1'i 0 yapıyor. Ayrı bir düğmeye gerek yok.

 

[Korhan Ayhan]

Merhaba,

Yusuf bey sizin yönteminizde gayet kullanışlı. Fakat kodlarınızın içinde "Application.EnableEvents = False" komutu masumane gözüksede biraz tehlikeli bir koddur. Çünkü işlemleri donduruyor. Eğer bu kod "False" durumundayken kod hata verirse daha sonraki yapılan işlemler hesaplanmayacaktır. Bu sebeple hata kontrolü eklemekte fayda var.

Bu sebeple aşağıdaki yapı daha uygundur.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
    Range("A3").Value = Range("A1").Value + Range("A2").Value
    If Range("A1") <> 0 And Range("A2") <> "" Then
        Application.EnableEvents = False
        Range("A1").Value = 0
    End If
10 Application.EnableEvents = True
End Sub

 

[YUSUF44]

Teşekkürler.

 

[YUSUF44]

Gerçi arkadaşın amacını bilmiyorum ama şöyle yaparsak daha iyi olur herhalde:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
    Range("A3").Value = Range("A1").Value + Range("A2").Value
    If Range("A1") <> 0 And Range("A2") <> "" Then
        Application.EnableEvents = False
        Range("A1").Select
        Range("A1").Value = 0
    End If
10 Application.EnableEvents = True
End Sub

Böylece, işlem sonunda A1 hücresi seçili olur.

 

[fatihtoska]

tum cevaplariniz icin tesekkurler.