Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro CopyData Help
I need help with a CopyData macro
Sub CopyData() Dim RngColA As Range Dim i As Range Application.ScreenUpdating = False Set RngColA = Range("A2", Range("A" & Rows.Count).End(xlUp)) For Each i In RngColA With Sheets(i.Value) Range(Cells(i.Row, 2), Cells(i.Row, 10)).Copy .Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial End With Next i Application.ScreenUpdating = True End Sub This is what someone told me to use but it is not working.... What I need to do is if Column "A", starting with A5, has certain text in it then that row will be copied to its corresponding spreadsheet.. Example: Cell A5 says "Eva Perryman" I need cells B5-J5 to be copied to the worksheet called Eva Perryman, and so forth for each name in Column A... If you respond keep in mind that I am not a macrto person so you will have to explain in detail how to get it to work..... I can send the file to you to work it if you need me to.... my email address is |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |