question

JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 asked ·

Version 2102 (Build 13801.20274) Marco Issues

We are having issues with the current version of Office 365 Version 2102 (Build 13801.20274) with Legacy Marcos not working anymore.![76001-inc0030391.png][1] [1]: /answers/storage/attachments/76001-inc0030391.png

office-vba-dev
inc0030391.png (34.0 KiB)
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

MahyarKamalinafar-3943 avatar image
0 Votes"
MahyarKamalinafar-3943 answered ·

Hi,

You will need to unlock the macro and show us the debug for anyone to figure out what is happening.

·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 answered ·

 Dim GrpSizeTemp As Integer
 Dim CurrTierTemp As Integer
 Dim RenTierTemp As Integer
 Dim CommTemp As Integer
 Dim MOPAdjTemp As Integer
 Dim RMMTemp As Integer
   
 Dim ActDialog As String
 Dim newTextTemp As String
 Dim NtwkSelectTemp As String
 Dim noCancel As Boolean
   
 Application.Calculation = xlCalculationAutomatic
   
       
 ActDialog = "Dialog1"
 noCancel = DialogSheets(ActDialog).Show  'shows dialog box
   
 If noCancel = False Then Exit Sub
   
 'If the user has selected a trivial MOP Adjustment Factor, this will ask the user if they're sure
 If DialogSheets(ActDialog).DropDowns("cbxMOPAdj").Value = 1 And CInt(DialogSheets("Dialog1").EditBoxes("ebxEligCT").Text) > 19 Then
     Dim Response As VbMsgBoxResult
     Response = MsgBox("You have selected a MOP Adjustment Factor of 1.000.  Are you sure this is what you want?", vbQuestion + vbYesNo)
       
     If Response = vbNo Then
         GoTo Start:
     End If

 The cursor is going to the 

​[
noCancel = DialogSheets(ActDialog).Show 'shows dialog box

 it's the "shows dialog box" that is causing the problem.  I just haven't had time to look into the updates to see how we need to update that section. 
· 1 ·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.


Did you check if this code (DialogSheets(ActDialog).Show line) works in case of new Excel files?

0 Votes 0 ·
JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 answered ·

Any help would be great
Thank you

·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

MahyarKamalinafar-3943 avatar image
0 Votes"
MahyarKamalinafar-3943 answered ·

I would try to find the userform name and just do userform.show

You can find the userform names on the project window under forms.

·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 answered ·

I'll let them know and have them try that and see.

Thank you

· 1 ·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

If you take a screenshot of the full edit window we might be able to give you what you need to type. If you do so please make sure the project window shows all userforms and modules.

0 Votes 0 ·
JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 answered ·

excel-maco-issue.pdf (151.7 KiB)
·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

JohnTJennings-8865 avatar image
0 Votes"
JohnTJennings-8865 answered ·

This is the information they believe you wanted.

Thank you again.

·
10 |1000 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.