Ashish Batham
Member
Loop Until LE = rs("Expr1").Value Or intCounter = 100
-------------------------------------------------------------------------------
Cells(intCounter, 8) = rs("book").Value
-------------------------------------------------------------------------------
sqlReasonCount = " SELECT COUNT(*) as count FROM (SELECT [reason code] FROM append_assets" & _" GROUP BY [reason code]);"
-------------------------------------------------------------------------------
With Range(Cells(10, 1), Cells(reason_count + 9, 7))
.ClearContents
.Interior.Color = 16777215
End With
-------------------------------------------------------------------------------
quote = Chr(34)
Cells(10, 6).Borders(xlEdgeTop).LineStyle = xlContinuous
Cells(reason_count + 9, 6).Borders(xlEdgeBottom).LineStyle = xlContinuous
For row = 10 To reason_count + 9
Cells(row, 1) = row - 8
With Cells(row, 5)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Cells(intCounter, 8) = rs("book").Value
-------------------------------------------------------------------------------
sqlReasonCount = " SELECT COUNT(*) as count FROM (SELECT [reason code] FROM append_assets" & _" GROUP BY [reason code]);"
-------------------------------------------------------------------------------
With Range(Cells(10, 1), Cells(reason_count + 9, 7))
.ClearContents
.Interior.Color = 16777215
End With
-------------------------------------------------------------------------------
quote = Chr(34)
Cells(10, 6).Borders(xlEdgeTop).LineStyle = xlContinuous
Cells(reason_count + 9, 6).Borders(xlEdgeBottom).LineStyle = xlContinuous
For row = 10 To reason_count + 9
Cells(row, 1) = row - 8
With Cells(row, 5)
-------------------------------------------------------------------------------