لیست کشویی با تغییر شیت

[look20]

با سلام چطور در ستون c لیست کشویی از طریق دیتا ولیدیشن ایجاد کرد که در هنگام workbook change با توجه به پر بودن ستون دوم یعنی ستون b ستون متناظر در c لیست کشویی فعال بشه
توضیح بهتر: به ازای پر بودن هر ردیف از ستون b ردیف همان ردیف در ستون c لیست کشویی دیتا ولیدیشن فعال بشه
فایل ضمیمه مثلا ردیف دوم ستون b پر شد ستون c همان ردیف همان لیست که بالا بود ایجاد بشه و اگر ستون b ردیف خالی بود لیست کشویی از ردیف حذف شود
این کد رو امتحان کردم نمیدونم چرا کار نمیکنه

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim validationRange As Range
    Dim validationFormula As String
    Dim cell As Range

     Set ws = ThisWorkbook.Worksheets("sheet1")
If Not Intersect(Target, ws.Range("B:B")) Is Nothing Then
        Application.EnableEvents = False

        lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
       For Each cell In Intersect(Target, ws.Range("B:B"))
            validationFormula = "=IF(B" & cell.Row & "<>"""", {list1,list2}, """")"
            ws.Range("c" & cell.Row).Validation.Delete
            ws.Range("c" & cell.Row).Validation.Add Type:=xlValidateList, Formula1:=validationFormula
            ws.Range("c" & cell.Row).Value = ""
           
            With Application
                .ScreenUpdating = True
                .EnableEvents = True
                .Calculation = xlCalculationAutomatic
            End With
        Next cell
    End If
End Sub 

ممنون

[مرتضی حسینی]

با سلام یه اکسل دارم تو ستون b یا c که باشی اتومات ولیدسشن همون سیون فعال میشه با تغییر فرمول ها کارهای مختلفی میشه کرد
حسینی 1402/6/31

[look20]

ممنون دوست عزیز ولی منظورمن این نبود بهتر بگم شیت 2 ستون a که نام رنگهاست قرار به عنوان دیتا ولیدیشن در ستون b شیت 1 بشینه به ازای هر ردیف که از ستون a از شیت 1 که پر بشه

[look20]

راهشو پیدا کردم این سایتش و این هم فایل نمونه
https://www.excelcampus.com/tips/dyn...ata-validation
اولش باید فایل اکسلتون بصورت جدول تعریف بعدش اصلا کد نویسی نمی خواد خیلی راحت انجام میشه