Hi
I have a userform code, I was wondering if it could be streamlined and also if a value in a cell that is used is updated or changed then the userform updates automatically without having to close and rerun the macro to activate the userform to see the updates/changes.
Thanks
Here's the code:
I have a userform code, I was wondering if it could be streamlined and also if a value in a cell that is used is updated or changed then the userform updates automatically without having to close and rerun the macro to activate the userform to see the updates/changes.
Thanks
Here's the code:
Code:
Private Sub UserForm_Initialize()
Label4.Caption = Worksheets("SYSTEMS").Range("AN10").Value
Label5.Caption = Worksheets("SYSTEMS").Range("AN11").Value
Label6.Caption = Worksheets("SYSTEMS").Range("AN12").Value
Label7.Caption = Worksheets("SYSTEMS").Range("AN13").Value
Label8.Caption = Worksheets("SYSTEMS").Range("AN14").Value
Label9.Caption = Worksheets("SYSTEMS").Range("AN15").Value
Label10.Caption = Worksheets("SYSTEMS").Range("AN16").Value
Label11.Caption = Worksheets("SYSTEMS").Range("AN17").Value
Label12.Caption = Worksheets("SYSTEMS").Range("AN18").Value
Label13.Caption = Worksheets("SYSTEMS").Range("AN19").Value
Label14.Caption = Worksheets("SYSTEMS").Range("AN20").Value
Label15.Caption = Worksheets("SYSTEMS").Range("AN21").Value
Label16.Caption = Worksheets("SYSTEMS").Range("AN22").Value
Label17.Caption = Worksheets("SYSTEMS").Range("AN23").Value
Label18.Caption = Worksheets("SYSTEMS").Range("AN24").Value
Label19.Caption = Worksheets("SYSTEMS").Range("AO10").Value
Label20.Caption = Worksheets("SYSTEMS").Range("AO11").Value
Label21.Caption = Worksheets("SYSTEMS").Range("AO12").Value
Label22.Caption = Worksheets("SYSTEMS").Range("AO13").Value
Label23.Caption = Worksheets("SYSTEMS").Range("AO14").Value
Label24.Caption = Worksheets("SYSTEMS").Range("AO15").Value
Label25.Caption = Worksheets("SYSTEMS").Range("AO16").Value
Label26.Caption = Worksheets("SYSTEMS").Range("AO17").Value
Label27.Caption = Worksheets("SYSTEMS").Range("AO18").Value
Label28.Caption = Worksheets("SYSTEMS").Range("AO19").Value
Label29.Caption = Worksheets("SYSTEMS").Range("AO20").Value
Label30.Caption = Worksheets("SYSTEMS").Range("AO21").Value
Label31.Caption = Worksheets("SYSTEMS").Range("AO22").Value
Label32.Caption = Worksheets("SYSTEMS").Range("AO23").Value
Label33.Caption = Worksheets("SYSTEMS").Range("A024").Value
Label34.Caption = Worksheets("SYSTEMS").Range("AP10").Value
Label35.Caption = Worksheets("SYSTEMS").Range("AP11").Value
Label36.Caption = Worksheets("SYSTEMS").Range("AP12").Value
Label37.Caption = Worksheets("SYSTEMS").Range("AP13").Value
Label38.Caption = Worksheets("SYSTEMS").Range("AP14").Value
Label39.Caption = Worksheets("SYSTEMS").Range("AP15").Value
Label40.Caption = Worksheets("SYSTEMS").Range("AP16").Value
Label41.Caption = Worksheets("SYSTEMS").Range("AP17").Value
Label42.Caption = Worksheets("SYSTEMS").Range("AP18").Value
Label43.Caption = Worksheets("SYSTEMS").Range("AP19").Value
Label44.Caption = Worksheets("SYSTEMS").Range("AP20").Value
Label45.Caption = Worksheets("SYSTEMS").Range("AP21").Value
Label46.Caption = Worksheets("SYSTEMS").Range("AP22").Value
Label47.Caption = Worksheets("SYSTEMS").Range("AP23").Value
Label48.Caption = Worksheets("SYSTEMS").Range("AP24").Value
End Sub