This Cant Be Done on a Multiple Range Selection. Select a Single Range and Try Again
Hi,
Excluding columns C & F from the copy is easy enough but may not exist what y'all desire, I'm not sure.
Select the information in A1:G5 then tap F5 - Special - Select Constants - OK
Press CTRL+C (copy the data)
Select A1 in the destination range and CTRL+5 to paste it
The drawback and which is why i say it may not meet your needs is the 5 copied columns are now adjacent
If this post answers your question, please mark information technology every bit the Respond.
Mike H
If this response answers your question and then please mark as answer. Mike H
Was this reply helpful?
Thanks for replying Mike! You're right, this doesn't meet my needs. This is basically what the tech support guy told me to do.
Thanks for trying!! ;)
Was this reply helpful?
I am agape AFAIK this is not possible!
Was this reply helpful?
OK,
Fancy a macro?
Alt+F11 to open VB editor. Right click 'ThisWorkbook' and insert module and paste this lawmaking in.
Now select all the information to copy (maybe use the F5 method) and run the macro and data will be copied to the same place in the new canvas. Change DstSheet to your destination sheet name
Sub LoopThrough()
Dim rCell As Range
Fix DstSheet = Sheets("Sheet2")
For Each rCell In Selection.Cells
rCell.Copy Destination:=DstSheet.Cells(rCell.Row, rCell.Column)
Adjacent rCell
End Sub
If this mail service answers your question, please mark it equally the Reply.
Mike H
If this response answers your question then delight mark as answer. Mike H
half-dozen people establish this reply helpful
·
Was this reply helpful?
Macro'south scare me a little.
Was this reply helpful?
How-do-you-do,
To exist brutally honest, you volition have to overcome your fear or spend a lot of time copying and pasting individual ranges because you can't practise what y'all require with a simple copy/paste.
Try this on a non critical test workbook and trust me in that location'southward nothing to be afraid of, all the macro does is loop through all selected cells and copies them into the aforementioned address as they came from.
If this post answers your question, please mark it every bit the Answer.
Mike H
If this response answers your question then please mark as reply. Mike H
Was this reply helpful?
ok, I'll try information technology. Cheers.
Was this reply helpful?
Excellent news, don't forget to feed back on how you get on
If this post answers your question, please mark information technology equally the Answer.
Mike H
If this response answers your question then delight marking as answer. Mike H
Was this reply helpful?
If this is something y'all need regularly. You will need to accept a third canvass (formulas) copy all your formulas from the Final sheet and make sure that all other cells are empty. When you have that, copy your range from Original (if demand be the whole canvass) and paste it into Final (formulas and all). So goto the sail Formulas and re-create the exact same range (can also be the whole sheet). Now back to Last select the first of the range (A1 for whole canvass), then paste special >> select "formulas" and "skip blanks". This volition put your formulas dorsum into the sheet only exit the new data untouched.
Regards
Steve
Was this reply helpful?
Mike's code has the reward that one can select any arbitrary range before using it. The modifications below automatically select all the contants in the current region of the electric current selection or the electric current region for cell B3.
Sub LoopThrough2()
If Not TypeOf Selection Is Range And then Exit Sub
If Option.Areas.Count > 1 Then Go out Sub
Dim rCell Equally Range
Dim DstSheet Equally Worksheet
Set DstSheet = Sheets("Sheet2")
For Each rCell In Selection.CurrentRegion.SpecialCells( _
xlCellTypeConstants, _
xlErrors + xlLogical + xlNumbers + xlTextValues).Cells
rCell.Copy Destination:=DstSheet.Cells(rCell.Row, rCell.Column)
Next rCell
Stop Sub
Sub LoopThrough3()
Dim rCell Every bit Range
Dim DstSheet Equally Worksheet
Set DstSheet = Sheets("Sheet2")
For Each rCell In Range("B3").CurrentRegion.SpecialCells( _
xlCellTypeConstants, _
xlErrors + xlLogical + xlNumbers + xlTextValues).Cells
rCell.Copy Destination:=DstSheet.Cells(rCell.Row, rCell.Column)
Next rCell
Finish Sub
OK,
Fancy a macro?
Alt+F11 to open VB editor. Right click 'ThisWorkbook' and insert module and paste this code in.
Now select all the data to re-create (possibly utilize the F5 method) and run the macro and data volition be copied to the same identify in the new sheet. Alter DstSheet to your destination canvass name
Sub LoopThrough()
Dim rCell As Range
Prepare DstSheet = Sheets("Sheet2")
For Each rCell In Selection.Cells
rCell.Re-create Destination:=DstSheet.Cells(rCell.Row, rCell.Column)
Next rCell
End Sub
If this postal service answers your question, delight marking information technology as the Answer.
Mike H
Tushar Mehta (Technology and Operations Consulting)
www.tushar-mehta.com (Excel and PowerPoint add-ins and tutorials)
Microsoft MVP Excel 2000-Nowadays
Tushar Mehta (MVP Excel 2000-2015)
Excel and PowerPoint tutorials and add-ins
www.tushar-mehta.com
Was this reply helpful?
Source: https://answers.microsoft.com/en-us/msoffice/forum/all/cant-copy-and-paste-multiple-ranges/94dc2beb-847d-46b8-b1b8-025b1ffc3af5
0 Response to "This Cant Be Done on a Multiple Range Selection. Select a Single Range and Try Again"
Enregistrer un commentaire