Search Code Confusing me please help :)

[Krucifire]

Book1.xls
	Q	R	S	T	U	V	W	X
1	ACT	NSW	NT	QLD	SA	TAS	VIC	WA
2
3	Belconnen	Albury	Darwin	Albion	AllenbyGardens	Launceston	Altona	Albany
4	Fyshwick	Artarmon	Palmerston	Booval	KentTown	Moonah	Ballarat	Balcatta
5	Tuggeranong	Ashfield		BrownsPlains	Marion	RosnyPark	Bayswater	Belmont
6		Auburn		Bundaberg	MileEnd		Bendigo	BibraLake
7		Ballina		BurleighHeads	Modbury		BoxHill	Bunbury
8		BankstownAirport		Cairns	MtGambier		Broadmeadows	Busselton
9		BatemansBay		Caloundra	MunnoPara		Coburg	Cannington
10		Bathurst		CannonHill	Noarlunga		Corio	Claremont
11		Belmont		Capalaba	Parafield		Cranbourne	Esperance
12		Belrose		Carseldine	WindsorGardens		Croydon	Geraldton
13		Blacktown		ComptonRd,Underwood			Dandenong	Homebase
14		Bonnyrigg		Gladstone			Eltham	Inglewood
15		Campbelltown		Harbourtown			Epping	Innaloo
16		Cardiff		HerveyBay			FountainGate	Joondalup
17		Caringbah		Lawnton			Frankston	Kalamunda
18		Carlingford		Mackay			HoppersCrossing	Kalgoorlie
19		Cessnock		Maroochydore			Keysborough	Maddington
20		Chatswood		Morayfield			Maribyrnong	Malaga
21		CoffsHarbourSouth		MtGravatt			Melton	Mandurah
22		CoffsHarbourTrade		MtIsa			Mentone	Melville
23		Crossroads		Nerang			Mildura	Midland
24		Dural		Noosaville			MillPark	Mindarie
25		ErinaNorth		Oxley			Moorabbin	Morley
26		Forster		Rockhampton			Mornington	O'Connor
27		Glendale		Rocklea			Morwell	PortKennedy
28		Gordon		Rothwell			Northland	Rockingham
29		Gosford		Southport			NottingHill	SouthPerth
30		Grafton		Stafford			Nunawading	Whitfords
31		Griffith		ToowoombaWest			PortMelbourne	Willetton
32		KempseyNorth		Townsville			Rosebud
33		KempseySouth		Underwood			Sandown
34		Kotara		VictoriaPoint			Scoresby
35		LakeHaven		Warwick			Shepparton
36		Lidcombe					SouthOakleigh
37		Lismore					Sunbury
38		Maitland					Sunshine
39		Mascot					TaylorsLakes
40		McGrathsHill					Thomastown
41		Minchinbury					VermontSouth
42		MossVale					Warrnambool
43		Mudgee					WaurnPonds
44		Narrabeen					Wodonga
45		NelsonBay					WodongaNorth
46		NorthParramatta
47		NorthPenrith
48		Norwest
49		Nowra
50		Orange
51		Penrith
52		PortMacquarie
53		Rockdale
54		RoseBay
55		SevenHills
56		ShellHarbour
57		Tamworth
58		Taree
59		Thornleigh
60		Tuggerah
61		TweedHeads
62		Ulladulla
63		Unanderra
64		ValleyHeights
65		Villawood
66		WaggaWagga
67		Warrawong
68		WarringahMall
69		Wollongong
Sheet1

Above is a sample of data, from a spread sheet where im working with a macro i found on the formus here,

'============================================
'- FIND RECORDS IN A DATA TABLE
'- AND PUT INTO A SUMMARY SHEET
'- needs a sheet called "Summary"
'- change "DataSheet" to lookup sheet name
'- Brian Baulsom February 2005
'=============================================
'-
Sub FindRecords()
    Dim FromSheet As Worksheet
    Dim FromRow As Long
    Dim ToSheet As Worksheet
    Dim ToRow As Long
    Dim FindThis As Variant
    Dim FoundCell As Object
    '---------------------------------------------------
    Application.Calculation = xlCalculationManual
    Set FromSheet = ThisWorkbook.Worksheets("DataSheet")
    Set ToSheet = ThisWorkbook.Worksheets("Summary")
    ToRow = 2
    '---------------------------------------------------
    '- get user input
    FindThis = InputBox("Please enter data to find : ")
    If FindThis = "" Then End ' trap Cancel
    '---------------------------------------------------
    '- clear summary for new data
    ToSheet.Cells.ClearContents
    '---------------------------------------------------
    ' FIND DATA
    '-
    With FromSheet.Cells
        Set FoundCell = .Find(FindThis, LookIn:=xlValues)
        If Not FoundCell Is Nothing Then
            FirstAddress = FoundCell.Address
            '------------------------------------------
            '- copy data to summary
            Do
                FromRow = FoundCell.Row
                ToSheet.Cells(ToRow, 1).Value = _
                        FromSheet.Cells(FromRow, 1).Value
                ToSheet.Cells(ToRow, 2).Value = _
                        FromSheet.Cells(FromRow, 2).Value
                ToSheet.Cells(ToRow, 3).Value = _
                        FromSheet.Cells(FromRow, 3).Value
                ToRow = ToRow + 1
                Set FoundCell = .FindNext(FoundCell)
            Loop While Not FoundCell Is Nothing And _
                FoundCell.Address<> FirstAddress
            '------------------------------------------
        End If
    End With
    MsgBox ("Done.")
    Application.Calculation = xlCalculationAutomatic
End Sub

this code is a little beyond what i know how to do so before i started chopping and changing the code i thought i would check here for advice on how i do it.


is what i need is for when the person enters in one of the store names from the list above, for it to display data stored in columns B, D and P. The columns it will need to search in for the specific store name are Q through to X (as shown in the spread sheet above) however

the data is store as follows (cell references below are Column:Row)

(Q:A1)Belconnen, #fyshwick
(W:A1)Boxhill, #Nunawading, #Coburg


hope i explained that clear enough for you guys to help

Regards

- Troy

 

[Krucifire]

Just an Update,

Ive got this macro displaying the data from the correct columns i need, But the its find incorrect Data

Im not too sure how the actual search parameters are being set, but for example if I search the word Box,

The only word with in the whole spread sheet that will match this search will be the store name Boxhill, how it returned data where this was not contained. If i Search Boxhill, it returns nothing

any ideas ???