Posts by mjschukas

i'm still have troubles compressing an external xls file from within another xls file...?

(sorry...i did a search...)

???

(have to post the current code)...

thank you.

Re: Show Find Dialog & Restrict to x Sheets

thank you.

no, the four sheets selected, stay selected...(code is below):

'find
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Page1").Unprotect
Worksheets("Page2").Unprotect
Worksheets("Page3").Unprotect
Worksheets("Page4").Unprotect
Sheets(Array("page1", "page2", "page3", "page4")).Select
Application.ScreenUpdating = True
Application.Dialogs(xlDialogFormulaFind).Show
Worksheets("Page1").Select
Worksheets("Page1").Protect
Worksheets("Page2").Protect
Worksheets("Page3").Protect
Worksheets("Page4").Protect
Application.ScreenUpdating = True
Application.DisplayAlerts = True

thank you...

Re: Show Find Dialog & Restrict to x Sheets

thank you...works...but not perfectly...

(i at least need to unselect sheets after the find, etc.)

'find
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Page1").Unprotect
Worksheets("Page2").Unprotect
Worksheets("Page3").Unprotect
Worksheets("Page4").Unprotect
Sheets(Array("page1", "page2", "page3", "page4")).Select
Application.ScreenUpdating = True
Application.Dialogs(xlDialogFormulaFind).Show
Worksheets("Page1").Select
Worksheets("Page1").Protect
Worksheets("Page2").Protect
Worksheets("Page3").Protect
Worksheets("Page4").Protect
Application.ScreenUpdating = True
Application.DisplayAlerts = True

???

thank you.

Re: Show Find Dialog & Restrict to x Sheets

thank you...we are getting there...

here's the code i have (this works, but not "perfectly"...)

(and i need to unselect after the find is over, etc.)...

'071107
'find
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Page1").Unprotect
Worksheets("Page2").Unprotect
Worksheets("Page3").Unprotect
Worksheets("Page4").Unprotect
Sheets(Array("page1", "page2", "page3", "page4")).Select
Application.ScreenUpdating = True
Application.Dialogs(xlDialogFormulaFind).Show
Worksheets("Page1").Select
Worksheets("Page1").Protect
Worksheets("Page2").Protect
Worksheets("Page3").Protect
Worksheets("Page4").Protect
Application.ScreenUpdating = True
Application.DisplayAlerts = True

thank you.

Re: Show Find Dialog & Restrict to x Sheets

we are getting there...(thanks...)

after the find is complete, i would like to unselect (i have four sheets to look through), and remain on the cell from the results of the Find)...?

thank you...!

Re: Sendkeys Edit Find

interesting...

Application.Dialogs(xlDialogFormulaFind).

Show doesn't let me select sheets...

Application.  CommandBars.FindControl(ID:=1849).Execute

gives me an error message: " run-time 438: object doesn't support this property..." (i'm running from an on click event under a label)

???

thanks.

Sendkeys Edit Find

i'm using Sendkeys Edit Find to open the Find dialog box (works well)...i would like to restrict the searching to only 4 worksheets (of 14) of the workbook...?

(i see the option to select Sheet or Workbook)

???

thank you.

User Form Suppress Close Control Object

i would like to turn off (not show) the User Form Suppress Close Control Object (top right hand corner)...?

???

thank you.

Re: Graph Rational Function

thank you...! (i deleted x = 0)...

?could you explain further about the line chart and make invisible...?

and what is the best way to show the y axis going (vertically) through the origin...?

thank you...!

Re: Graph Rational Function

ok...

here's my example...

thank you...

when graphing a rational function (y = 1/x) i get a line crossing the asymptote (y axis for this function...)

?how can i stop this...?

???

thank you.

i would like to write vba to fill a "chess Board" Matrix (8X8) With Powers Of 2...

starting with 2^0 and ending with 2^63...

(i suppose, click a button/icon and have the numbers fill in/populate...)

???

thank you...

Re: Display Vertical Menu Of Worksheets When Open...

i'm looking for a "right-click the sheet navigation buttons at the left of the sheet tabs" - keyboard shortcut...?

(and vba to do so too...)

???

thank you...

Re: Macro To Show The Pop-up List Of Sheet Names

thank you...no.

the worksheet navigation control(bottom left-right click and get a vertical popup of sheet names to navigate to...(ok?)

thank you.

Show Pop-up List Of Sheet Names

i would like to write a macro to show the pop-up list of sheet names excel (right click on the tab control-bottom left)...?

???

thank you.

Refresh Queries From Userform...

i would like to refresh a query from a user form (query is in another worksheet)...?

(i have tried the following, but with error...)

Worksheets("data_material").QueryTables.Refresh

thank you...

when i open a xls, i would like to Display the Vertical Menu Of Worksheets (at the bottom left of the tab names)

--this worksheet has many sheets and i find this an easy way to navigate...

(also, how can i write a macro--for a user shortcut--to display this--currently, i hover my mouse pointer over the bottom left tab navigation object and right click to bring up the vertical display of sheet names...)

???

thank you.

"This Workbook Contains Links To Other Data Sources"

on a certain file, i would like to surpress this message (the displays on opening) and accept the prompt "don't update"...?

???

thank you.

Re: Cell Focus When Opening A User Form

thanks...

i put the cursor in a cell, when i run the macro from the macro toolbar, the focus stays in the cell, but when i use my mouse to click on a button that runs the macro, i seemingly lose the focus of the cell (i don't know where it goes...but when i hit "tab", the cursor is on a textbox on the userform...

userform.show 'open user form

(and then the user form gets info. from the active worksheet...)

thank you...!

Re: Cell Focus When Opening A User Form

thank you...but,

i changed to:

userform.show vbmodeless

and i still lose the focus on the current cell (and i tried at the form's property to change showmode to true and then false)...

???

thank you.