Copy Paste - Grouped Columns

SDave

Board Regular
Joined
Aug 12, 2008
Messages
147
Bit of an odd question, I have the following code which copies data from various sheets, and pastes it into another workbook.

Code:
Sub CreateCapture()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\Users\Joe Bloggs\Desktop\RTT\Admin\Capture.xls"
         
    Windows("Cotswolds.xls").Activate
    With Worksheets("People_Data").Select
    Range("C12:V12", Range("C" & Rows.Count).End(xlUp)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Capture.xls").Activate
    Sheets("People_Data").Select
    Range("C12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    End With
    
    Windows("Cotswolds.xls").Activate
    With Worksheets("Successors_for_Roles").Select
    Range("C12:P12", Range("C" & Rows.Count).End(xlUp)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Capture.xls").Activate
    Sheets("Successors_for_Roles").Select
    Range("C12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Sheets("People_Data").Select
    Range("C12").Select
    
    End With
    
    Application.Dialogs(xlDialogSaveAs).Show
    
    If Err = cdlCancel Then
    ActiveWorkbook.Close SaveChanges:=False
    Exit Sub
    End If
    Application.ScreenUpdating = True
End Sub
What I'm finding is that the data that resides in the grouped columns (i.e. Data > Group) isn't being copied (it only occurs when the grouped columns are closed)?!

Is there any way to resolve the issue without having to open the grouped columns before copying the required data set?
 

Some videos you may like

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,001
Messages
5,508,713
Members
408,690
Latest member
Lip Renan

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top