루프 내의 조건문

Question

무엇이 잘못 되었나요? 다른 탭에서 A 열의 목록을 통해 실행되는 탭의 pdf 파일을 만들고 싶습니다. 한편, 열 CH의 값을 참조하여 값이 0보다 큰지 확인하고 특정 폴더에 저장하는지 확인합니다. 그렇지 않은 경우 다른 폴더에 저장하십시오.

해결책을 찾지 못해 몇 시간 동안 붙어있어 도움을 주시면 대단히 감사하겠습니다. 감사!

코드 :

Sub Generate_PDF_Files() 
Application.ScreenUpdating = False 
Sheets("Table").Activate 
Range("A7").Activate 

Set r = Range("CH7:CH185") 
With ActiveSheet 
    For Each erange In .Range("CH7:CH185") 
     If erange.Value > 0 Then 
      Sheets("Att A").Select 
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
       "L:\Mike89\Violations\" & X & ".pdf", Quality:=xlQualityStandard, _ 
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 
     End If 

     If erange.Value = 0 Then 
      Sheets("Att A").Select 
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
       "L:\Mike89\No Violations\" & X & ".pdf", Quality:=xlQualityStandard, _ 
       IncludeDocProperties:=True, IgnorePrintAreas:=False,OpenAfterPublish:=False 
     End If 

    Next 

    Do Until ActiveCell.Value = "STOP" 
     X = ActiveCell.Value 
     Range("DLR_NUM") = "'" & X 

     Sheets("Table").Activate 
     ActiveCell.Offset(1, 0).Activate 
    Loop 

End with 
End Sub 

Answer 1

Sub Generate_PDF_Files() 

    Dim c As Range, X, fName As String, shtAtt As Worksheet 

    Set shtAtt = Sheets("Att A") 

    For Each c In Sheets("Table").Range("CH7:CH185").Cells 

     X = c.EntireRow.Cells(1).Value 
     If X = "STOP" Then Exit For 

     c.Parent.Range("DLR_NUM") = "'" & X 

     fName = "L:\Mike89\" & IIf(c.Value = 0, "No Violations\", "Violations\") & X & ".pdf" 

     shtAtt.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, _ 
         Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
         IgnorePrintAreas:=False, OpenAfterPublish:=False 

    Next c 

End Sub