Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A macro to copy content/sub-contents of outlines and groups in excel
Hellooo
Can someone please help ive been trying to do this for two months now and am debating whether this is even possible now? I have a spreadsheet that as lots of outlines and groups. What i want to be able to do is have a macro that finds a specfic group and then copy the content or sub tasks of that group. The macro needs to keep in mind that the location of the groups is not always in the same location within the spreadsheet and the volume of the content can vary in terms of size. further more the spreadsheet that it copies to needs too, the macro must make sure that content already in the spreadsheet is not overwritten, so should copy below onto the next line! Hope that made sense, Any ideas anyone??? Here is the code so far: Sub Copy() ' Open Data Dump workbook - the workbook to be copied too Workbooks.Open Filename:="C:\Documents and Settings\Desktop \Tester \Tester.xls" Windows("Summary.xls").Activate ' Check if the first cell contains data. If not then close file - will need a message box that tells me theres no data 'Sheet1.Activate If WorksheetFunction.CountA(Cells) = 0 Then ActiveWorkbook.Close SaveChanges:=False ActiveWorkbook.Saved = True 'If Range(" Sheet1!A1") = "" Then 'ActiveWorkbook.Close SaveChanges:=False 'ActiveWorkbook.Saved = True ' If the cell does contain data then transfer the row of data across to the Summary file Else ' the ranges are abigious does not necessarily mean this will be the distinct ranges at all time. I need a condition that allows a finding of the specific subtask and then select its ranges Range("A1:J300").Select Selection.Copy Windows("Tester.xls").Activate Sheets("Sheet1").Activate Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ':=False, Transpose:=True ' Run the trade entry and formatting macros in Trade Data file 'Enter_Trade End If ' Save and close the Trade Data file 'ActiveWorkbook.Close SaveChanges:=True 'ActiveWorkbook.Saved = True End Sub Thanks sooo much youve no idea how much i will appreciate it if someone can help Kay |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pasting into Groups/Outlines | Excel Discussion (Misc queries) | |||
Copy Outlines in Excel 2007 | Excel Discussion (Misc queries) | |||
Excel:Swap cell contents-including cell groups-betwen 2 locations | Excel Discussion (Misc queries) | |||
Macro VBA code to copy content from one worksheet to another | Excel Programming | |||
Can I lock rows together and then filter for content in groups? | Excel Discussion (Misc queries) |