makro calisma hatasi

[dennisf06]

merhaba

A sütununa 4+5, 7+12 seklinde yazdiginiz zaman A sütununda 9 P sütununda ikinci rakam olan 5 görünüyor. Ayni sekilde 7+12 A sütunuda 19 olurken P sütununda ikinci rakam olan 12 görülüyor. yani her zaman A sütununda rakamlarin toplamlari P sütununda ikinci rakam görünüyor.

Sorum su;
A sütununa 4+5 yazip sonra sildigim zaman P sütununda hala 5 görünüyor. yani P sütunu sifirlanmiyor. ayrica bir silme islemi yaptiktan sonra makro artik calismiyor. nedenini bir türlü cözemedim. yardimlariniz icin simdiden tesekkür ederim. Saygilarimla.

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde revize ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Dim Bul As Integer
    If Intersect(Target, [A:A, B:B]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
[COLOR=red]    Bul = InStr(1, Target, "+")[/COLOR]
    If Bul = 0 Then
        Target.Offset(0, 15) = ""
    Else
        Target.Offset(0, 15) = Mid(Target, Bul + 1, Len(Target) - Bul + 1)
        Target = "=" & Target
    End If
[COLOR=red]Son:[/COLOR]
    Application.EnableEvents = True
End Sub

 

[dennisf06]

cok tesekkür ederim Sn Ferhat bey. simdi kod tam anlamiyla calisiyor. saglicakla kalin. Saygilarimla.