[ExcelVBA] Re: Sheet CommandButton becomes "crosshatched" and comatose.

 

And the winner is ... Ralph wins the Kewpie doll. Activating the active cell (seems like an oxymoron) before changing sheets did the trick.

Regards, Steve
also spelt: cupie, kewpee

Yes, that was intentional...

--- "Ralph Gregory" wrote:
>
> Yes .realised after I sent it ...:-( seems the button press action is left active when sheet changes .could selecting a cell on the sheet before switching active sheet help
>
> Regards Ralph
>
> ----- Reply message -----
> From: "noskosteve" <noskosteve@...>
> > Date: Sat, Jun 29, 2013 1:55 am
> I guess you misssed it. That's what is there. See end of this post for the code.
>
> Steve
>
>
>
> --- In ExcelVBA@yahoogroups.com, Ralph <ralph.gregory@> wrote:
>
> >
>
> > What happens if you put in exit sub after activate sheet 3
>
> >
>
> > Regards, Ralph
>
> >
>
> > noskosteve <noskosteve@> wrote:
>
> > >Maybe I should just take up knitting.
>
> > >
>
> > >Famous last words: Everything worked fine until...
>
> > >
>
> > >I have a Sheet1.CommandButton that normally brings up a UserForm for some preferences to be entered/changed by the user and works fine.
>
> > >
>
> > >I added a function which does not need these prefs. It's just a checkBox on Sheet3. When that function is activated, I bring up a message box indicating that the function must be disabled (unchecked) to see the Prefs' UserForm. Then, I exit the CommandButton_Click Sub without Showing the UserForm. Life is still good.
>
> > >
>
> > >Being the nice guy that I am, I figured it would be helpful to also automaticlly activate sheet3 which has the checkBox, so the user can easily un-check it and go back and see the UserForm to enter these prefs.
>
> > >
>
> > >Simply adding the Sheet3.Activate, causes the Sheet1.CommandButton to become crosshatched (when I reselect sheet1) in otder to to click it and enter the prefs.
>
> > >It is full of diagonal lines and unresponsive.
>
> > >
>
> > >When clicking the 'crossed-out' CommandButton, the crosshatch goes away, but it is now non-responsive. The Click Event does not fire the Click Sub.
>
> > >VBA doesn't appear to be paused or haulted in any way - other things work normally.
>
> > >
>
> > >Doing just about anything else that causes some other VBA code to execute then re-activates this catatonic CommandButton.
>
> > >
>
> > >Clicking the Reset button in the VBA window does not awaken the comatose CommandButton, nor change the title bar indicating VBA has changed modes (like going out of debug mode)
>
> > >
>
> FWIW here's the Click sub with the problem (near the end):
>
> ----------------------------------------------
>
> Private Sub PrefsButton_Click() ' Put filter prefs into Form
>
> Debug.Print "S_1 2 Filter Prefs Button Clicked. ";
>
>
>
> 'This sub is in Sheet1.
>
>
>
> 'Look at the ELSE for where the 'crosshatch' problem occurs...
>
>
>
> If Sheet3.Select_2000 Then ' The new function's CheckBox.
>
>
>
> 'All the stuff from here to the Else workes fine:
>
> 'Get Pref values into the UserForm
>
> 'SSB
>
> userform1.SB_Upper_Narrow = sheet1.Range ("SSB_Narrow_Upper_Pref").Value
>
> userform1.SB_Upper_Mid = sheet1.Range("SSB_Mid_Upper_Pref").Value
>
> userform1.SB_Upper_Wide = sheet1.Range("SSB_Wide_Upper_Pref").Value
>
> '...
>
> 'There is more of the same kind of setting here, not shown.
>
> '...
>
>
>
> userform1.Show ' When execution get here, this works.
>
>
>
> Else ' Abort the filter settings form
>
>
>
> MsgBox "Filter settings from this sheet are only for the TS-2000. To Change them, change the radio type to TS-2000 on the Memories sheet.", vbExclamation, " CAUTION CAUTION CAUTION"
>
>
>
> 'Now, Trouble. Activate the Memories sheet for the user to more easily make the change.
>
>
>
> Sheet3.Activate ' Adding this ONE line causes this CommandButton to become "crosshatched" when re-selecting Sheet1 !
>
>
>
> 'I've tried other things here like:
>
> 'End, or
>
> 'Reset, or
>
> 'PrefsButton.Activate to no avail.
>
>
>
> Exit Sub
>
> End If
>
>
>
> End Sub
>
> >-------------------------------------------------
>
>
>
> Sigh, Steve
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 3

Visit Your Group

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___