So fügen Sie eine Schleife in Makro

Question

Ich muss eine zweite Schleife in meinen Code hinzufügen. Momentan wird gedruckt, indem eine Liste durchsucht wird (im Blatt "Dealer" und beginnend bei "B2") und

Die zweite Schleife, die ich brauche, müsste gleich lang sein Linien. Es muss eine Liste der Sprachen, in einem separaten Arbeitsblatt gehen, und jede PDF Nachdruck, die mehrere lagnuages ​​hat.

mit dieser Jede Hilfe sehr geschätzt werden würde. Mein Code ist wie folgt ....

Dim PathString As String 

Sub Print_************_2_ImpactValidationReport() 

Application.ScreenUpdating = False 

Sheets("Dealer").Select 
Range("B2").Select 


    While Not ActiveCell.Value = Empty 

    Sheets("ImpactValidationReport").Range("AO1").Value = ActiveCell.Value 
    Sheets("ImpactValidationReport").Select 
    'Call ChangeGraphAxis 
    Range("A4").Select 
    Sheets("ImpactValidationReport").Select 
    Application.StatusBar = "Executing - Please be patient..." 
    Call Print_To_File4(Sheets("ImpactValidationReport").Range("AO1").Value) 
    Application.StatusBar = False 
    Sheets("Dealer").Select 
    ActiveCell.Offset(1, 0).Select 

Wend 

Sheets("ImpactValidationReport").Select 
Application.ScreenUpdating = True 

Sheets("ImpactValidationReport").Select 
Range("A3").Select 

MsgBox "All Completed, Please check Files!" 

End Sub 


Function Print_To_File4(Dealer As String) 

'PathString = ***************************\Reporting\DistrictReports\2_ImpactValidationReport" & DealerGroup & ".pdf" 
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=PathString 

CurrentDir = ActiveWorkbook.Path 
Application.DisplayAlerts = False 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    CurrentDir & "\Reporting\DistrictReports\2_ImpactValidationReport\District_Action_Report_" & Dealer & "_2_ImpactValidationReport_" & Format(Now, "dd-mm-yy") _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

Application.DisplayAlerts = True 

End Function 

Answer 1

Wenn ich Sie richtig verstehe, wollen Sie die folgende Struktur (Ich verwende i und j als Inkremente zur Steuerung der Schleifen):

i = 1 
While Not cells(i,1) = Empty 
    'check all items 
    j=1 
    while not sheets("language").cells(j,1) = Empty 
     'check all languages for the item 
     j=j+1 
    wend 

    i=i+1 
wend