Formula to create seat bookings - Multiple labels of the same name.

[Tarrynlee]

I am wondering if there us a formula to take names from one sheet and put them on another sheet. For example John Smith has booked 5 seats, so I need 5 labels that say John Smith.
SHEET 1

SEATS	NAME
5	JOHN SMITH
2	ANNA ROGERS

SHEET 2

JOHN SMITH

JOHN SMITH

JOHN SMITH

JOHN SMITH

JOHN SMITH

ANNA ROGERS

ANNA ROGERS

Really hoping someone can help make life easier for me.

TIA Tarrynlee

 

[Ezguy4u]

Tarrynlee let's get the ball rolling. Now this should start the conversation anyway. This isn't a formula but a program. It's a start. If you aren't familiar with VBA then let us know. Usually some of the A Students will weigh in and suggests some ideas too. So this should be a good start.

Sub Tables()

Dim LastRow As Long
Dim Row1 As Long
Dim Row2 As Long
Dim Cnt1 As Long
Dim Cnt2 As Long
Dim Cnt3 As Long

LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Row2 = 1
Cnt2 = 1
Cnt3 = 1

For Row1 = 3 To LastRow

Cnt1 = Sheets("Sheet1").Cells(Row1, 1).Value

For Cnt3 = 1 To Cnt1
Sheets("Sheet2").Cells(Row2, 1) = Sheets("Sheet1").Cells(Row1, 2)
Cnt2 = Cnt2 + 1
Row2 = Row2 + 1

Next Cnt3
Row2 = Cnt2

Next Row1


End Sub