VBA for Search & Display Road Names

[santosh226001]

Hello All VBA Guru & Friends
with this froum time to time we get valuable VBA help.. now once again we come here for 1 more VBA help hope u ppls help me..

i m enclosing a excel file where we want a search option vba where we enter full name or part name. actually we want VBA like Contains search type option which we use in Auto filter in Excel.

My file is enclosed

looking for ur side +ve response.

thanks
santosh

[abduljaleel.mca]

Try this.....

[santosh226001]

Sir
First of Thanks for showing interest in my vba problem..
ur provided VBA run as per my requirement but we face same problem to run this..

1. VBA run when we press Alt+F8a.We want when we enter value in Cell Value C2 and press enter key then automatically VBA Run.
2. Ur provied VBA find Entire sheet in Sheet 1 a.We want VBA find Value between Row 5 to end of sheet coz heading of sheet1 (Row 1 to 4) also display in searching time

3. VBA not Add Serial Number
4. At the End of Record Total of Colum E
5. After Finish we want to display Main Sheet not Sheet1 right now after run macro sheet1 display..
6. After One search we want Again Clear previous Deatils & New Search Result display that place..


Sir we want above 4 change in ur provided VBA hope u understand what we want...

Once Again Thanks for ur valueable Help..

Santosh

[abduljaleel.mca]

Use this....

[santosh226001]

Sir i think in VBA one coading u fix sum of a range in program

Please Login or Register  to view this content.

... whenever we want this depend as per filter record & end total Linke just Below at the end of filter record... like if filter 5 record then total of 5 record show below 5th recored.. if filter 50 record then total of 50 record show below 50th recored..

Sir in running vba when we result 1-2 road then filter record disply from Row 4 but if filter record find more then 10-12 & again we search then next filter record not disply from Row 4 but this display from Row 13-14

Example..
u find Biharipur... VBA works fine as per my demand.... 1 record disply from Row 4
Again u find Rautuli... VBA works fine as per my demand.... 1 record disply from Row 4
Again u find Link Road VBA works fine But Total not Display 14 record disply from Row 4

NOW Again u find Biharipur VBA works NOT fine But Filter Recored Display at row 18 From Row 4 to Row 16 Data Clear But After Row 16 Data Not Cleared
TOTAL NOT Display..

Hope u underStand what mistake we face.. & One More for finding Word Not Accepting Cell Value C2 every time we run macro with Alt+F8

Sorry for again to work on this VBA hope u works & Solve this..

Santosh
India (Lucknow)

[abduljaleel.mca]

Please check this now...

1. You no need to press Alt+F8 now, u can enter data in C2.
2. Sum calculation changed as per your requirement
3. I am not very clear with other points, I did it as per my understanding. Look in to this and let me know if u need any more modifications.

[santosh226001]

Abdul Sir thank ur vba almost 90% work as per my demand... one 1-2 mistake which is mention in image file

Only one change require .....VBA Search Starting Range..... from Rows 4 & Search only Colum F

thanks

[abduljaleel.mca]

Try this....

[santosh226001]

Sir now everything is work fine but one Condition not working

Record Find only Name of Roads Columns not entire worksheet column

U Try to find Auraiya No Word Auraiya Exit in Road Name.. but Search record Show 3 Record..From Where he fine dont know...??? i think this take thease data Other Colums.....Whenever we want Search only One colum... i.e. NAME OF ROADS

i thinks if this problem solve then my entire problem solve.

Thanks for all your help for me..
Santosh

[abduljaleel.mca]

Do u need all columns to be copied from sheet 1 to sheet 2?....
Only 5 headers were available in the file u attached in your first post, so I fetched only 5 columns data....
Let me know....

[santosh226001]

we find data in only Colum F... .

if Record Find in Colum F then Display those Record 5 Colum As per u fetched .....

[abduljaleel.mca]

Hope this would be the final

[santosh226001]

Sir thank u so much now every think is working as per my requirement.. We want only one more thing at end TOTAL LINE BOLD & NE COLOR BEHIND IF POSSIBLE OTHER WISE NOT.

Thanks for ur Valueable support

SANTOSH

[abduljaleel.mca]

Use this for Total in Bold....

[santosh226001]

hi sir after compilete of my VBA i want that in Sheet 1 where data exit that will hide always & Only Show result in search..

Right not we hide sheet than run vba result not display..

if with VBA if xlsheetveryhidden option works that very good for me so that no one see main data file

Thanks in advance

[abduljaleel.mca]

The formula u have changed above is correct, just change the headers in sheet2 according to the no.of columns u r fetching...
Also change the 'Total' calculation column as it will change now...

[santosh226001]

sir after compilete of my VBA i want that in Sheet 1 where data exit that will hide always & Only Show result in search..

Right not we hide sheet than run vba result not display..

if with VBA if xlsheetveryhidden option works that very good for me so that no one see main data file

Thanks in advance

[santosh226001]

Hello... Sir Pls look my VBA for Above option Addedd...
(When we hide sheet ... VBA display record Also.. now VBA not do this.. when we hide Sheet1 VBA not display record)
Thanks

[abduljaleel.mca]

Use this, It will hide Sheet1 always...

[santosh226001]

Hi Thank you very much Abdul Ji... with ur help finally we got what v want in vba ....

u r such a helpfull person....

in future we will in touch with u for VBA help....we have already another problem which i wanna solve in VBA but we tell u aftre some time.. coz i m trying to solve that one if not then we tell u..

once again Thanku very much.. bye