Command Button Color Change When Scrolling

[Joshua88]

Hello all, I have a code that changes the test and color of a command button when clicked it works great But, when I click the button to be "done" and the color is green, when I scroll on the page the button turns red and shows "not done" any help would be great

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With CommandButton1
If .BackColor = 65280 Then
.BackColor = 255
.Caption = "Not Done"
Else
.BackColor = 65280
.Caption = "Done"
End If
End With
Application.ScreenUpdating = True
End Sub

 

[Yongle]

Simple fix: Place button in top row (adjust row height to fit) .Click View tab \ Freeze Panes \ Freeze Top Row

 

[Yongle]

Better solution: Avoid CommandButton taking the focus when clicked

In DeveloperTab \ Design Mode \ Right-Click on CommandButton \ Properties \ Set Take Focus On Click to FALSE

 

[Joshua88]

Great thank you for the reply, it worked