Skip to main content

copy a range column after the last column with in MS Excel

Option Explicit

'Copy a range/column after the last column with data

'Note: This example use the function LastCol

'This example copy column A from each sheet after the last column with data on the DestSh.

'I use A:A to copy the whole column but you can also use a range like A1:A10

'Use A:C if you want to copy more columns.

'Change it here

''Fill in the column(s) that you want to copy

'Set CopyRng = sh.Range("A:A")

'Remember that Excel 97-2003 have only 256 columns.

'Excel 2007 has 16384 columns.

'When you run one of the examples it will first delete the summary worksheet 'named DBMergeSheet if it exists and then adds a new one to the workbook.'This ensures that the data is always up to date after you run the code.

 Sub AppendDataAfterLastColumn()  
 Dim sh As Worksheet  
 Dim DestSh As Worksheet  
 Dim Last As Long  
 Dim CopyRng As Range  
 With Application  
 .ScreenUpdating = False  
 .EnableEvents = False  
 End With  
 'Delete the sheet "RDBMergeSheet" if it exist  
 Application.DisplayAlerts = False  
 On Error Resume Next  
 ActiveWorkbook.Worksheets("RDBMergeSheet").Delete  
 On Error GoTo 0  
 Application.DisplayAlerts = True  
 'Add a worksheet with the name "RDBMergeSheet"  
 Set DestSh = ActiveWorkbook.Worksheets.Add  
 DestSh.Name = "RDBMergeSheet"  
 'loop through all worksheets and copy the data to the DestShFor Each sh In ActiveWorkbook.Worksheets  
 'Loop through all worksheets except the RDBMerge worksheet and the 'Information worksheet, you can ad more sheets to the array if you want.  
 If IsError(Application.Match(sh.Name, _Array(DestSh.Name, "Information"), 0)) Then  
 'Find the last Column with data on the DestSh  
 Last = LastCol(DestSh)  
 'Fill in the column(s) that you want to copy  
 Set CopyRng = sh.Range("A:A")  
 'Test if there enough rows in the DestSh to copy all the data  
 If Last + CopyRng.Columns.Count > DestSh.Columns.Count Then  
 MsgBox "There are not enough columns in the Destsh"  
 GoTo ExitTheSub  
 End If  
 'This example copies values/formats and Column width  
 CopyRng.Copy  
 With DestSh.Cells(1, Last + 1)  
 .PasteSpecial 8 ' Column width  
 .PasteSpecial xlPasteValues  
 .PasteSpecial xlPasteFormats  
 Application.CutCopyMode = False  
 End With  
 End If  
 Next  
 ExitTheSub:  
 Application.GoTo DestSh.Cells(1)  
 With Application  
 .ScreenUpdating = True  
 .EnableEvents = True  
 End With  
 End Sub  

Popular posts from this blog

Resolved : Power BI Report connection error during execution

Getting Below Power BI Report connection error during execution . Error: Something went wrong Unable to connect to the data source undefined. Please try again later or contact support. If you contact support, please provide these details. Underlying error code: -2147467259 Table: Business Sector. Underlying error message: AnalysisServices: A connection cannot be made. Ensure that the server is running. DM_ErrorDetailNameCode_UnderlyingHResult: -2147467259 Microsoft.Data.Mashup.ValueError.DataSourceKind: AnalysisServices Microsoft.Data.Mashup.ValueError.DataSourcePath: 10.10.10.60;T_CustomerMaster_ST Microsoft.Data.Mashup.ValueError.Reason: DataSource.Error Cluster URI: WABI-WEST-EUROPE-redirect.analysis.windows.net Activity ID: c72c4f12-8c27-475f-b576-a539dd81826a Request ID: dfb54166-c78f-4b40-779f-e8922a6687ad Time: 2019-09-26 10:03:29Z Solution: We found report connection not able to connect to SQL Analysis service so tried below option. Re

Song- Khamoshiyan Piano keyboard Chord,Notation and songs Lyrics

All songs notation and chords at one place

Song : O Saathi Re Film : Mukhathar Ka Sikkandhar Uses : C D D# E G A Note : The numbers at the end of the lines indicate line numbers. Pallavi: O saathi re, tere binaa bhi kya jina, tere binaa bhi kya jina A- C D D#....,D D C DD E...C..CA-...,D D C DD E...CC.......1 Play line 1 again phulon men khaliyon men sapnom ki galiyon men GGG...GAGE.. GGG G A G E.................................................2 tere bina kuchh kahin naa E A G E D C D D#.......................................................................3 tere binaa bhi kya jina, tere binaa bhi kya jina D D C DD E....C..CA-..., D D C DDE....CC.............................4 Charanam: har dhadkan men, pyaas hai teri, sanson men teri khushboo hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................5 is dharthi se, us ambar tak, meri nazar men tu hi tu hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................6 pyaar yeh tute naa GGG... GAG D#......E.........................