how to paste data without opening file any vb code

[chetanmehra1989]

hello frd
can u tell me one think how to copy the data without opening file
for Ex..

i have large data in sheet1

amit-report
name id create-date
chetan1 1 1-june-12
chetan2 1 1-june-12
chetan3 1 1-june-12
chetan4 1 1-june-12

raj-report
name id create-date
anil1 1 1-june-12
anil2 1 1-june-12
anil3 1 1-june-12
anil4 1 1-june-12


i want this type of data copy+paste in next sheet(sheet2)
name id create-date
chetan1 1 1-june-12
chetan2 1 1-june-12
chetan3 1 1-june-12
chetan4 1 1-june-12
anil1 1 1-june-12
anil2 1 1-june-12
anil3 1 1-june-12
anil4 1 1-june-12



can any body help me to sort this matter

thanks & Regards
Chetan.mehra7

 

[patel45]

I don't understand, why without opening file ?

 

[chetanmehra1989]

ok patel45 tell me the code with open file

 

[patel45]

Sub a()
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
With sh2
.Cells(1, 1).Value = "name"
.Cells(1, 2).Value = "id"
.Cells(1, 3).Value = "create-date"
End With
With sh1
lastrow = .Range("A" & Rows.Count).End(xlUp).Row
row2 = 2
For j = 1 To lastrow
If .Cells(j, 2) <> "" And .Cells(j, 2) <> "id" Then
.Rows(j).Copy sh2.Rows(row2)
row2 = row2 + 1
End If
Next
End With
End Sub

 

[chetanmehra1989]

thank patel 45 its working but i want this type of data in next sheet(sheet2)
name id create-date
chetan1 1 1-june-12
chetan2 1 1-june-12
chetan3 1 1-june-12
chetan4 1 1-june-12
anil1 1 1-june-12
anil2 1 1-june-12
anil3 1 1-june-12
anil4 1 1-june-12

 

[patel45]

I'm sorry, I don't understand wat you mean

 

[chetanmehra1989]

your code is giving this types of result



name id create-date
name id create-date
chetan1 1 1-june-12
chetan2 1 1-june-12
chetan3 1 1-june-12
chetan4 1 1-june-12
name id create-date
anil1 1 1-june-12
anil2 1 1-june-12
anil3 1 1-june-12
anil4 1 1-june-12


but i want this type of result


name id create-date

 

[chetanmehra1989]

name id create-date
chetan1 1 1-june-12
chetan2 1 1-june-12
chetan3 1 1-june-12
chetan4 1 1-june-12
anil1 1 1-june-12
anil2 1 1-june-12
anil3 1 1-june-12
anil4 1 1-june-12