Transfer data from 1 sheet to another with cond.
Solved/Closed
Kate.K22
vcoolio
- Posts
- 2
- Registration date
- Saturday March 17, 2018
- Status
- Member
- Last seen
- March 21, 2018
vcoolio
- Posts
- 1344
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- May 17, 2022
Related:
- Transfer data from 1 sheet to another with cond.
- How to transfer data from 1 sheet to another in excel - Guide
- Excel transfer data from one sheet to another ✓ - Forum - Excel
- How to transfer data from one sheet to another in excel using macros - Guide
- Automatically transfer data from one sheet to another in excel - Guide
- Transfer data from one sheet to another automatically ✓ - Forum - Excel
2 replies
vcoolio
Mar 18, 2018 at 02:22 AM
- Posts
- 1344
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- May 17, 2022
Mar 18, 2018 at 02:22 AM
Hello Kate,
Try the following code placed in the Summary sheet module:-
The code is a WorkSheet_Change event and needs to be placed in the Summary sheet module. To implement the code:-
- Right click on the Summary sheet tab.
- Select "View Code" from the menu that appears.
- In the big white field that then appears, paste the above code.
I've assumed that the "Action" column is Column I.
Every time that you select an action from the drop downs in Column I, the relevant row of data will be transferred to the relevant sheet. You must make sure that the spelling in the drop downs (inc. cases, punctuation, spaces etc.) is exactly the same as the tab spelling.
Following is the link to a little sample that I have prepared for you:-
http://ge.tt/91PBR3p2
Select an action from the drop downs in any cell in Column I then click away (or press enter or down arrow) to see the code work.
I hope that this helps.
Cheerio,
vcoolio.
Try the following code placed in the Summary sheet module:-
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Intersect(Target, Columns("I:I")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.EntireRow.Copy Sheets(Target.Value).Range("A" & Rows.Count).End(3)(2) Sheets(Target.Value).Columns.AutoFit Application.EnableEvents = True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
The code is a WorkSheet_Change event and needs to be placed in the Summary sheet module. To implement the code:-
- Right click on the Summary sheet tab.
- Select "View Code" from the menu that appears.
- In the big white field that then appears, paste the above code.
I've assumed that the "Action" column is Column I.
Every time that you select an action from the drop downs in Column I, the relevant row of data will be transferred to the relevant sheet. You must make sure that the spelling in the drop downs (inc. cases, punctuation, spaces etc.) is exactly the same as the tab spelling.
Following is the link to a little sample that I have prepared for you:-
http://ge.tt/91PBR3p2
Select an action from the drop downs in any cell in Column I then click away (or press enter or down arrow) to see the code work.
I hope that this helps.
Cheerio,
vcoolio.
vcoolio
Mar 21, 2018 at 06:18 AM
- Posts
- 1344
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- May 17, 2022
Mar 21, 2018 at 06:18 AM
You're welcome Kate. I'm glad that I was able to help.
Cheerio,
vcoolio.
Cheerio,
vcoolio.
Mar 21, 2018 at 06:14 AM