Combine columns in excel [Solved/Closed]

Question

Combine columns in excel [Solved/Closed]

Report

Carman - Jul 19, 2010 at 04:11 AM
Carman - Jul 19, 2010 at 08:22 PM

Hello,
i have got two sheets of data and i have arranged them into ideal orders. Now i want to place data on sheet 2 behind data on sheet 1.( in the same region/column)I need a VBA code to perform the job as further update is needed.

please take a look at the reference file:
https://authentification.site/files/23432694/Book1.xls

Sheet 3 is the output form that i want but i would like it to be in sheet 1 when the job is done.

Thanks

How to combine debit and credit columns in excel
Formula if you have credit in one column, debit in next column ✓ - Forum - Excel
Need help to create an excel macro (Combine columns) ✓ - Forum - Excel
How to duplicate rows based on cell value in a column in excel ✓ - Forum - Excel
Compare two columns in excel for partial matches - How-To - Excel
How To Compare Two Columns in Excel - How-To - Excel

2 replies

Ask a question

Blocked Profile · Answer 1 · 2010-07-19T04:50:03-0400

Answer 1 / 2

Blocked Profile
Jul 19, 2010 at 04:50 AM

Dear Carman,

Please get through the following Kioskea FAQ article in order to get the task completed.

https://ccm.net/faq/

Thank you.

rizvisa1 · Answer 2 · 2010-07-19T05:04:25-0400

Try this
This is based on assumption that columns in both sheets are in same order and at same location

Try this

Sub CopyData()
Dim lSrcMaxRows As Long
Dim lTgtLastRow
Dim Cell As Range

Dim sTgtSht As String
Dim sSrcSht As String

    sSrcSht = "Sheet2"
    sTgtSht = "Sheet1"
    
    Sheets(sSrcSht).AutoFilterMode = False
    
    Set Cell = Sheets(sSrcSht).Cells.Find("*", Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    If Cell Is Nothing Then Exit Sub
    lSrcMaxRows = Cell.Row
    
    Sheets(sTgtSht).AutoFilterMode = False
    
    Set Cell = Sheets(sTgtSht).Cells.Find("*", Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    
    If Cell Is Nothing Then
        lTgtLastRow = 0
    Else
        lTgtLastRow = Cell.Row
    End If
    
    lTgtLastRow = lTgtLastRow + 1
    
    Application.CutCopyMode = False
    
    Sheets(sSrcSht).Select
    If (lTgtLastRow = 1) Then
        Rows("1:" & lSrcMaxRows).Copy
    Else
        Rows("2:" & lSrcMaxRows).Copy
    End If
    
    Sheets(sTgtSht).Select
    Cells(lTgtLastRow, "A").PasteSpecial
    Application.CutCopyMode = False
    Set Cell = Nothing

End Sub

Combine columns in excel [Solved/Closed]

2 replies

Your reply

Subscribe To Our Newsletter!