MobileMobile | Continue

Excel Bar

Excel Bar

Your excel questions will be responsed by our excel experts within 24hrs.Our service is free.

 Forgot Pass?
 Register Now
Find
Hot Search: Vlookup Match VBA
View: 317|Reply: 5

Transfer row cell data from one excel file to another [SOLV

[Copy link]

3

Topics

6

Posts

23

Integral

Member

Rank: 2

Integral
23
Post on 2-11-2017 21:02:45 | All posts |Read mode
I have 7 cells with real time data in each one  in one row H15 to N15 in sheet 1 of file 1
This data changes daily so I only have to make the transfer once a day
I want to transfer these cells to another sheet in file 2 from B to H but I want each day on a separate row and I want just the values only I don't want any formulas in these cells
Currently I am doing it manually by copying the cells from file 1 and pasting the values only in file 2
I was just wandering if there is an easier method of transferring the data hopefully without any complicated programing




Reply

Props Report

3

Topics

63

Posts

167

Integral

Conqueror

Rank: 3Rank: 3

Integral
167
Post on 2-11-2017 21:24:07 | All posts



Hi,
see if it works for you
Sub Button1_Click()
Application.ScreenUpdating = 0
Workbooks.Open Filename:=c:\users\George\desktop\_K.xls 'your new workbook and path
'copy.xls is the workbook where you wnat to copy from
Workbooks(copy.xls).Worksheets(Sheet1).Range(h15:n15).Copy Destination:=ActiveSheet.Range(b  Rows.Count).End(xlUp).Offset(1) '.Select
'Save and Close workbook
    Workbooks(_K.xls).Close SaveChanges:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub











Reply Support Opposition

Props Report

3

Topics

6

Posts

23

Integral

Member

Rank: 2

Integral
23
 Author| Post on 2-11-2017 22:59:18 | All posts



It doesn't look like it's doing anything
I have a blank sheet before and after I ran the code




Reply Support Opposition

Props Report

3

Topics

6

Posts

23

Integral

Member

Rank: 2

Integral
23
 Author| Post on 2-11-2017 23:27:27 | All posts



Update
Ok I got it to work
I am new to VBA programing so I wasn't sure how it supposed to work but after I added some numbers in h15 to n15 it worked
Thanks for the help
Now I have to tweak it a little because I want it to start at the last row of my file not at the top of the page and also I don't want the formulas to transfer only the values
Reply Support Opposition

Props Report

3

Topics

63

Posts

167

Integral

Conqueror

Rank: 3Rank: 3

Integral
167
Post on 2-12-2017 00:58:37 | All posts



Hi,
see if it works for you
Sub Button1_Click()
Application.ScreenUpdating = 0
Workbooks.Open Filename:=c:\users\George\desktop\_K.xls 'your new workbook and path
'copy.xls is the workbook where you wnat to copy from
Workbooks(copy.xls).Worksheets(Sheet1).Range(h15:n15).Copy Destination:=ActiveSheet.Range(b  Rows.Count).End(xlUp).Offset(1) '.Select
'Save and Close workbook
    Workbooks(_K.xls).Close SaveChanges:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub











Reply Support Opposition

Props Report

3

Topics

63

Posts

167

Integral

Conqueror

Rank: 3Rank: 3

Integral
167
Post on 2-12-2017 02:56:01 | All posts



Hi,
see if it works for you
Sub Button1_Click()
Application.ScreenUpdating = 0
Workbooks.Open Filename:=c:\users\George\desktop\_K.xls 'your new workbook and path
'copy.xls is the workbook where you wnat to copy from
Workbooks(copy.xls).Worksheets(Sheet1).Range(h15:n15).Copy Destination:=ActiveSheet.Range(b  Rows.Count).End(xlUp).Offset(1) '.Select
'Save and Close workbook
    Workbooks(_K.xls).Close SaveChanges:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub











Reply Support Opposition

Props Report

Points policy of this forum

Archiver|Mobile|Small dark house|Contact us|Excel Bar

GMT-5, 11-19-2017 16:14 , Processed in 0.165908 second(s), 20 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

!fastreply! Top !return_list!