אקסל - העתקת ערך מתא אחר לתוך תא עם data validation

[amityunger1]

אקסל - העתקת ערך מתא אחר לתוך תא עם data validation

שלום לכולם,
יש לי אקסל המכיל תא עם data validation - שני נתונים בלבד: ON ו- OFF.
צריך שברגע שתא ספציפי אחר מקבל ערך OFF, אוטומטית גם התא עם הרשימה יקבל ערך OFF.
(אם התא האחר יקבל ON, התא עם הרשימה יוכל לקבל ON ו- OFF, כרגיל).

תודה רבה!

 

[iyyi]

אתה יכול להוסיף לגיליון מקרו אירוע שיבצע את הפעולות הבאות

במקרה שבתא A1 יוכנס הערך "OFF"

1. ישנה את הערך ב-B1 ל-"OFF"
2. ישנה את רשימת הבחירה כך שאי אפשר יהיה לבחור משהו שונה מ-OFF.

במקרה שמוכנס ב-A1 ערך אחר, רשימת הבחירה של B1 תהיה "ON,OFF"
להלן קוד המקרו:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "OFF" Then
    [b1] = "OFF"
    f1 = "OFF"
Else
    f1 = "ON,OFF"
End If
    With [b1].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=f1
    End With
End Sub

מצורף קובץ הדגמה