Transfer of data to other sheet
Closed
musharafpk
Posts
4
Registration date
Sunday November 8, 2015
Status
Member
Last seen
January 14, 2016
-
Nov 8, 2015 at 08:00 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Nov 11, 2015 at 07:18 PM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Nov 11, 2015 at 07:18 PM
Related:
- Transfer of data to other sheet
- Free fire transfer - Guide
- Transfer data from one excel worksheet to another automatically - Guide
- Little alchemy cheat sheet - Guide
- Google sheet right to left - Guide
- How to take screenshot of excel sheet - Guide
3 responses
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Nov 9, 2015 at 04:28 AM
Nov 9, 2015 at 04:28 AM
Hello Musharafpk,
I assume that you only want the values of the two individual cells A4 and Y4 transferred to sheet2, not the whole row from A4 to Y4. If so, then the following code may help:-
You can have a look at my test work book here:-
https://www.dropbox.com/s/459ovszsj464cs2/Musharafpk.xlsm?dl=0
to see if it is what you would like. Click on the "Copy" button to see it work.
I hope that this helps.
Cheerio,
vcoolio.
I assume that you only want the values of the two individual cells A4 and Y4 transferred to sheet2, not the whole row from A4 to Y4. If so, then the following code may help:-
Sub CopyIt()
Application.ScreenUpdating = False
If Range("AC4").Value <> "" Then
Range("A4,Y4").Copy
Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End If
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sheet2.Select
End Sub
You can have a look at my test work book here:-
https://www.dropbox.com/s/459ovszsj464cs2/Musharafpk.xlsm?dl=0
to see if it is what you would like. Click on the "Copy" button to see it work.
I hope that this helps.
Cheerio,
vcoolio.
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Nov 10, 2015 at 01:37 AM
Nov 10, 2015 at 01:37 AM
Hello Musharafpk,
You can upload a sample of your work book by using a free file sharing site such as DropBox, ge.tt or Speedyshare and then advise us of the link to your file ( much like the link to my test file above).
Be careful with any sensitive data.
Cheerio,
vcoolio.
You can upload a sample of your work book by using a free file sharing site such as DropBox, ge.tt or Speedyshare and then advise us of the link to your file ( much like the link to my test file above).
Be careful with any sensitive data.
Cheerio,
vcoolio.
musharafpk
Posts
4
Registration date
Sunday November 8, 2015
Status
Member
Last seen
January 14, 2016
Nov 11, 2015 at 07:26 AM
Nov 11, 2015 at 07:26 AM
Dear Vcoolio
https://www.dropbox.com/s/wzhc20elke22bzz/Main%20sheet%20working.xlsx?dl=0 please see this link for my help.
Thanks
https://www.dropbox.com/s/wzhc20elke22bzz/Main%20sheet%20working.xlsx?dl=0 please see this link for my help.
Thanks
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Nov 11, 2015 at 07:18 PM
Nov 11, 2015 at 07:18 PM
Hello Musharafpk,
Based solely on your comments in AA4, the following code should work for you:-
Here is a link to your work book updated with the code:-
https://www.dropbox.com/s/34trvgenubslicx/Musharafpk%282%29.xlsm?dl=0
You will note that in the sheet "Tariq", I have removed the formulas from Column E as you do not have them in rows 4 - 9 and they were also hindering the correct pasting process on execution of the code.
I hope that this helps.
Cheerio,
vcoolio.
Based solely on your comments in AA4, the following code should work for you:-
Sub CopyData()
Application.ScreenUpdating = False
If Range("AA4") <> "" Then
Range("A4").Copy
Sheets("Tariq").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Range("AA4").Copy
Sheets("Tariq").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End If
Sheets("Tariq").Select
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
Here is a link to your work book updated with the code:-
https://www.dropbox.com/s/34trvgenubslicx/Musharafpk%282%29.xlsm?dl=0
You will note that in the sheet "Tariq", I have removed the formulas from Column E as you do not have them in rows 4 - 9 and they were also hindering the correct pasting process on execution of the code.
I hope that this helps.
Cheerio,
vcoolio.
Nov 9, 2015 at 07:01 AM
Waiting for your kind reply