MACRO to split data into multiple sheet

Closed
kittyluting22 Posts 1 Registration date Monday June 26, 2017 Status Member Last seen June 26, 2017 - Updated on Jun 26, 2017 at 11:37 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jun 26, 2017 at 11:38 AM
I have a data sheet with below columns, would like a macro to split data into each tab according to cardholder_name if this is possible

Cardholder_Name Merchant Merchant_Location Date_Occurred Date_Posted Settlement_Amount

1 response

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Jun 26, 2017 at 11:38 AM
Hi Kittyluting22,

See if the following code does as requested:

Sub RunMe()
For Each cell In Range("A2:A" & Range("A1").End(xlDown).Row)
    cell.EntireRow.Copy Sheets(cell.Value).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next cell
End Sub


Best regards,
Trowa
0