کار کردن میلی ماکرو

[كامران]

سلام خدمت اساتید
من یه ورقه دارم که توی اون 3 ستون A - B - C اطلاعات دارند به این ترتیب که تیون A و C متن و ستون B شامل عدد است من یک ماکرو نوشته ام به شرح زیر که اگر روی ستون B کلیک راست بکنم از عدد اون یکی کم میشه و اگه عدد صفر بشه سلول ستون C متناظرش پاک بشه ماکرو روی کار اول درست کار میکنه ولی روی دومی که کدش رنگی شده بعضی وقتا کار میکنه نعضی وقتا نه
من هم موندم چرا
البته باید بگم یه رویداد هم دارم که با هر تغییر سلول ستونها رو سورت میکنه

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    
        If Target.Column = 2 And Target.Row >= 2 And Target.Row <= 30 Then
            If (Target.Value <> "") And (Target.Value <> 0) Then
                Target.Value = Target.Value - 1
            End If
            If Target.Value = 0 Then Cells(Target.Row, 3) = ""
        End If

end sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.