Copy column to other sheet.

[dwool40]

I need to copy the text from sheet 1 (Inspection) to sheet 2(results) in the form of a list. So, sheet 1 F313:F337 needs to have the text copied to sheet to Sheet 2 B3:B27. However, if, for example, I only have text in sheet 1 F313, F319, F336, I only want to copy those 3 cells to sheet 2 B3:B5. Each time sheet 1 may have text in different cells in sheet 1 F313:F337. I am fairly new to Excel so I hope this makes sense.

 

[Joe4]

Welcome to the Board!

Here is some VBA code that will do that:

Sub MyCopy()

    Dim mySrc As Range
    Dim myDest As Range
    Dim cell As Range
    Dim i As Long
    
    Application.ScreenUpdating = False
    
'   Set range to loop through
    Set mySrc = Sheets("Inspection").Range("F313:F337")
    
'   Designate first cell to paste results to
    Set myDest = Sheets("Results").Range("B3")
    
'   Loop through all cells in range
    For Each cell In mySrc
'       Check to see if something is in cell
        If cell <> "" Then
'           Copy to destination sheet
            myDest.Offset(i, 0) = cell
'           Increment row offset counter by 1 for next time
            i = i + 1
        End If
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[dwool40]

Thanks Joe! Which sheet do I enter the code? Sorry, really trying to figure this out.

 

[Joe4]

See here: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/

 

[dwool40]

Got it! Thanks so much!

 

[Joe4]

You are welcome.