Macro to split data based on the value from specific column

[Ratna Chhetr]

Hello VBA gurus,

I am looking for a macro to split the data based on the value from the specific column.

I have attached my excel file and there is a tab called "Requirement" for more info what I would like to have.

Your help is highly appreciated and thank you in advance.

Best regards,
Ratna

[arnelgp]

i created another sheet (job) and add button to split data in "data" sheet.

[Ratna Chhetr]

Thank you arnelgp, I wanted to create separate workbook (not worksheet) and save into to C:\WIP\GLAD into the folder that has created based on the value from Column H and needs to save into respective folder based on the file created.
Folder I have is as per below (just for example)

601
604
606
610 etc

[Ratna Chhetr]

I also noticed that when I copy macro into original file, it doesn't work. In original file there are few more columns not only A:T

Also I want to lookup Date field instead column L in order to get the file name.

Thank you and I appreciate for your help.

[georgiboy]

If you are on office 365 then perhaps:

Sub test()
Dim unq As Variant
Dim tbl As Object, x As Long
Dim lc As ListColumn
Dim wbTmp As Workbook, wsTmp As Worksheet

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Set tbl = Sheet1.ListObjects(1)
Set lc = tbl.ListColumns("CostCenter")
With tbl
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=lc.DataBodyRange, Order:=xlAscending
.Sort.Apply
End With
unq = Application.Unique(lc.DataBodyRange, False, False)

For x = 1 To UBound(unq)
tbl.Range.AutoFilter lc.Index, unq(x, 1)
Set wbTmp = Workbooks.Add
Set wsTmp = wbTmp.Sheets(1)
tbl.Range.SpecialCells(xlVisible).Copy
With wsTmp
.Range("A1").PasteSpecial xlPasteValues
.Range("A1").PasteSpecial xlPasteFormats
.Cells.EntireColumn.AutoFit
End With
Application.CutCopyMode = False
With wbTmp
.SaveAs "C:\WIP\GLAD\" & unq(x, 1) & Format(Date, "MMMYYYY"), 51
.Close False
End With
Next x

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

[Ratna Chhetr]

Thank you georgiboy, It runs on the file I attached. But I tried the macro into my original file but got debug on below line. In my original file data contain through A to U column, I hope this won't be an issue. I wanted to get the file name from the Date column not just the current month.


Set tbl = Sheet1.ListObjects(1)

[georgiboy]

Maybe try the attachment:

The folder 'C:\WIP\GLAD' should already exist

[arnelgp]

here check it again.

[arnelgp]

final revision.

[Ratna Chhetr]

Thank you, looks like it works but there is one problem. File name for new workbook is picking from Column A. It should be picked from "CostCenter" field.

[Ratna Chhetr]

It only creates a folder but there is no file inside respective folder.

[arnelgp]

here is another try.
now looking at "CostCenter" column for the cost center.

[Aussiebear]

How often does Columns A & H differ?

[Ratna Chhetr]

In original data, Column H has numeric info but column A has Alfa numeric data.

[Aussiebear]

In original data, Column H has numeric info but column A has Alfa numeric data.

However in your sample file of over 23,000 rows there is no Alpha Numeric data in Column A, its all Numeric. The responses provided were based on the sample file provided.

[Ratna Chhetr]

In my original file there are alfa numeric value with over million rows. That's why wanted to split based on the value from Column H.

[georgiboy]

Did you get errors from post 7?

[Ratna Chhetr]

I tried in my original file, it only creates a folder (not all the time) and file with Row A only. I couldn't get entire data.

[arnelgp]

post again your "real" data or at least have same table format at the original.

[Ratna Chhetr]

Here you go,
All the blank columns have the data in original file. Original data has over million rows. I am unable to upload due to file size limitation. I wanted to split by Column G.

[arnelgp]

there was no table, so i add one.
because on your original post there is a table.

there is a code in ThisWorkbook, Open event, copy that to your workbook.
there is a code in Module1 copy the whole module to your workbook.
create "job" sheet to your workbook.
and add a button and assigned a sub to it.

[Ratna Chhetr]

I ran the macro on the file you send over. I got debug after created 601 folder on below line. There is no file into 601 folder though.
Below part

'arnelgp
'from macro
Private Sub FilterTable(ByVal strValue As String)
myWorkbook.Activate
myListObject.Range.AutoFilter Field:=7, Criteria1:=strValue
End Sub


Debug on below line

myWorkbook.Activate
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAqgAAABJCAYAAADxP9RSAAAd6UlEQVR4nO2dsW7b SLfH/7y4j DdfQEqgB3lBYbIXSAd7cYIFmrVDRfYQmrcCXACuHNDFotE6twS3xpuTHYBvhjkC8SxgZAvkE3eY W5BUhqSQ4mkKEu2zw8QEkvDmTMzh2eOzsyhNCGEAEEQBEEQBEHsCP zbQEIgiAIgiAIQoYcVIIgCIIgCGKn2JqD6hjvYTg/t9U80RLH0GA48bbFIAiCeHBo3SKIh4MiqI8E33oPTXsPzbrftihL8GFpGrT09ZQdWd9K 2n5dUpvflx8q6Ysu8Q9LC3Va40W/gXP5z4iluNbNP/E82Wpgxo7H eLh/wyrBuse8uMglMEo701a2lAfAPDuHm49ubt3sMypPEzLuE4Hxsvxub0FMJ71a1ojjFfBJUvhcMzC gSCkV4lJaZCQAiByGarGodhOOt3oi6xA2NZXxvKYk4FhMfrlq4/Lq2IYR3OwI/NxTsV966mfYTlN3cEnZwOZ/dR3sHUtEs0c5H3MRWnEOIUkf1bY5nWoiP9cwyVDuUdTE2zGo7LpvVlPXK6kM77g7lQde3phuz9Q 69b5okNjM8b6g9BPA2WOqj66M/EKeIDiHQhEeIUFwc/MNyGs/fouIc1/C8OLhZjF00Ad/x924IBAPRRkCyA3INIF8T5q7bz9Yhg9rx/Hge4l/Y1srF7bkB9YmeIGbNxsvBPk3s3egPG3uTu3ch7idvDv9E02DoKTtMxO4UIXqfvJg5mZP8GsDcQ4 i3MpbU8PUaBpEvBKH03cTAjm6U6N31S4zIKEl3yOAA gMe/4PxBPKjdtqcbQR9hwGY4oygq8QxptcWvj95igK Y3zP 5fwbreUDsX8Dw1Bt263e0ptvZUv1Ib6BoSkiOPE9LOOj9NlHWM594dt82mbvE8LwU mbf9Gu lY 8mRYN4jb2gb/HjO8hBxw1M23mMi XzZ2ksO/iH59hMouxf5lvs8tImLN6HLLMa2rN0YYjguRzHKkybfyUV7Dcsrz4VvzzxP9c2AYa8ga 7AMQ4q4GrAcvzJKFPtWvqzffnxq9bfAtRuCDY5QFdeW0c3XmHDg9luqM9K9q9bBxbES8/gVZlflIybX7newwf7ijVr35YaIHViGPH4 HEuTHPIG ldTr8xjjtlV2UPL5mUhWzO9WkommxQFXuyIGCW70UavlvMTVzOAH 9X6kUi1E0u4mlY93Cs942/ICWdqGFPm9j7DtetnB2X7bNxCZU5iAtlnHgRmS5yNGAI3euHi1ITxK4gVuH9I8DvCm/ EDb7IOyoUJS/E4x9EIx/FtGSckIIEdkfBLN/VLeJf0TxMpu9K1zzQ0QKGcryCiGiz4Kxz r2ZJn4Xa7dyPssGPtHeEuvrOJOcLwT3P5R6ksd2Upj5/0jgHeJPNn70Z3gpXGpT2QzAZ72zuOL/y8pz1QT2rRcZAvG7NV1cK8wH7ZgjCvnw MQjDHBuJ1eEwmbsWQMC 15HGLe1ZIskUKvUB4bjwsAiTzz fAEZ6js 7JxadrfueyQ pL7rKxXkfdZMOT1KrI/CLDPJR3N3l/wQ/DCtSIq19fovpTaaqvDUi2CgwnuyZ2LBGeK8amhfxlL9UpqNz8utmDF9 rqVa6aJfdRRR/ysrXUq1XkbPSd4FDZyERfuCfNa/RDcPZOra8rqWlPhahl7zM6W7eiz0k9kn2O7A ltWx v81tRtIeq2hTrUsE8fRpFUGNnc8Y93 H8iji4A8E09dpNGcPo BPdbllmP8HmxW2jeIbuOErTHLnf/agF o2T96A3baJKP7EufsrLqb7uUiUbr5GMAHOWiVw7GMaDXBw9x8M5W/La0U8X2ESvIWZCanvY3rxBhh/bv8Ne3aYRFYOZ2vI1TUxzt0 LqZmYT5G6XxU9HZwgWA6Sq/RMQqCRP/0EYL5FmyB0me6Qq9ssNtvios5JsFUmg8T04vk3Fiz WjZ3 gOIRgOehXVFqJIvcNPgP1HPgo1 h08/FTYpr3H fg7 OS19N4eTmzAvV7ob3z9FSF7WbjHu7wvmxABAA56cud0TAOB6bp77FV6lf6djMtijuJrFyEbFMal iV51RUu9WoF/9QXgma3cxzH/orCRPwAABz3JZut7mAanLedjE/Y0pYt1CwBCYHCxsM/66A/Y7F8sVOMnzse/wgteL3RB38Po4iUQVtSpv0AfIe6iFvIQxCOmnoM6c3OL3PBuH9F0X1m0/6KLA R7OBr8htnZYsvRP/ EkO8XznL9hFPYkteGXyvv86XE97gNv6CnSiw5/ILw7ke7ruj7GE3/RCBOIcRfiCa/wG1xBnBOaQwA6K8xyBnBpnV6u3fuNL7GbThDT5XQdDhDWGGt y/arCqlxuEUtkS1oavWK36smI8RBuy22Xy07G9CH5XdLpxBFdFfGLh/F54GsY8TO3 /xc5/MWNvcudaAUA/egm42Xb9z/L2fvp Z/dlI0xMownuhostdMOwlFusTVmlV/rRAJhvw8bl7f30/dp61RVr6VVVnTc4m/0G 2Qx7 bxK4RucZt/H9Pod9wNF0c9jIot79p0bU9Tulm3ACi rOWI73HLfqmw4d2IQBBPhXoOaiFJKihEGTeBfvQSLMzOuS7OOy34Ccf4Gy5 RyQvwJOX7RNe2Jt8XfKrwiFvxh508zUu7N qz2xtE3MKsXaoqUOYjaiYvJW9NiZnDMfowcUk3/ZksPlEqtb9vcW3uou vodR8Bf47L 5c4pZFDVZ6H/Oo6el 1x/jQG Js53fK/Y1djAfdkE3cQ0yMYtQHBxjKuh0YmTurzdEQZw03G5hhtyTHKeymPUKzXx9VeE I5xL/8lHuHX8pl5fR/TINODPxFc7ONq LGj dhxe0oQxFrs7nNQ9deY8O/JdqL/uRzNie/h4k3ZWa7a6lzZ3v5i4e0If0kyADv4ZcXV97hThVZm9 VHjsQ3cMNfcbTpbw0PiX60WPAfkvgaLmwEhS3RSr2aXSnmw4Eb9pvNR9v 9g7AWmz/HZS8okUUNVbdbxKjya8Yn98njkoxot/1fbkuuonjfoizB1Ck0aSP8bmfbO8XI tN9ao1ft5ubOA una/g9l/lb7ER4XjH0r0fRz3v NsVTkF69nTHUHfRz/8UWHDK66Jv F22TEegnii7K6DinTbaPwZ1tkXsEFhwdP30A /SuePfsJ3LmH0PlVvmcnf8OOfacZ 9gy/vWTh7X0snGn6Cd/52PoB bPDQn3xPc5dYHCUP5fVl2SL/RsYmgv1idAvOJO3yeJ7WMOv6HtvNx7V7pzQleYjTjONrXQ 9GTB7xlwcuGWGL5jbO6h9PoL9ENXajOG71gweuMKvZrhTN5Gjn1YQxd9b9pwPlr2Vx9hwIDb2iF UwHf gzFelhzoLIraO1TcbzLmPvjsHkP3e2FXA 3uy46IHQOa5eSjc7GPqxnDQPVtYan tcA8Bp9dYeiGuWfSAmihVzXI6pzbDQeGdliwGx3fR/EN3PC3vP3KWsod/0ifBGHdFObjHlcz9fV1qGVPM5ba 22xhxP7X5wZ0rPEUxteFUrPzjM/qQAEQdRhWQZVkoH4LvdSZTB6/F2pHPCukAG8pByqMnx/CI53AqUs4azCfwSTZeOfRRR9Tt8rZ5VGufJpxn4pdfmz4EzuwwfB7ers42V4/J3g9l2hvn8qskMl2dIydnod96Sx43elfuSyZBsQ2UwAyL1UGcMeR6nc/CWl49YtN2/f44LNy6SZxuVUcsGZVA9jgtv5uirbVWY4l8uV pyTC0n2dpotDySZz/M2uVfqRy6LvOm41OhvaRxtJsDscqZw1b0mPwWiVFc561hFoo8VT7eoeV82twfLSTLePWFztpgPx oRd0dlV tdEr/LXVGTH19Crpe0q9CWypToZT 1G8neuaAu9Ksv/T Uc5ecymeMk4/1O2PyDZNs CLulvWpiT4VYbe87XbdyY5Pp F26fi3suFK2ub1Xr3P2kqeCEMRTRhNCiI58XYIgtkIMS sB3vrZ6o7xHu7gr4f9lTeCIOAYH4GLwtMDYgdG7w6TJ/ZjDwRRh//dtgAEQayLjqnHYVz5gLnGMpY9yi0g55QgHpLYv8QYLxEVtvH98zFgR ScEs8SiqASxLPmHpbivDP32j6rkiCIlfiXyZMPMtgreNLzUwmCIAeVIAiCIAiC2DF2OoufIAiCI AiCeH5UnkHVNA27GVzVti0AQWyJXbwfCYIgCKJ7KIJKEARBEARB7BTkoBIEQRAEQRA7BTmoxLPE MQDD2bYUBEEQBEGoIAd1B4gdQNMAzagu41tpGevh5MqoIx9BEARBEERXkIOa4hipE5a fADw8 9tKuKmjwARVf4UMwDAnALC20z7q6gjXxOKY61pWP/3sWPAaOBAjwIgGK3baAMaykcQBEEQzxlyUFNGFwBjgBDJywQAM/3bA8Af2KF5woyCZFw9DoAn/57725aKIAiCIIhd4XE6qP5iyzmLxhkWEPuAkUbknLhQtrBFPd 2zrbNdaAfppFTANaq7fQYsIx83X4xDCi1bfmpfEa9aOx8S1 xtS73M6u7lXxNyjWQry5XM4AfA YxMLuqLufIbWmA5eSjkZYGaD0gDMuR2eLQWCsi4n6xLR9J9FNT9DcdO6MgW3H4mshXbN wgHjt8DJBEARBPDJEBUs 2jJIXhEEAwTjyf958pBI4UUQkQ0BhnnZ7O9ILN6T38/ thmEHS3qzj6LbAhmI982S9qS3 PZ9YV2PJ6UZ3whg10sm9Ypy8aKMntJH3Ntp 22kq9JP rI1 SV9iW7ngPCU5TjSPomt MV5k0l36pXaU6XyCbrR/GaqDBOHocAV9RZQ77IzuuIEBCRl86R2NX7kSAIgiC653E7qJKD5HEI7lU7AxzS5xXvZU5jZCdOB kfyd67utC2VIyo8tXPi8SXOkMKB8XjqeFc4TiVHLnWoo4byNepHHfkavIqOnGqMljqRLRzAJnXb rKAv6RirnOhactSQj1c5/F4mK0EQBEE8Dx7nFr EXrPciQ3MzhZ/xw4wY8CJuXjvRR 4i4DoLtl6PubJ30WuZsALVcMmwGflbVsA6L oJ6dlAGcHQDCtKMDT87EyOjBgwHXcTL42/VgpXx1i4GwG2CdSk8dA6OaLRXf1x61rjgZ5ffHPgVAx9sXjB9oQCNs0GAO3IdDTyscAtEMgvFuj MwRBEATxyHj0Dmpd9BHAw8V5zfMxwCd5B7d3ANx Sxy3g97i72 3yd8bJwTQB7CrzkhH8sXXSVXjXt4JQyidHd4y hHAJHmy87IyjgG4ACKxSK4TkzWedsAKdcmvdb4QEARBEMQj49k4qMAiihr75ehpRugCtww40hMn BS5wF YjjcccuFKFF31gpopw1oUB0ykwwZIELVVkMwbcMJG5iXyN 1FHvhpcuwCzy05YZAPu9aJc72B58tRG0YEJT VR6UucOKfBtBDFb/tFRgcGWETBCYIgCOI586wc1CyK2jsE2KB8PEB/ASAEwn76WZrZP0Pe7zBPgNuzQrZ7DFhn W3rtphTwL6tzvQ/kzPtY8AaAn1v0Z 68rXtxyr5oHqaglS/GwKDo/Jl2ReC7BJ9lBw1yD2lIAZ8J6m/9LQBOQIbLzLi2/p85jEQjpPxKOlLqhuOJJvvAEZvyRb/CvlGkySq7BS NPjOdn6ggSAIgiC2RtXh1CUfbZlFslD28rKkmzTje56Fr0hqiWx1hracCFNMiCpljKdlOZPkKGb DSzKVXkwtk/w l8pzT6qLp5ndhc/byFe3XB35Skk96We5JKzCvBWTpIpzmslns/xnxUz3uZyFcWE8n2VfOR8FWXKJS6p KPopt1epeyvkq5oPPk/mIgiCIIjngSaEECrHVdM0VHy0ZbS1rnYMwB3QQ/eJx8gu3o8EQRAE0T3Py0GNky3YiVjjnChBbI1dvB8JgiAIonuexRnU a8HpecDD6t fYkgCIIgCILYOs8rgkoQj5pdvB8JgiAIonueRQSVIAiCIAiCeDxURlAJgiAIgiAIYhtQBJUgCII gCILYKchBJQiCIAiCIHYKclDXxDE0GLvyA/LrEDswNKP8y08E8QA8mfuoY2hcHie7Pm 7Lh9BAOSgPjl8S4OmadDoOVrEk8GHpaV6rdHC2pz24 cYmx/zuc0qvSyQFdt9Yt BZdCa0xyya6sgBzUjdmCUDOTqiOIoEAhG vJCdduv/HF7uVwMxzIWMhpWTkZzmvymZ2P0EQIRoIuu1KJuf1dWY6gXN PpLm6Z0yAv5Gubto7mI6mqYk6yl2IhW34fmZimvwUb2WxV4531o2u6H5e6NBg/RftNr2kDK/2WsIcWVqw5sQ/LyNtTP/Zhrekcr5y3LetpJ3oVOzAMA9ffXuBk8iCz1ZyOxjlnc f15R3M5l o2t XzwVyUDP0EYK5YeTwhIB4SIetFj6sXg8uJogyxZ4Abk97tj88oI CxCFndm6B8/q3ODSc9R23HWQUpH3kALgHj89wvkPzr4 CxOByr B0tPzy9ESgcVFjThXOkn FGT/e7C/ xQ6M4RWOJxeLebg4wbfhIWabbPepoI8QBAFGIxM7tUxugFGQ2FvuCYj576QnDmZks3T9mdIvVHb M43RQfWsRPcy2oCwfsW lUVAp8pmVzX3zKUQzGnt3DULzcbr9oS3kdCzZoUzr6o0RhuOlW1y dYgZ9xBMFwZBN6cIPI7ZYTmKthiPZEwsP1 iHInLj1Gux1YmNYDmJltwsRXs2A5VjSt9j6/V0Hc3oBGy6uZRnTaEluTBw/P25z3XIAefwMC76iv3GhjBOrt0Xrj19dYlzNAH5swjzmmF0VRk7uR3bFXOflnYGG8xH7OX2uGpd 6dLnF1awfteZDsh2Wn2xlGg w5d1kXLrWq5LNWNZPlb3tCP9qBn682eXeP3cxuJjCNCX3StcxCgrR29p6UGfetqmnNfWqjp1sQ5 f60uG6Wnf8lHYWwLUbgg2OJNk6HL/adjwr3vU6s2XEYyWyBQME454QkSc4IAAuvEiIyGYCzJaKJn9HpSry5RI8wcGFV1sMJphdrHn qeBggnvS51EkOIPgxQYiW7CSLPXlsuU6PS4ACMaS8Ujq9wRnWCJrtQyRzQTjXm78Is9O6i/JCMFsuWwkPNU4r xvAzyumMdI2IyJfHcjERW673EIFCcjsgVjLDd kc0EwPNjkOnVfIyTNlmh3frj1wCPS/JU6EbFGJfHpbpsuYykU0KkelWuL7LZYlw9Xh7jUtXL7qMG5Wr0o l8eByJPvDMhqh0qx5djksbvVpZX1GfeaLPyms8LhggAMVYpDZo2au664ndbDO 9Wlm54Vopge7rqer1q1adjJfYKUud6cvXa6r T4uHz FXka2YKX NB /pfNR045vZJ3ZMo/bQZWcTo9Lylma0MRxyuuH6r3s/a4cVKoV11I634PCdH6rwoHZaCk7W6jUhwVnGNx3N9r tkVLfVkqKDGkXCZisM6jI5KoxO2VhVjXGhXM3xa0LR4Hlc8eWjYwfV4xW6rFicEodeWmB2xkFtP h/KsW1Jd PSTq W1qe0e8m91FX/a6H8wtkxLexPEz3YdT1tZKuTC5bLW8dB7YwO11W51hrjVxw3dZCruRzrO6ibWWe2zePc4peod/bFxInNMDuTw RnmDEbJxvdRTIxjSa4Gy5C/cZaW6INUJ3f0kcYsNv8tvcq4mvchjP0ikcBNA3a4QzhXTQvGt2F6L/Y0mkkeRun14M78CCmxREoHj/QoA1dhKr62KBw/rjQr/gat ygYowL5WqOX21iB2czBltSXvOYI3Svm9dVGx9Xsz6U02seg8 uyscBsrOWu3S suV8dKrXXYxL13pVpc/Q8aLfXsw2xN9u81umO8SD2bet6mkDO7kVNreurho//WgAuNfpdn1c3t5P33/w8dvEOrMDPHoHtS76aAIejtMzKjHOxyH4ZFT7cLdjtDw3o5uYBlkyRIDg4hhXQ6P5zaS/QD 8qzyjee1u0Dlk9jwpq/QqOYFbQkqSimwGuEWHKYZj5BPMhBAQkwE2nj/Z8fjF1y5ChBj38kYIobubz7E1p7ujJ8Du6PO647Ir/VAhn/2veFUd/b92gcHRhh3BFfZ0J9jK/G7JTjbVl67W1aboIwyy3Ib4Gm7IMclFMp7OOrMLPBsHVY6ixv75A0RPK9BNHPdDnDUKYwKAiWM w6HKqvsWxiHP90cV0YoduGEfjWy/frS4IVfQO2DKQ QPjT4KcDEoZPHH13Bh5xLMAAC9to0cqRe42IEb5svVHb 6XLuh4rE8ApENuCsb8nHX6qt8on/K6X2IjOuu2MB8bIWu 1Glz4jx7bZFfeZUvVBKL WaGTtwMVhqo ZJIms9usTEMb9V6/MusC097dpO1qWtvmS0XlebM5r0MT73k0BB0e492PgV7PhTsWsFnpGDuoii9g5nYIOjjT8aI3YMa JaT/1YX 7iaMXWEQI6AxXGakbfIzjenHvjsMHliwbw6C8bhDNybFvozw5m87RH7sIYu qVyq9CTG7JnwMl3BL5j5BYJfTQBnx3mnxYQx/AdC4am2IJZ0d85LbI/9VEArz/GMLtAf4F 6Ep9SOXqjVtuveg4sW9xlnOCkzHOf1WuP35zlvU3duCGav3Jbz9h0ec4E8 BoS15hM4q/TuxcXtmlfTZOrvNHTfYOkv70WI dpKu yHpszR2jjGEWxX72UAWf3ztIuy/WGqjrt0QAFtb58zpBDgrPt0ktQsP8RzlXdTTzu2kREf60vW62pj0SNPQDctPmtjE NWy40/FrhXo4iDrg5PL EsO9ns8 ZvZ0TzDX5UopMrGTj9Ir6l6LQ4kZ20pX9JB8eTgs5dkwmafMyZsryKBYZ7lmLTHuFfKBswya ftMZ47LD6XjXul nhFu7kxqDrIHdmCM6mfjAluKw7FR56wGcuNWzGzsFF/k05VZn8Wk05yh8GzOc36lGsPSbZmUVcUupUl1GXvy7kAuT6kc1GVhFRr/Jb1t5jpWkiSKsstRGSr5FNnUdfTP6/Qj0JWv2JOSvOilLn6Pqpbrlk/Vs9HZbstE3i6Hpe1 6Gor2Qz7Gghd7HtZVnZLcklu6rI7tfOEnIi4fGCDSnYq7p6sOt6Wlu OnYyla1qzVROT0f60vW62uY T66pSKauOX6N7su6drzJOvMI0IQQAs8Ix9DgDqJufv3pqRE7MIZAMH8QMdEGxzCAi137kQeCeAL 4FrTDW9gR3V8E8dT5320L8KDETnKoOSDLpiLZXptsW4xHTexbGGOAiFSMIDrHv5oB3CPnlCCeAc/gDKr06xm9MULMcLgkg/Q54Vv5LMnh3QDRI8322xqF7NPeGeBd1H86BEEQ9TGnjzcjmSCIZjy7LX6CIAiCIAhit3kGEVSCI AiCIAjiMUEOKkEQBEEQBLFTkINKEARBEARB7BTkoBIEQRAEQRA7BTmoBEEQBEEQxE6xdQfVMd5D 097DcH5uVQ7fSuTQrPutykEQBEEQBPHcqX7MlH8J7fBL5YXcO0VXj6OLnY8Y4g8Eo70WF9/DGrqYZT90y17BHvwLt019/iW0q32I6X5zOQiCIAiCIIhOqP4lKfMthAdoZ79ABK9zH/nWe1xtWrJa3MMa/hcHF6cQ6ZPRY/8Sw8PvgL1dyQiCIAiCIIh2rL/F718mW PGDeBfwtDSrXLjEn5cLh7LZbSPsNbZ2vfvMcPL3M/e6eZbTHiFfJkMzsd5 04dGf3tHj8gCIIgCIJ4TtR3UOMbGKmTZ06l7X3zLUT0BgxfYZwBk gUQpwiGvyLw94lZP8vdj5iePYLLtIyIvoDB3f/wdBtKb25Dx5 guX8zLVjTk8X2/tz Rbooz8hxCls c2MmYuh1A8R/Q6c/b31M7IEQRAEQRDPhdUOavgpiST2PiFcWg4YXLyFmUYz9dEfsNm/uJ57jj9xPv4Vk A19Cziqe9hNP0DA3xvKf4 ptEgcXKlyK2zVsTzFSbBoh/Q9zG9eAOMP0MRbCUIgiAIgiA6ZrWDyt6kkcR8FLJcLr/VDhQSlOJ73LJfUM6r2sOLfh1RK9D3MZr iUCcQoi/EE1 gXv4Nyy/ZX18vyyj/hqDnLNNEARBEARBbIr6W/z6awRZspR/mTvTuTvsQTdf48L DbMrelwUQRAEQRDEY ThnoOq76Mf/kA5sPkT327bVelb7ysjpezglxVX3 NOdWZhdl WMb6BG/6KI11RniAIgiAIguiU/wfnON20iik7cAAAAABJRU5ErkJggg==

[arnelgp]

i also got error when opening the workbook.

try to update the code in ThisWorkbook:


Private Sub Workbook_Open()
Set Module1.myWorkbook = ThisWorkbook
Set Module1.myListObject = ThisWorkbook.Sheets("Data").ListObjects(1)
End Sub


then close and re-open the workbook.

[Ratna Chhetr]

Thank you it works, I really appreciate your help.