coy and paste

[agog12]

all files are located same place

vba is placed in a sepearte file c.xlsx

copy all the data from column A TO COLUMN H complete data from a.xlsx and paste it to b.xlsx in same columns

save and close the b.xlsx and a.xlsx

i need to do the same by vba

 

[yinkajewole]

Sub CopyData()
 Dim w1 As Workbook, w2 As Workbook
 Set w1 = Workbooks.Open("C:\a.xlsx") ' change the file path
 Set w2 = Workbooks.Open("C:\c.xlsx") ' change the file path
w2.Worksheets(1).Range("A1:H" & w2.Worksheets(1).Rows.Count) = _
w1.Worksheets(1).Range("A1:H" & w1.Worksheets(1).Rows.Count).Value

With w1: .Save: .Close: End With
With w2: .Save: .Close: End With

End Sub

 

[agog12]

Thnx alot sir

 

[yinkajewole]

You are welcome

 

[agog12]

This code is not perfect sir it is causing issue

 

[agog12]

in the last it is pasting this type of data and at the top it is pasting correct data plz recheck the code sir

 

[agog12]

bro its not a.xlsx its a.csv file plz relook

 

[MARK858]

Please note that by the OP's responses in another thread this issue appears to be resolved, please see the link below.

calculation by vba

vba is placed in a seperate file c.xlsm both files are located in a same place there is a file name sample1.xlsx open sample1.xlsx in column N we have to use the formula =H2/M2 and paste the result in values in column N of sample1.xlsx and in coulmn Q we have to use the formula =N2*P2 and...

www.mrexcel.com