데이터 유효성 검사 목록의 각 데이터 포인트를 통해 실행되는 매크로

Question

다른 시트에있는 두 개의 데이터 유효성 검사 목록에서 각 데이터 포인트를 통과하는 매크로를 코딩하고 싶습니다.

Sub selfrefpop() 

    Dim cell1   As Excel.Range 
    Dim cell2   As Excel.Range 
    Dim SO    As Excel.Range 
    Dim AF    As Excel.Range 
    Dim rgDV1   As Excel.Range 
    Dim rgDV2   As Excel.Range 
    Dim activews  As Worksheet 
    Dim dashboard  As Worksheet 

     Set activews = ActiveWorkbook.ActiveSheet 

     Set dashboard = Sheets("Dashboard") 

     Set SO = activews.Range("D8") 

     Set AF = dashboard.Range("L17") 

     Set rgDV1 = activews.Range(SO.Validation.Formula1) 

     With dashboard 
     Set rgDV2 = .Range(AF.Validation.Formula1) 
     End With 

     For Each cell1 In rgDV1 
      rgDV1.Value = cell1.Value 

      For Each cell2 In rgDV2 
       rgDV2.Value = cell2.Value 
      Next 
     Next 

End Sub 

내가 줄에서 오류가 점점 오전 :

Set rgDV2 = .Range(AF.Validation.Formula1) 

오류가 말한다 "실패 개체의 방법 '범위' '_Worksheet'을, 오류 1004"

나는 여기에 내가 쓴 코드는 참조 오류가 있음을 알 수 있습니다. 그러나 문제를 파악하는 데 문제가 있습니다.

감사합니다.

Answer 1

Set rgDV2 = .Range(AF.Validation.Formula1)을 사용하려고하지만 AF.Validation.Formula1은 범위가 아닙니다. 유효성 검증 공식을 백분율 목록을 참조하는 범위로 만들면 유효해야합니다.