Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 57
Default a range of cells to UserVal...

I have a list of stock symbols residing in cells H209 to H219, and within my
VBA code, I have:

UserVal = UCase(Application.InputBox("Symbol?", , MyLastSymbol, , , , , 2))

so that there is a default there when the UserVal box pops up on my screen.

How do I set up a loop so that the "MyLastSymbol" is populated by the value
in H209, then H210 and so forth till it hits H219, then returns to H209 to
start the loop again?

My thanks in advance for any suggestions or code.

Cheers! Brad


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 226
Default a range of cells to UserVal...

Hi Brad

You could try something like the code below all you would need to do
is load the value 209 into i when you open your sheet or userform.

Sub ShowSymbol()

If i = 220 Then i = 209

mylastsymbol = Range("H" & i)

UserVal = UCase(Application.InputBox _

("Symbol?", , mylastsymbol, , , , , 2))

i = i + 1

End Sub

hope this helps

S

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
how to compute a range of cells based on another range of cells? HAROLD Excel Worksheet Functions 1 December 30th 05 09:32 PM
how to compute a range of cells based on another range of cells? HAROLD Excel Worksheet Functions 2 December 30th 05 07:55 PM
UserVal default value Brad Excel Programming 2 December 2nd 05 06:19 PM
Compare a selected Range with a Named range and select cells that do not exist PCLIVE Excel Programming 1 October 18th 05 07:09 PM
Copy a formula to a range of cells via VB6 using .Range(Cells(row,col), Cells(row,col)).Formula= statement Kevin Excel Programming 7 October 5th 04 08:11 PM


All times are GMT +1. The time now is 07:44 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"