win11 not working win 10 is

[steve31]

compile error cant find project or library
its flagged (erow=)


Private Sub CommandButton9_Click()
If Range("a3") >= 1 And Range("A3") = 1 Then Range("B3:J3").Select
Selection.Copy

If Range("a3") >= 1 And Range("A4") = 2 Then Range("B3:J4").Select
Selection.Copy

If Range("a3") >= 1 And Range("A5") = 3 Then Range("B3:J5").Select
Selection.Copy

If Range("a3") >= 1 And Range("A6") = 4 Then Range("B3:J6").Select
Selection.Copy

If Range("a3") >= 1 And Range("A7") = 5 Then Range("B3:J7").Select
Selection.Copy

If Range("a3") >= 1 And Range("A8") = 6 Then Range("B3:J8").Select
Selection.Copy

If Range("a3") >= 1 And Range("A9") = 7 Then Range("B3:J9").Select
Selection.Copy

If Range("a3") >= 1 And Range("A10") = 8 Then Range("B3:J10").Select
Selection.Copy

If Range("a3") >= 1 And Range("A11") = 9 Then Range("B3:J11").Select
Selection.Copy


If Range("a3") >= 1 And Range("A12") = 10 Then Range("B3:J12").Select
Selection.Copy

Windows("Steve Purchase log.xlsm").Activate
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).row

ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
Application.CutCopyMode = False
Unload Me

End Sub

 

[Joe4]

Welcome to the Board!

Check for missing References/Libraries in VBA. Sometimes when you upgrade, you need to go back and re-select some.

I showed someone else how to do that earlier in the day today: Deprecated features and functions?

 

[steve31]

yes it loaded missing component uncheck and fixed thanks

 

[Joe4]

Excellent!
Glad to hear that worked for you.