Macro create sheets from master and copy data from list to new worksheet

hi,

i need a macro to create sheets from master and copy data from list to new worksheet. i have the following list:

Name Age Gender
Alex 23 Male
Lee 32 Female
Mike 53 Male
Sandy 18 Female


The macro has to copy the row data such as "Alex" (cell A2) and paste to the new sheet's range (H22:K22), copy "23" (Cell B2) and paste to the new sheet's range (M25:P25) and copy "Male" (Cell C2) and paste to the new sheet's cell H28. Just to remind that the new sheet are created from Master. The macro will continued the copy and paste of the next row data to the next sheet until the last row which contained data ("Sandy"). The new sheets created has to be rename according to Name columns data.

Thanks in advance

Maybe:

Please Login or Register  to view this content.

Hi John,

The macro is not working. It occurred error on x = .Cells(i, "A").Value. Btw the list is in a worksheet named "RAW".
i found one Macro:

Sub Createnewtabs()

Dim ws1 As Worksheet
Dim MyCell As Range
Dim MyRange As Range

Set ws1 = ThisWorkbook.Worksheets("MASTER")

Set MyRange = Sheets("RAW").Range("C10")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
ws1.Copy After:=ThisWorkbook.Sheets(Sheets.Count)
With ActiveSheet
.Name = MyCell.Value
.Range("H23:K23").Value = MyCell.Value
End With
Next MyCell

End Sub

This macro managed to create all the new worksheets that i wanted. But the problem is it didn't copy and paste data the way i wanted it to be.

Thank you

hi anyone can help me with my problem

Hi would anyone help to rectify the macro