אימות נתונים לאחר שינוי ערך בטבלת מקור

[avrahamlevi534]

השאלה בקובץ המצורף.
תודה על המענה.

 

[iyyi2]

השאלה בקובץ המצורף.
תודה על המענה.

מקרו האירוע הבא בגיליון 1 יבצע את העבודה

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([d2:d8], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
NewValue = Target
Application.Undo
OldValue = Target
Target = NewValue
For Each c In [b2:b9]
    If c.Value = OldValue Then c.Value = Target
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

המקרו נמצא בקובץ המצורף

 

[avraham532]

מקרו האירוע הבא בגיליון 1 יבצע את העבודה

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([d2:d8], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
NewValue = Target
Application.Undo
OldValue = Target
Target = NewValue
For Each c In [b2:b9]
    If c.Value = OldValue Then c.Value = Target
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

המקרו נמצא בקובץ המצורף

תודה רבה לכם על ההפניות (-: הבעיה נפתרה באמצעות הקוד הנ"ל.

 

[מיכאל אבידן]

השאלה בקובץ המצורף.
תודה על המענה.

למיטב ידיעתי, רק בעזרת מקרו אירוע (בשפת התכנות VBA)

חפש ב"גוגל" אודות: Automatically change validated entries when source changes