Create tabs for each name in horrizontal list and add there data

tonywatsonhelp

Well-known Member
Joined
Feb 24, 2014
Messages
2,513
Office Version
365, 2019, 2016
Platform
Windows
Hi Everyone,

I have data I want to split up into clients names.
In range K5:"Last column" & 5
I have a list of clients names

I want to create a tab for each client and add there data to that page but I have a umber of problems please help if you can?

So for each name I want to create a tab call it that clients name, (but if the name is to long just shorten it not give me the error)
the filter sheet "Master" range "P25:P1000" for there name copy and paste into their sheet cell D25

please help if you can

Thanks

Tony
 

Some videos you may like

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
12,181
Office Version
2007
Platform
Windows
Let's start with this and tell me what you need.

Code:
Sub Create_tabs()
  Dim c
  For Each c In Range("K5", Cells(5, Columns.Count).End(xlToLeft))
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = Left(c, 30)
    Sheets("Master").Range("P25:P1000").Copy Range("D25")
  Next
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,102,344
Messages
5,486,310
Members
407,539
Latest member
ltwkuav

This Week's Hot Topics

Top