ایجاد لیست Data Validation به صورت غیر تکراری و با در نظر گرفتن شرط ها

**hadi1980** · 2019/01/09, 16:49

سلام
سوالتان خيلي قشنگ بود و از حل اون هم لذت بردم هم کلي چيز يادآوري شد برام
جوابتان رو روي همون فايل خودتون کدنويسي کردم و ضميمه شد
موفق باشيد
هادي

فایل های پیوست شده

Data Validation.rar (33.0 کیلو بایت, مشاهدات 37)

**sabertb** · 2019/01/17, 09:59

نوشته اصلی توسط hadi1980

سلام
سوالتان خيلي قشنگ بود و از حل اون هم لذت بردم هم کلي چيز يادآوري شد برام
جوابتان رو روي همون فايل خودتون کدنويسي کردم و ضميمه شد
موفق باشيد
هادي

سلام خدمت شما در صورتی که فایل اصلی ما دارای این موارد باشد کد نویسی شما چه تغییری میکند ؟
ستون دیتا های تکراری از V2 شروع میشه تا انتها
ستونی که می بایست Data validation داخلش ایجاد بشه از D5 شروع میشه تا انتها
ستونی که شرط اول رو دارا می باشد E5 تا انتها
ستونی که شرط دوم را دارد G5 تا انتها می باشد

من کد شمارو تغییر دادم ولی جواب نمی ده لطفا بفرمایید کجای کارم مشکل داره

کد:

Sub validation()'first: erase all validation
Cells.validation.Delete
    
For j = 2 To Range("E5").End(xlDown).Row
    st_temp = ""
    For i = 2 To Range("V2").End(xlDown).Row
        If (InStr(1, Cells(i, 22), Cells(j, 5)) <> 0) Then
            If (InStr(1, Cells(i, 22), Cells(j, 7)) <> 0) Then
                If (st_temp = "") Then
                    st_temp = Cells(i, 22)
                Else
                    st_temp = st_temp & "," & Cells(i, 22)
                End If
            End If
        End If
    Next
    
    Range("D" & j).validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=st_temp
Next


End Sub