Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Help
Greg, Thanks for all your help! You were very close in nailing it on th head. I had to add one statement "ActiveCell.Offset(1, 0).Select" afte the copy statement because it just kept overwriting the previous paste I also added a few other things as well. This is what I ended up doing Sub Electrical() HomeSheet = ActiveSheet.Name 'Insert Electrical Sheet Sheets.Add.Name = "ELECTRICAL" Sheets(HomeSheet).Select 'Go to Electrical sheet and prepare it to receive the coping Sheets("Electrical").Select Range("A1").Select 'Go back to the original sheet Sheets(HomeSheet).Select 'Seperate Electrical Tags Range("I1").Select While Not ActiveCell = "" If ActiveCell = "E" Then Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Copy Sheets("Electrical").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.Offset(1, 0).Select Sheets(HomeSheet).Select End If ActiveCell.Offset(1, 0).Select Wend 'Copy Electrical Tags to Clipboard Sheets("Electrical").Select Columns("A:A").EntireColumn.AutoFit Columns("F:F").EntireColumn.AutoFit Columns("G:G").EntireColumn.AutoFit Cells.Select Application.CutCopyMode = False Selection.Copy End Sub Scot -- ----------------------------------------------------------------------- 's Profile: http://www.excelforum.com/member.php...fo&userid=1627 View this thread: http://www.excelforum.com/showthread.php?threadid=27684 |
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 |