hi,
how can I add a year today total at the end of list each of the box in the code below represent amount per moth (January-December)
here is the code:
thank you
how can I add a year today total at the end of list each of the box in the code below represent amount per moth (January-December)
here is the code:
Code:
COGSform_All.TextBox_Results1.Value = .Cells(.Range(strAddress).Row, 2).Value COGSform_All.TextBox_Results2.Value = .Cells(.Range(strAddress).Row, 1).Value
COGSform_All.TextBox_Results3.Value = Format(.Cells(.Range(strAddress).Row, 9).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results4.Value = Format(.Cells(.Range(strAddress).Row, 10).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results5.Value = Format(.Cells(.Range(strAddress).Row, 11).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results6.Value = Format(.Cells(.Range(strAddress).Row, 12).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results7.Value = Format(.Cells(.Range(strAddress).Row, 13).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results8.Value = Format(.Cells(.Range(strAddress).Row, 14).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results9.Value = Format(.Cells(.Range(strAddress).Row, 15).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results10.Value = Format(.Cells(.Range(strAddress).Row, 16).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results11.Value = Format(.Cells(.Range(strAddress).Row, 17).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results12.Value = Format(.Cells(.Range(strAddress).Row, 18).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results13.Value = Format(.Cells(.Range(strAddress).Row, 19).Value, "$#,##0.00;($#,##0.00)")
COGSform_All.TextBox_Results14.Value = Format(.Cells(.Range(strAddress).Row, 20).Value, "$#,##0.00;($#,##0.00)")
thank you