Hi There,
I have code written in a macro which loops through a list of unique vendor #'s and changes the report accordingly. How do I export and save each of these reports?
Tower_Scorecard3.xlsm
The code for my macro is
cross reference
http://www.excelforum.com/excel-programming/836490-vba-export-report.html
I have code written in a macro which loops through a list of unique vendor #'s and changes the report accordingly. How do I export and save each of these reports?
Tower_Scorecard3.xlsm
The code for my macro is
Code:
Option ExplicitOption Base 1Sub LoopList()Dim rVendor() As StringDim LR As Long, i As Long, j As LongWith Worksheets("Unique")LR = .Cells(Rows.Count, 1).End(xlUp).RowReDim rVendor(1 To LR) For i = 2 To LR rVendor(i - 1) = .Cells(i, 1) Debug.Print rVendor(i - 1) Next iEnd WithWith Worksheets("Scorecard") For j = 1 To UBound(rVendor) DoEvents .Range("B7") = rVendor(j) Next jEnd WithEnd Sub
</PRE>cross reference
http://www.excelforum.com/excel-programming/836490-vba-export-report.html
