Search header

[christypraveen]

Hi.. I need help..i want to search header using header name in sheet 2 and select those values in down cells and copy and paste in sheet 1..but header will merged with 10 colum. Down of the header there will be 10 values in 10 colum.. Select those and paste in sheet 1.for examaple u can see in image I given 3 colum n sub header n down value.those value need be select with sub header and pasted in sheet 1. can help me get code fr this

 

[JLGWhiz]

This might work for you. But be aware that vba does not like merged cells. However, this tested OK.

Sub t()
Dim fn As Range, ary As Variant, str As String
str = InputBox("Enter the string to find.", "SEARCH ITEM")
Set fn = Range("1:1").Find(str, , xlValues)
    If Not fn Is Nothing Then
        ReDim ary(1 To 1, 1 To 10)
        ary = fn.Offset(1).Resize(, 10).Value
        Sheet1.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 10) = ary
    End If
End Sub

 

[christypraveen]

Thank you sir.

 

[JLGWhiz]

Thank you sir.

You're welcome,
regards, JLG