Hi Dave,
Here's an upgrade:
Option Explicit
Private x As Integer
Private y As Integer
Private i As Integer
Private myValue
Private myarray()
Private myStart As Object
Private myFirstCell As Object
Sub xxx()
Set myFirstCell = Application.InputBox("Please pick top left hand cell
of area to be searched ", Type:=8)
For x = 1 To 8
For y = 1 To 7
If myFirstCell(y, x) < "" Then
i = i + 1
ReDim Preserve myarray(i)
myarray(i) = myFirstCell(y, x)
End If
Next y
Next x
Set myStart = Application.InputBox("Please enter start location of
Results ", Type:=8)
For i = 1 To UBound(myarray)
myStart(i, 1) = myarray(i)
Next i
End Sub
NOTE:
1.the line starting "Set myFirstCell =" should finish "to be searched
", Type:=8)" and it all should be on ONE LINE
2.the line starting "Set myStart =" should finish "Type:=8)" and it
all should be on ONE LINE
This should work where-ever the area is located on the worksheet.
Just paste this into a module and run it.
A good way to learn is to manipulate the code window so it takes up
half the screen and manipulate the worksheet so it fills the other
half, select somewhere within the code(below the line "Sub xxx()") and
press F8.This should highlight the first line of code in yellow, then
press F8 again and only one line of code will be executed, and you'll
see what this line has done on the other half of the screen.For
example when you press F8 when the followimg line of code is
highlighted:
Set myFirstCell = Application.InputBox("Please pick top left hand cell
of area to be searched ", Type:=8)
an inputbox should appear asking you to pick the top left hand cell in
the range to be searched - in your example you would use the mouse to
pick AE7.
Once you have gone past the line "For x = 1 To 8" you are into a loop
which will execute 56 times so you may want to press F5 which will
execute all the code that remains.
I'm not sure about the hyperlink message!
atb
Jason
Dave wrote in message ...
Yes, I've figured out how to record macros, and edit them.
I tried pasting your code into a macro named "xxx", and I tried to
change some of your code to reflect the actual cells in use, i.e.- the
"field" is AE7:AK14, so the y in the loop was "From AE to AK". The
results go to a list starting at M39. I didn't know how to set it up
without a shortcut, so I just gave it ctrl+S. When I hit the shortcut,
I get prompted for a hyperlink?? I may be in over my head here, but I'm
learning a ton. Thanks for helping me.
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!