Screen Flickering with this VBA

[robertk93]

Hi,

Please see link to a file sharing site with a workbook inside of it. I am trying to solve the screen flickering within this workbook. The password to unprotect is test.

Thank you!

Book.xlsx

 

[Joe4]

I am not toggling the sheets

What I am saying is that when you make an entry on the "Proforma" sheet, it is "hopping" over to the "Customer" sheet to unhide rows.

 

[robertk93]

That's correct. And you aren't sure what may be causing that?

 

[Joe4]

That's correct. And you aren't sure what may be causing that?

No, I think that is what is causing it - once you update a cell on the "Proforma" page, it "jumps" to the "Customer" page to unhide the row.

 

[robertk93]

Right- but you aren't sure how to fix it outside of the submit / process button / userform?

 

[Joe4]

Right- but you aren't sure how to fix it outside of the submit / process button / userform?

I don't even know if there is "a fix"- nothing is really broken. It may just be the behavior of bouncing between two sheets.

 

[Alex Blakenburg]

Perhaps you could have a hidden column in Customer and flag the rows you want visible eg the formula in column E (note heading row is using Sum to check for any used rows used in the section)
Then show/hide rows using the customer sheet activate event.

20240107 VBA Unhide Hide test(5) Flickering v02 robertk93.xlsm
	A	B	C	D	E
47	Test 3				1
48			$ -	$ -
49	Online Reporting Maintenance	10	$ -	$ -	1
50			$ -	$ -
51			$ -	$ -
52			$ -	$ -
53			$ -	$ -
Customer

Cell Formulas
Range	Formula
A47,C48:D53	A47	=Proforma!A47
E47	E47	=SUM(E48:E53)
A48:A53	A48	=IF(B48="","",Proforma!A48)
B48:B53	B48	=IF(Proforma!B48>0,Proforma!B48,"")
E48:E53	E48	=--NOT(A48="")

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
D47	Expression	=$A47 = Yes	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$H38=1	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$I38=2	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$I38=1	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,B14:B16,B18,A19:B19,B21:B22,A61:A73,A35:A46,A25:A33	Cell Value	="Space"	text	NO

 

[robertk93]

Perhaps you could have a hidden column in Customer and flag the rows you want visible eg the formula in column E (note heading row is using Sum to check for any used rows used in the section)
Then show/hide rows using the customer sheet activate event.

20240107 VBA Unhide Hide test(5) Flickering v02 robertk93.xlsm
	A	B	C	D	E
47	Test 3				1
48			$ -	$ -
49	Online Reporting Maintenance	10	$ -	$ -	1
50			$ -	$ -
51			$ -	$ -
52			$ -	$ -
53			$ -	$ -
Customer

Cell Formulas
Range	Formula
A47,C48:D53	A47	=Proforma!A47
E47	E47	=SUM(E48:E53)
A48:A53	A48	=IF(B48="","",Proforma!A48)
B48:B53	B48	=IF(Proforma!B48>0,Proforma!B48,"")
E48:E53	E48	=--NOT(A48="")

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
D47	Expression	=$A47 = Yes	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$H38=1	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$I38=2	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,A61:A73,A35:A46,A25:A33	Expression	=$I38=1	text	NO
A48:A53,A55:A59,A75:A78,A80:A82,A84:A96,A98:A127,B14:B16,B18,A19:B19,B21:B22,A61:A73,A35:A46,A25:A33	Cell Value	="Space"	text	NO

I'm sorry- but none of this makes sense to me.