Copying data based on a value in another cell

[tenbellies]

Hi,

I have an very large excel sheet, changes regularly with new info, what I need to do is copy part of this into a blank S/Sheet but I do need multiple entries depending on a criteria

In Column A I have a name EG Bob
In

Column ​

B a number value EG 3

What I want to do is copy the data in

Column ​

A into a new spreadsheet (column A) the same number of times based on the number in column B EG if the number value is 3 copy Bob three times in cells under each other (same would be if the number was 30)

Hopefully this makes sense

 

[My Aswer Is This]

You said:

into a new spreadsheet​

Do you mean new Workbook or Worksheet
We no longer use the term Spreadsheet.

And do we need to make a new Worksheet?
And if so what name do we give the new Worksheet
What is the name of the original Worksheet?

 

[My Aswer Is This]

Assuming you want to copy data from sheet(1)
And paste new data into sheet(2)
Try this:

Sub Test()
'Modified 5/8/2018 9:30 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 2 To Lastrow
        Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Cells(i, 1).Copy Sheets(2).Cells(Lastrowa, 1).Resize(Cells(i, 2))
    Next
Application.ScreenUpdating = True
End Sub

 

[tenbellies]

Brillant thanks for that

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Brillant thanks for that