Selecting Range after splash screen

TheMatrixReloaded

New Member
Joined
May 6, 2002
Messages
29
Anyone know where to place code, to select a range after the splash screen is ran? I have tried two locations and neither is working. Unless I'm using the wrong code to select.

Sheets("Pizza Parlor").Select Range("A5")
 

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
Try putting the following in the workbook_open procedure in the "ThisWorkbook" module:

Code:
Application.Goto Sheets(1).[a5]

Leave frmWelcome.Show there, just replace the worksheet select code that's in there.

Hope this helps. :biggrin:


_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
wave.gif

This message was edited by NateO on 2002-05-09 14:07
 
Upvote 0
Sorry, misread the question!!!

James

_________________
This message was edited by James on 2002-05-09 14:07
 
Upvote 0
Yep, that did it. thanks. Is there an easy way to shorten these if statements?

If OPTPan.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "Personal"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 4.99 + 0.5 * bytToppings

End If
If OPT10inch.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "10 inch"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 5.99 + 0.5 * bytToppings
End If

If OPT12inch.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "12 inch"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 7.99 + 0.5 * bytToppings
End If

If OPT14inch.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "14 inch"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 9.99 + 0.5 * bytToppings
End If

If OPT16inch.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "16 inch"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 10.99 + 0.5 * bytToppings
End If
If OPTSicilian.Value = True Then
Sheets("Order Table").Range("C" & intcurrentrow).Value = "Sicilian"
Sheets("Order Table").Range("D" & intcurrentrow).Value = 11.5 + 0.5 * bytToppings
End If
 
Upvote 0
I get an error with this if I run it from a different sheet:

Code:
Sheets("Pizza Parlor").Range("A5").select

Might want to go with:

Code:
Application.Goto ("Pizza Parlor").[a5]
 
Upvote 0
Change your Option buttons to a dropdown list then all the if's could be replaced with one case statement
 
Upvote 0
I personally like your option buttons, and they work, not sure why you'd want to 'fix' them....Did Jay's code work?

I'd personally focus more on creating an 'update address' button, form and corresponding code, in the event that your customer keeps their phone number and changes address'....
_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
wave.gif

This message was edited by NateO on 2002-05-09 14:13
 
Upvote 0
The first one worked Nate. Well I'll just keep the crappy if's then. I need to format the Range D for currency also. What code would I place after?
 
Upvote 0
Code need not apply. Go to your second sheet, click on D (column header) than click the $ button. This should be all that is required.

Did you try Jay's array code?

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
wave.gif

This message was edited by NateO on 2002-05-09 14:15
 
Upvote 0

Forum statistics

Threads
1,213,495
Messages
6,113,992
Members
448,538
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top