Transfer data from the master sheet to other sheets.
Closed
Proloans123
Blocked Profile - Jan 26, 2018 at 11:51 AM
- Posts
- 1
- Registration date
- Thursday January 25, 2018
- Status
- Member
- Last seen
- January 25, 2018
Blocked Profile - Jan 26, 2018 at 11:51 AM
Related:
- Transfer data from the master sheet to other sheets.
- How to transfer data from one excel sheet to another - Guide
- How to pull data from a master sheet in excel - Guide
- How to transfer data from one Excel sheet to another? - Guide
- How can I transfer data from one spread sheet to another? ✓ - Forum - Excel
- Transfering data to a new sheet ✓ - Forum - Excel
1 reply
vcoolio
Updated on Jan 25, 2018 at 09:06 AM
- Posts
- 1352
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- July 19, 2022
Updated on Jan 25, 2018 at 09:06 AM
Hello Teena,
I'm not sure how your main input sheet is set up but a code as follows may be a good starting point for you:-
The code takes each telecaller's name in Column A, creates a sheet for each individual telecaller and then transfers the relevant rows of data to each individual's sheet..
Following is the link to a sample workbook that I have prepared for you:-
http://ge.tt/8xJ2tGo2
Click on the "RUN" button to see it work.
I hope that this helps.
Cheerio,
vcoolio.
I'm not sure how your main input sheet is set up but a code as follows may be a good starting point for you:-
Sub CreateNewShtsTransferData() Dim sht As Worksheet Dim lr As Long, x As Long Dim ID As Object Dim key As Variant Set sht = Sheet1 Set ID = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False Application.DisplayAlerts = False lr = sht.Range("A" & Rows.Count).End(xlUp).Row For x = 2 To lr If Not ID.Exists(sht.Range("A" & x).Value) Then ID.Add sht.Range("A" & x).Value, 1 End If Next x For Each key In ID.keys If Not Evaluate("ISREF('" & key & "'!A1)") Then Worksheets.Add(After:=Sheets(Sheets.Count)).Name = key End If sht.Range("A1:A" & lr).AutoFilter 1, key sht.[A1].CurrentRegion.Copy Sheets(key).[A1] Sheets(key).Columns.AutoFit sht.[A1].AutoFilter Next key sht.Select Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "All done!", vbExclamation End Sub
The code takes each telecaller's name in Column A, creates a sheet for each individual telecaller and then transfers the relevant rows of data to each individual's sheet..
Following is the link to a sample workbook that I have prepared for you:-
http://ge.tt/8xJ2tGo2
Click on the "RUN" button to see it work.
I hope that this helps.
Cheerio,
vcoolio.
Jan 25, 2018 at 05:07 PM
I wrote this to try to show others how these things work with each other. Let me know what you think:
https://ccm.net/faq/54862-how-to-copy-data-from-one-excel-sheet-to-another-using-a-formula
Jan 26, 2018 at 06:29 AM
I just had a look at the How To. Very nice, very informative.
I just hope that people take advantage of the How To section even if its just to make a start on the road to understanding the processes.
Cheerio,
vcoolio.
Jan 26, 2018 at 11:51 AM
That was the goal. Refer them to that first. Then help when they are stuck!