시트를 반복하여 동적 시트 참조를 기반으로 계산 실행

Question

시트 목록을 순환하여 다른 워크 시트 목록의 시트 참조가있는 계산을 실행할 수 있습니까? 예를 들어, 계산의 대상이 될 워크 시트 목록 (목록 1)이 있고 계산의 기초가되는 두 번째 워크 시트 목록 (목록 2)이 있습니다. 그래서, 목록 1에 sheet1과 sheet2, 목록 2에 sheetA와 sheetB가 있다고 가정 해 봅시다. sheetA에 기반한 계산은 sheet1에 나타나고 sheetB에 기반한 계산은 sheet2에 나타납니다.

Sub LoopthroughWorksheets() 
Dim sheet_name As Range 
Dim sheet_name2 As Range 
Set sheet_name2 = Sheets("WS").Range("F:F") 
For Each sheet_name In Sheets("WS").Range("C:C") 
    If sheet_name.Value = "" Then 
     Exit For 
    Else 
     With Sheets(sheet_name.Value) 
       .Range("K1") = .Range("sheet_name2.Value!A14").Value 
     End With 
    End If 
    Next sheet_name 
End Sub 

나는 "런타임 오류 '1004 : 응용 프로그램 정의 또는 개체 정의 오류"를 받고 있어요 : .Range("K1") = .Range("sheet_name2.Value!A14").Value

이 어떤 도움이이 줄에서 나는 코드는 다음과 같을 것이라고 생각 매우 감사.

감사합니다.

Answer 1

예, 가능하지만 코드가 잘못되었습니다.

당신은 일치하는 시트 이름을 모두 열 C와 F를 통해 어떻게 든 반복 한 다음 검색해야합니다 : 회신 @의 MP24에 대한

Sub LoopthroughWorksheets() 
    Dim sheet_name As Range 
    Dim sheet_name2 As Range 
    Set sheet_name2 = Sheets("WS").Range("F:F") 
    ' NEW 
    Dim counter As Long 
    counter = 1 

    For Each sheet_name In Sheets("WS").Range("C:C") 
     If sheet_name.Value = "" Then 
      Exit For 
     Else 
      With Sheets(sheet_name.Value) 
       .Range("K1").Value = Sheets(sheet_name2(counter, 1).Value).Range("A14").Value 
       ' NEW      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^     
       counter = counter + 1 
      End With 
     End If 
    Next sheet_name 
End Sub