data transfer through loop

[bakhtawar]

i have this kind of data in excel file

Exportfile.xlsx 
 
      A        B 
1)    Head  31-Dec-2017 
2)    a         23 
3)    b         45 
4)    c         46  

Datasheet.xlsx

And in datasheet data like this

1)           A 
2) QUARTER          Data 
3) 31 Mar 2017   
4) 30 Jun 2017   
5) 30 Sep 2017   
6) 31 Dec 2017   
7)   
8)   
9)         B    
10) QUARTER          Data 
11) 31 Mar 2017  
12) 30 Jun 2017  
13) 30 Sep 2017  
14) 31 Dec 2017  
15)  
16)  
17)         C   
18)QUARTER          Data 
19) 31 Mar 2017  
20) 30 Jun 2017  
21) 30 Sep 2017  
22) 31 Dec 2017  

now i want to paste values from exportfile to datasheet and want data like this

1)           A  
2) QUARTER          Data 
3) 31 Mar 2017   
4) 30 Jun 2017   
5) 30 Sep 2017   
6) 31 Dec 2017         23 
7)   
8)   
9)         B   
10) QUARTER          Data 
11) 31 Mar 2017  
12) 30 Jun 2017  
13) 30 Sep 2017  
14) 31 Dec 2017          45 
15)  
16)  
17)         C    
18) QUARTER          Data 
19) 31 Mar 2017  
20) 30 Jun 2017  
21) 30 Sep 2017  
22) 31 Dec 2017          46  

now i do this code

Sub copy_data(File_Name) 
   For i = 2 To 4 
Windows("Exportfile.xlsx").Activate 
    Sheets("ESheet").Select 
         Cells(i, 2).Select 
     Selection.Copy 
Windows(File_Name).Activate 
    Sheets("Dsheet").Select 
   On Error Resume Next 
  **j = '' here what i do**  
    Cells(j, 2).Select 
   On Error Resume Next 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False  

Next
End Sub
now in above code on J line what should i do so values copy from export file and paste in datasheet in quarter 31 Dec 2017 through loop

any solution ?

[jindon]

Assuming both workbooks are open.
Run the code from "export.xlsx"

Please Login or Register  to view this content.

[bakhtawar]

you mean i run this code on OF sheet?

[bakhtawar]

i want to code in OF sheet so when i run code on OF the values from export select and paste in OF file in E1 sheet in reserve column .. .

[jindon]

Paste the code on to export.xlsx then run the code.

[bakhtawar]

I did not understand why on export file .. ? because on other projects i did code on OF sheet ? i want to do code in OF sheet not on export file

[jindon]

Then ignore my post.

[bakhtawar]

will you please do the same code on sheet and then send me the sheet .. and secondly i try your code this shows an error

check image

Capture.PNG

[jindon]

I'm sending these messages from my phone and am too busy.

will change the code later this afternoon.

[bakhtawar]

chcek updated question