In this case, you may like the following way to copy the source data AND column width in one fell swoop. Select the data to be copied and press Ctrl + C. Right-click the upper-left cell of the target range. Hover over Paste Special, and then click the Keep Source Column Width icon under Paste, or press the W key on your keyboard. Keyboard Shortcuts: Excel for Mac 2011. Keyboard Shortcut. Go to bottom right corner of sheet. Excel default. Hide column(s). Excel default. Personal (keyboard shortcut tool) Database-‐like functionality for table of data. Ctrl + Opt + Cmd.
Hi, I have attached a simple spreadsheet. In column G I have a list of 'Waiting Approval','Ongoing', 'Completed' and 'Not Required' and this will be expanded at a later stage All rows of data on the 'Waiting Approval Tab' will have a status of 'Waiting Approval' Now if you look at 'Number 2, you will see the status has been selected as 'Ongoing'. Now when I select 'Ongoing', the complete row should now move to the Ongoing Tab with a status of 'Ongoing' in column G.
![How To Keep Column Data Between Sheets In Excel For Mac 2011 How To Keep Column Data Between Sheets In Excel For Mac 2011](https://www.accountingweb.com/sites/default/files/1/Duplicates%20-%20Figure%204.jpg)
The same goes for 'Number 3', when I select 'Completed', the whole row should move to the 'Completed Tab' with a status of 'Completed' Now when the row is in the 'Ongoing' Tab sheet, and I change the status to 'Completed, the row must now move to the 'Completed Tab' sheet, or if I select 'Waiting Approval', it must move back to the 'Waiting Approval Tab' sheet I need to be able to extend this to as many tabs as need be. Also, each Sheet needs to have the data in column A in ascending order I am Using MS Office 2011 for Mac Eddie. Add the following function to every worksheet. Note that it assumes that value of column G is the name of the destination worksheet; if the named worksheet does not exist, nothing happens.
![2011 2011](https://libroediting.files.wordpress.com/2014/09/11-arrange-all-tiled.png)
Public moving As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Dim oSheet As Worksheet Dim r As Long If Not moving Then If Target.Column = 7 And Target.Value ActiveSheet.Name Then On Error GoTo errorExit Set oSheet = ActiveWorkbook.Sheets(Target.Value) moving = True Target.Worksheet.Rows(Target.Row).Copy oSheet.Activate r = oSheet.Range('G' & oSheet.Rows.Count).End(xlUp).Row + 1 oSheet.Rows(r).Select oSheet.Paste Target.Worksheet.Rows(Target.Row).Delete Shift:=xlUp errorExit: moving = False End If End If End Sub Select all.