안녕하세요 여러분, 특정 범위에서 이름이 지정된 특정 워크 시트 목록을 반복하여 요약 시트에 붙여 넣으려고합니다. 작업 선택된 시트가 다른 시트로 기준과 페이스트 값을 확인하기 위해 범위를 통해 진행되는 루프를 들어워크 시트 목록을 반복하여 붙여 넣기 데이터를 요약 시트에 복사하십시오.
Sub MacroToDoTheWork()
Dim ws As Worksheet
Dim ZeileUntersucht As Integer
Dim ZeileEintragen As Integer
Dim sheet_name As Range
ZeileUntersucht = 17
ZeileEintragen = 2
For each sheet_name in Sheets("Frontend").Range("L21:L49")
For ZeileUntersucht = 20 To 515
If ws.Cells(ZeileUntersucht, 238).Value = "yes" Then
Worksheets("Market Place Output").Cells(ZeileEintragen, 1) = ws.Cells(ZeileUntersucht, 1)
ZeileEintragen = ZeileEintragen + 1
End If
Next ZeileUntersucht
Next sheet_name
End Sub
:
은 지금까지 나는이 코드를 가지고있다. 내가 겪고있는 문제는 For each loop이다. 이 루프가 워크 시트 목록에 대해 작동하도록합니다. 프론트 엔드 범위 L21 : L49는 워크 시트 이름이 저장되는 범위입니다. 추가 정보가 필요하면,
제안 해 주셔서 감사합니다. immediatly 테스트 해 보겠습니다. – Tim
@Tim 피드백? 의도 한대로 작동합니까? –