i have two sheets in which one is blank

using vba code i want to copy column one three seven and paste them into another sheet

On Tuesday, September 11, 2012 11:26:10 AM UTC-4, TIMOTHY wrote:
i have two sheets in which one is blank



using vba code i want to copy column one three seven and paste them into another sheet

Try this (you may need to change sheet names as applicable)

Sub CopyColumns()
Sheets("Sheet1").Range("A:A,C:C,G:G").Copy _
Sheets("Sheet2").Range("A1")
End Sub

On Sep 12, 7:05*am, wrote:
On Tuesday, September 11, 2012 11:26:10 AM UTC-4, TIMOTHY wrote:
i have two sheets in which one is blank

using vba code i want to copy column one three seven and paste them into another sheet

Try this (you may need to change sheet names as applicable)

Sub CopyColumns()
Sheets("Sheet1").Range("A:A,C:C,G:G").Copy _
* * Sheets("Sheet2").Range("A1")
End Sub

suppose column headings of that three are suppliername, contact, and
emailid. And if i dont know the column no. In that case?

On Sep 12, 7:05*am, wrote:
On Tuesday, September 11, 2012 11:26:10 AM UTC-4, TIMOTHY wrote:
i have two sheets in which one is blank

using vba code i want to copy column one three seven and paste them into another sheet

Try this (you may need to change sheet names as applicable)

Sub CopyColumns()
Sheets("Sheet1").Range("A:A,C:C,G:G").Copy _
* * Sheets("Sheet2").Range("A1")
End Sub

suppose column headings of that three are suppliername, contact, and
emailid. And if i dont know the column no. In that case?

On Sep 12, 7:05*am, wrote:
On Tuesday, September 11, 2012 11:26:10 AM UTC-4, TIMOTHY wrote:
i have two sheets in which one is blank

using vba code i want to copy column one three seven and paste them into another sheet

Try this (you may need to change sheet names as applicable)

Sub CopyColumns()
Sheets("Sheet1").Range("A:A,C:C,G:G").Copy _
* * Sheets("Sheet2").Range("A1")
End Sub

suppose column headings of that three are suppliername, contact, and
emailid. And if i dont know the column no. In that case?

suppose column headings of that three are suppliername, contact, and

emailid. And if i dont know the column no. In that case?

Try:

Sub FindandCopy()
Dim x As Long
Dim sFind(1 To 3) As String
Dim sFound As String

'Update values below as necessary
sFind(1) = "suppliername"
sFind(2) = "contact"
sFind(3) = "emailid"

On Error Resume Next
For x = 1 To 3
'Change "Rows("1:1")" to whatever range includes your column headings
sFound = sFound & Rows("1:1").Find(What:=sFind(x), After:=Cells(1, 1), LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).EntireColumn.Address & ","
Next x
On Error GoTo 0

If Len(sFound) 1 Then
sFound = Left(sFound, Len(sFound) - 1)
Sheets("Sheet1").Range(sFound).Copy _
Sheets("Sheet2").Range("A1")
End If
End Sub