انجام شدن اتوماتيک کد پس از ويرايش يک سل

[Ali Parsaei]

سلام، مي خواهم اگر در A1 حرف A تايپ شد، محتواي B1 پاک شود. کد زير کجاش غلط است!!!؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = "A" Then
        Range("B1").Value = ""
    End If
End Sub 

[Nima]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Sheets(1).Range("A1").Value = "A" Then
        Sheets(1).Range("B1").Value = ""
    End If
End Sub

[misammisam]

سلام
بنظر ميرسه ايراد از اين قسمت سلكشن خود اكسل باشه :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

مثلا توي دكمه ميزاري درسته !!!!!
واقعا چرا اينطوريه !!!!!!!!!

[امين اسماعيلي]

با درود
ببین این مورد به درد میخوره

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  
 If Target.Address = "$A$1" Then
 If Target.Value = "A" Then
        Range("B1").Value = ""
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  
 If Target.Address = "$A$1" Then
 If Target.Value = "A" Then
        Range("B1").Value = ""
    End If
End If
End Sub

هر چند پیشنهاد من اینه که رو سل b1 هم بزار چون ممکنه تو سل A1 باشه و شما B1 رو تغییر بدی ولی پاک نمیشه در این کد چون تغییرات رو ورودی A1 لحاظ شده .

[Javid Mokhtari]

سلام، مي خواهم اگر در A1 حرف A تايپ شد، محتواي B1 پاک شود. کد زير کجاش غلط است!!!؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = "A" Then
        Range("B1").Value = ""
    End If
End Sub 

با سلام.
کد شما مشکلی ندارد با این ایراد که کد به بزرگی یا کوچکی حروف حساس است. یعنی اگر a بنویسید کد اجرا نمی شود باید خود A را بنویسید.