mclean2007
New Member
- Joined
- Aug 23, 2010
- Messages
- 22
Need to copy Data from one sheet to another, The Sheet I need to copy from has an auto filter on it that changes depending on what I need to look up, I need to copy the filtered data to a new Sheet how to set the Formula to Change based on first Row<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
fficeffice" /><o
></o>
<o> </o>
If Row 4 is First Row after Auto Filter Then<o></o>
<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><o></o>
<o></o>
<o> </o>
Range("A4").Select<o></o>
Range(Selection, Selection.End(xlDown)).Select<o></o>
Application.CutCopyMode = False<o></o>
Selection.Copy<o></o>
Sheets("Review").Select<o></o>
Range("A7").Select<o></o>
ActiveSheet.Paste<o></o>
<o> </o>
If Row 6 is First Row after Auto Filter Then<o></o>
<o></o>
<o> </o>
Range("A6").Select<o></o>
Range(Selection, Selection.End(xlDown)).Select<o></o>
Application.CutCopyMode = False<o></o>
Selection.Copy<o></o>
Sheets("Review").Select<o></o>
Range("A7").Select<o></o>
ActiveSheet.Paste<o></o>
<o> </o>
<o></o>
fficeffice" /><o></o><o
> </o>If Row 4 is First Row after Auto Filter Then<o
></o><?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o
referrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><o></o><o
></o><o
> </o>Range("A4").Select<o
></o>Range(Selection, Selection.End(xlDown)).Select<o
></o>Application.CutCopyMode = False<o
></o>Selection.Copy<o
></o>Sheets("Review").Select<o
></o>Range("A7").Select<o
></o>ActiveSheet.Paste<o
></o><o
> </o>If Row 6 is First Row after Auto Filter Then<o
></o><o
></o><o
> </o>Range("A6").Select<o
></o>Range(Selection, Selection.End(xlDown)).Select<o
></o>Application.CutCopyMode = False<o
></o>Selection.Copy<o
></o>Sheets("Review").Select<o
></o>Range("A7").Select<o
></o>ActiveSheet.Paste<o
></o><o
> </o><o
></o>
see if below is a better explanation
