open second userform depending on cell content

[JamesT1]

Good evening folk

Im trying to have this code open 1 or 2 forms depending on cell content.

When the workbook opens it will show a copyright notice, this is set to only show for 3 seconds

then only if the date in cell ak2 in sheet 3 in within the next 30 days also open the sopreview form.... if the date is greater than the next 30 days the second form should not show


Many thanks

JT

Please Login or Register  to view this content.

[Leith Ross]

Hello JamesT1,

What is the code failing to do?

[JamesT1]

Hi Leith Ross

As the code stands, when I open the workbook I receive a message telling me of a 'Compile error hidden workbook: ThisWorkbook'

If I remove the 'End if' below the Copyright show, then I get the copyright window followed by the 'sopreview' form,,, I get this each time even when the date in sheet 3 cell ak2 is not within the next 230 days.......

JT

[Leith Ross]

Hello JT,

Is this code in you Personal.xlsx workbook or a regular workbook? I ask because the Personal.xlsx is normally hidden. Using ThisWorkbook in a macro refers to the workbook the macro is running in. Normally, in the Personal.xlsx, you would use ActiveWorkbook to have the macro perform an action on the visible workbook.

[JamesT1]

Hi Leith Ross

The code is is a regular 'This Workbook',,, I have attached a workbook with the codes and forms to show what is happening

many thanks#

[Leith Ross]

Hello JT,

I removed Module1 because this code is not needed and it belongs in the UserForm. I changed the code in the CopyRight form to unload instead of hide.

Please Login or Register  to view this content.

It is easier to unload UserForms than hide them. If a UserForm is hidden and you try to show it again, an error will occur. Rather than keep track of which UserForms are hidden, unload them after they close.

Run the attached workbook and let me know what issues remain.