HELP WITH FILTER OR VBA CODE

[Jagat Pavasia]

DEAR SIR,

I have 3 address in yellow highlighted,
my A1 have input name manually.

if I type "hitesh" in A1 then automatically find address contain heading of named "hitesh" and declare it to pink highlighted area.

if I type "ARVIND" in A1 then automatically find address contain heading of named "ARVIND" and declare it to pink highlighted area.

please help me.

I ATTACHED SCREEN SHOT BELOW..

THANK YOU

 

[mumps]

Looking at the picture you posted, it looks like the address headings are located in merged cells. Start by unmerging all the merged cells. You should avoid merging cells because they almost always cause problems for macros. After you have unmerged the cells, copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in A1 and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Application.ScreenUpdating = False
    Dim fnd As Range
    Set fnd = Range("A2", Range("A" & Rows.Count).End(xlUp)).Find(Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not fnd Is Nothing Then
        Range("A" & fnd.Row + 1).Resize(9, 5).Copy Range("A2")
    End If
    Application.ScreenUpdating = True
End Sub

 

[Jagat Pavasia]

Looking at the picture you posted, it looks like the address headings are located in merged cells. Start by unmerging all the merged cells. You should avoid merging cells because they almost always cause problems for macros. After you have unmerged the cells, copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in A1 and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Application.ScreenUpdating = False
    Dim fnd As Range
    Set fnd = Range("A2", Range("A" & Rows.Count).End(xlUp)).Find(Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not fnd Is Nothing Then
        Range("A" & fnd.Row + 1).Resize(9, 5).Copy Range("A2")
    End If
    Application.ScreenUpdating = True
End Sub

not working as i want

 

[mumps]

It is hard to work with a picture. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary). Also include a screenshot of your expected result.