View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
tkraju via OfficeKB.com tkraju via OfficeKB.com is offline
external usenet poster
 
Posts: 109
Default extract data from range,and place in the same sheet

Thank you Joel,but small tweak.
Out put not coming from D2:En, out put coming to the corresponding row of the
Name.Say my Name's 1st occurance is in ColA is A5,output is coming in the
corresponding row D5&E5 ,my 2nd occurance is A8,out put coming in D8 &E8.I
need output starts from D2,E2 next D3,E3,next D4,E4.like that.Can you please
modify a little bit.Thanks.



joel wrote:
Sub GetMatches()

'fill in column A with names
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For RowCount = 3 To LastRow
If Range("A" & RowCount) = "" Then
Range("A" & RowCount) = Range("A" & (RowCount - 1))
End If
Next RowCount

Range("D2").Formula = _
"=if(And($A2=$D$1," & _
"month($B2)=month($E$1)," & _
"year($B2)=year($E$1)),A2,"""")"
Range("D2").Copy _
Destination:=Range("D2:E" & LastRow)

Columns("E").NumberFormat = "D-MMM-YY"

End Sub

Col A-------------------Col B------------------ColC---------------------------
Col D-----------------------ColE

[quoted text clipped - 19 lines]
If I select Mary(cell D1) and Apr-099Cell E1) ,the output should display like
above.


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200904/1