VBA Copy Merged Cells

[jamescooper]

Hello my code below, V6 is a single cell and copys perfectly - with D6, it is merged to D6:E7, how do I make this copy too? I have tried D6 but I am yet to have any joy, many thanks.

Private Sub Data_to_Database()


 Application.ScreenUpdating = False


    Dim NextRow As Range
    
    Sheets("Entry - Accidents").Range("V6", "D6").Copy
        
    Sheets("Data - Accidents").Select
    Set NextRow = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
    NextRow.Select
    Selection.PasteSpecial (xlValues), Transpose:=True

End Sub

 

[cerfani]

Instead of using copy paste you can try to just set the value from the other cell's value... maybe that will work... copying merged cells and pasting on a different sized area might be an issue. When you do it manually, Excel I believe shows an error message. Try just using values and setting them.

Range("D6").Value = Range("V6").Value

 

[Rick Rothstein]

Hello my code below, V6 is a single cell and copys perfectly - with D6, it is merged to D6:E7, how do I make this copy too? I have tried D6 but I am yet to have any joy, many thanks.

Private Sub Data_to_Database()


 Application.ScreenUpdating = False


    Dim NextRow As Range
    
    Sheets("Entry - Accidents").Range("V6", "D6").Copy
        
    Sheets("Data - Accidents").Select
    Set NextRow = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
    NextRow.Select
    Selection.PasteSpecial (xlValues), Transpose:=True

End Sub

I think you will have to copy the merged cell separately from the non-merged cell. You would do this to copy it...

Range("D6").MergeArea.Copy

 

[jamescooper]

I think you will have to copy the merged cell separately from the non-merged cell. You would do this to copy it...

Range("D6").MergeArea.Copy

Thanks, that works, now for the rest of my code - I am trying to copy it all to the next line.

This code only copies the merged cell, not the value in V6. Any ideas?

Private Sub Data_to_Database()

 Application.ScreenUpdating = False


    Dim NextRow As Range
    
        Sheets("Entry - Accidents").Range("D6").Copy
    Sheets("Entry - Accidents").Range("M7").MergeArea.Copy
    
    Sheets("Data - Tempt").Select
    Set NextRow = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
    NextRow.Select
    Selection.PasteSpecial (xlValues), Transpose:=True
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True


End Sub

 

[jamescooper]

D6, not V6!

 

[Rick Rothstein]

Thanks, that works, now for the rest of my code - I am trying to copy it all to the next line.

This code only copies the merged cell, not the value in D6. Any ideas?

The same idea that I gave you in Message #3 ... copy the non-merged cell separately from the merged cell. You already have the code for that... simply remove the V6 reference from it.