Auto populate from master file to other
Solved/Closed
MohamedGhouse
Posts
4
Registration date
Monday 26 March 2018
Status
Member
Last seen
18 April 2018
-
26 Mar 2018 à 06:06
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 19 Apr 2018 à 10:46
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 19 Apr 2018 à 10:46
Related:
- Automate master file
- Master royale - Download - Strategy
- Dvi file - Guide
- Windows 10 iso file download 64-bit - Download - Windows
- Pokemon emerald rom file - Download - Role playing
- How to open .ps file - Guide
2 responses
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
27 Mar 2018 à 12:08
27 Mar 2018 à 12:08
Hi Mohamed,
Why would you want separate files, when you could have just 1 with multiple tabs? It makes data processing a lot more convenient.
Best regards,
Trowa
Why would you want separate files, when you could have just 1 with multiple tabs? It makes data processing a lot more convenient.
Best regards,
Trowa
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
9 Apr 2018 à 12:20
9 Apr 2018 à 12:20
Hi Ghouse,
Next time I will work out the changes. For now I got a code to distribute all rows to it's respective sheet. When the sheet doesn't exist, one will be created.
Put the code in a standard module.
Let me know how that works out.
Best regards,
Trowa
Next time I will work out the changes. For now I got a code to distribute all rows to it's respective sheet. When the sheet doesn't exist, one will be created.
Sub RunMe1Time()
Dim x As Integer
For Each cell In Range("E2:E" & Range("A1").CurrentRegion.Rows.Count)
cell.EntireRow.Copy
If Not SheetExists(cell.Value) Then
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = cell.Value
End If
Sheets(cell.Value).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
Next cell
End Sub
Function SheetExists(SheetName As String) As Boolean
SheetExists = False
On Error GoTo NoSuchSheet
If Len(Sheets(SheetName).Name) > 0 Then
SheetExists = True
Exit Function
End If
NoSuchSheet:
End Function
Put the code in a standard module.
Let me know how that works out.
Best regards,
Trowa
MohamedGhouse
Posts
4
Registration date
Monday 26 March 2018
Status
Member
Last seen
18 April 2018
18 Apr 2018 à 01:00
18 Apr 2018 à 01:00
Dear TrowaD
Good morning!!
Thank you so much for your response. It works good.
Mohamed Ghouse.
Good morning!!
Thank you so much for your response. It works good.
Mohamed Ghouse.
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
19 Apr 2018 à 10:46
19 Apr 2018 à 10:46
Awesome, thanks for the feedback!
28 Mar 2018 à 00:40
Thanks for your reply. Actually I have details of all person in sales department in my master file that will be shared to management but I want separate file that has to be shared to concern sales person. One sales person doesn't need to view the details of others. From single master file i need to split up in to 8 sales person individually. Kindly help me to do this.
Thanks in advance. Awaiting for your reply.
3 Apr 2018 à 11:23
Could you post some sample data?, so I can figure out what to do.
Also what do you mean by update automatically? Do you mean new rows, or changes made to existing rows (then how would Excel recognise the existing row?)?
Best regards,
Trowa
8 Apr 2018 à 07:55
Please find the details below
File No NAME CONTRACTOR VALUE SALES REP
1909 AL BAR EMIRATES CONTG CO 96,000.00 FA
1910 BURJ AL GHANDI & CCC 512,000.00 NJ
1918 BLDG J/ALI AIC CONTG 36,000.00 RB
1923 B-BAY UNEC 125,000.00 NJ
1930 B BAY UNEC 115,000.00 FA
The master file contains data of all sales representative. I need to have separate file for separate sales person. If I update the master file the individual sales has to be updated automatically.
Thanks in advance. Please suggest.
Ghouse