VBA code to copy data from columns paste in new worksheet and save.

[Addictions]

Hello,

Would like to ask if you possibly know VBA code to copy data from columns SKU, Title, Picture then paste it in new workbook and save it on desktop as a file name results?.

Thanks for help in advance.

 

[JLGWhiz]

You didn't give a whole lot to work with, but maybe you can use this.

Sub t()
Dim col1 As Range, col2 As Range, col3 As Range, wb As Workbook
With ActiveSheet
    Set col1 = .Rows(1).Find("SKU", , xlValues)
    Set col2 = .Rows(1).Find("Title", , xlValues)
    Set col3 = .Rows(1).Find("Picture", , xlValues)
End With
Set wb = Workbooks.Add
    If Not col1 Is Nothing Then
        col1.EntireColumn.Copy wb.Sheets(1).Range("A1")
    If Not col2 Is Nothing Then
        col2.EntireColumn.Copy wb.Sheets(1).Range("B1")
    If Not col3 Is Nothing Then
        col3.EntireColumn.Copy wb.Sheets(1).Range("C1")
    End If
    End If
    End If
wb.SaveAs "C:\Desktop\Results.xlsx"
wb.Close False
End Sub

 

[Addictions]

Hi,

I really appreciate your help. Thank you a lot!

If I change col1.EntireColumn.Copy to col1.EntireColumn.Delete would it delete the column?.

 

[Addictions]

You didn't give a whole lot to work with, but maybe you can use this.

Sub t()
Dim col1 As Range, col2 As Range, col3 As Range, wb As Workbook
With ActiveSheet
    Set col1 = .Rows(1).Find("SKU", , xlValues)
    Set col2 = .Rows(1).Find("Title", , xlValues)
    Set col3 = .Rows(1).Find("Picture", , xlValues)
End With
Set wb = Workbooks.Add
    If Not col1 Is Nothing Then
        col1.EntireColumn.Copy wb.Sheets(1).Range("A1")
    If Not col2 Is Nothing Then
        col2.EntireColumn.Copy wb.Sheets(1).Range("B1")
    If Not col3 Is Nothing Then
        col3.EntireColumn.Copy wb.Sheets(1).Range("C1")
    End If
    End If
    End If
wb.SaveAs "C:\Desktop\Results.xlsx"
wb.Close False
End Sub

What should I amend to paste results as values so it does not copy formula?.
Thanks in advance!

 

[JLGWhiz]

Sub t()
Dim col1 As Range, col2 As Range, col3 As Range, wb As Workbook
With ActiveSheet
    Set col1 = .Rows(1).Find("SKU", , xlValues)
    Set col2 = .Rows(1).Find("Title", , xlValues)
    Set col3 = .Rows(1).Find("Picture", , xlValues)
End With
Set wb = Workbooks.Add
    If Not col1 Is Nothing Then
        col1.EntireColumn.Copy 
        wb.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    If Not col2 Is Nothing Then
        col2.EntireColumn.Copy 
        wb.Sheets(1).Range("B1").PasteSpecial xlPasteValues
    If Not col3 Is Nothing Then
        col3.EntireColumn.Copy 
        wb.Sheets(1).Range("C1").PasteSpecial xlPasteValues
    End If
    End If
    End If
wb.SaveAs "C:\Desktop\Results.xlsx"
wb.Close False
End Sub

 

[JLGWhiz]

Hi,

I really appreciate your help. Thank you a lot!

If I change col1.EntireColumn.Copy to col1.EntireColumn.Delete would it delete the column?.

Yes.