cboshdave
05-02-2023, 07:04 AM
I'm trying to create a simple macro to adjust the positions of cells. I don't understand why the Copies and Select work, but the Paste or PasteSpecial don't work? The Paste gives me a Run-time error '438': Object doesn't support this property or method
The PasteSpecial throws Run-time error '1004': PasteSpecial method of Range class failed
Sub CopyAcross()
ActiveCell.Offset(1, 0).Cut
ActiveCell.Offset(-1, 1).Paste 'or PasteSpecial xlPasteAll
ActiveCell.Offset(2, 0).Cut
ActiveCell.Offset(0, 2).Paste
ActiveCell.Offset(3, 0).Select 'Move to the next section
End Sub
I was just trying to keep it simple. Apparently, it can't be that simple?
The PasteSpecial throws Run-time error '1004': PasteSpecial method of Range class failed
Sub CopyAcross()
ActiveCell.Offset(1, 0).Cut
ActiveCell.Offset(-1, 1).Paste 'or PasteSpecial xlPasteAll
ActiveCell.Offset(2, 0).Cut
ActiveCell.Offset(0, 2).Paste
ActiveCell.Offset(3, 0).Select 'Move to the next section
End Sub
I was just trying to keep it simple. Apparently, it can't be that simple?