Use the VBA filter

[Yegimor]

Goodmorning everyone,
I have a macro that copies another extrapolated file, but the problem is that the automatic filter has been removed and what am I wrong?:think:


Option Explicit
Public Sub Tester ()
Dim srcWB As Workbook, destWB As Workbook
Dim srcSH As Worksheet, destSH As Worksheet
Dim srcRng As Range, destRng As Range
Const sFile_Sorgente As String = "C: \ Users \ Itaerxga \ Desktop \ s.xlsx"
Const sFoglioSorgente As String = "data" '<< === Edit
Const sFoglio_Destinazione As String = "General"
Const sSource_Interval As String = "E2: AB20000"
Const sPrimaCella_Destinazione As String = "A2"
Set srcWB = Workbooks.Open (sFile_Sorgente)
Set srcSH = srcWB.Sheets (sSourceSheet)
Set srcRng = srcSH.Range (sSource_Interval)
Set destWB = ThisWorkbook
Set destSH = destWB.Sheets (sDestination_Sheet)
Set srcRng = srcSH.Range (sSource_Interval)
Set destRng = destSH.Range (sFirstDestination_Cell)
srcRng.Copy Destination: = destRng
srcWB.Close SaveChanges: = False
End Sub

Then I would like to filter column D from oldest to newest from D2 to D20000.


Thanks for your help

[snb]

Please, use code tags in your post.

[Paul_Hossler]

I have a macro that copies another extrapolated file(Q1), but the problem is that the automatic filter has been removed and what am I wrong(Q2)?


Then I would like to filter column D from oldest to newest (Q3) from D2 to D20000. (Q4)


Q1. What is an 'extrapolated file'?

Q2. Not including sample workbooks

Q3. Terminology is important, so I'm guessing that you meant sort??

Q4. Why hard code D20000?

[georgiboy]

Q1: From my understanding this will be a kind of forecast based on historic actuals.

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAoIAAABMCAYAAAD5jdb4AAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACGMSURBVHhe7Z1/jFXVtceX mrCr8fMwAAivzoDFDDMTAaQMEoGwTpSaAOtiaWmakIg2sTWFNu 0FdrbR/vtU/7TE2LgfBC9VneS yDP6xI0wEJAqVYCzQKgoPDL uUHzPyQxperG t/eOcfc4999xz7q/hMt9PMnDvPefuvdfaa99l57n3vduE P/4QAAAAAAECf43rzPwAAAAAA6GPAEQQAAAAA6KPAEQQAAAAA6KPAEQQAAAAA6KOU/bDIjTfeSP369aPrrrvOfAJKzSeffEKXL1 mK1eumE8AAAAAAHphRRBOYPkRfYveAQAAAABcyu4IwgnsHaB3AAAAAITBHkEAAAAAgD5K2fcIVl VVmVchFn2bnp4zSr3sfO3r9OwmeTWd7vuX 6l5AL88tZVW/Lv6UHHnt35G82/Ocm8Ifc8ieuSZuTTkrefpibVvqM91Gidp86M/od9579UlB329c9mP6eFbJLx6md588Tv04l65ptMcx68uOOn6ZYm N4i Z0 TpE/O/WF53LQMjs4ir4fo6ekxrwAAAAAA8lgRvPnmUfRPK/ Z1q1/Xv0v74vNkNrp sWM6TQhwrETp2qycdjGTVikX9Ab9OJ3v04rHv06rX7rMr8XB06/145iQi69TavN9/SfdhJ9 lGNdRYXTYxw7Biv3P1oQpORhTbRsybNzaf4rZdPlPNmnEDyy7L6LaLm 35M980wt8g9M1j34iA/ jy9eakfNS96iMabqwAAAAAAuUjtCH71gQdpwsSJ6rX8LLyYVLl2nQuOnKoRnf9GkaxO8v6Ese45 fNYgfsMnWeYofv5ol0p/m89HBZLvnO550T2BGLKN dc6bQIHZEO9nhs7KkYtFcvZq46Tl613z07trvhJzGUVTjOcnGCf6ufz8AAAAAQC5SO4LWCbSE3x fK2Z6zRAM TTNnTKeZ4/rRhc73iD9x0J/Tpfdo82vvsRM2iibbRcEEDLrlfnr6mZ pv8wwMDNgCj1srqu/bwUTP9tjnU 9KtnJ5QtiVitPHaZnj5w0sugrSRlfO4T/PUtdMWFeWWHcLCufN8/lcrorhQAAAAAAyUjtCB45fNi80oTfF8yRw9Spwq96xevs6Q/MBYMJu3bufY7e3fsGHZEVuhnJQ6Kyl8 GfVWINkw4NOzsSxTOHRHncwgNXzSC/71M506bCxYVLr5Mb77G39ukZWmek8JTTYFeJdyq87iPndZ/QWgYAAAAAMlJ7Qi 8Mv1nvMn/8v74rKJDrKDNm6OHKw4SQdD /tUuJj/HzdHVuzMYYo8Vt3y5pQ4n LcTaFBl96jPSFnUoWLrWNmD4ekDF /e1rWQNnZTCST3nuo9kWWUw8AAAAAqHhSO4KnTp2kf1v1I1r64P3qf3lfbDol/CqcOhw6qLGI5svJXXVAwqzYvfg2XQgcyig1b1CXOXx7ofON4J68GQ/R7TcHVx1XvCb6SRe pk1bMw5/jF/242AImPN64pmf0RPLtNzjquREc65wMgAAAACAT2pHsBy8u0/Cr xQ9YScTHNKt/OIs0xowsN5HcqIIrxHMGL/3e9k7x9z9rR9XIxGr1ZepiP7nM9VeNg/YJIMOfzxPL1JflmCj5Zh9j5H//XWZW/Po36UTviEMwAAAABAdq6e5wiCkoPnCAIAAADA5apcEQQAAAAAAKWn7I7gJ5 UdQESGKB3AAAAAIQpuyN4 fJlOCVlRvQtegcAAAAAcCn7HkEAAAAAAHB1gD2CAAAAAAB9FDiCAAAAAAB9lApzBJfQyvXP0fIW 87bYtKygn ZMv8RlKCILn3ye1j25xLwD1yqTH32O1q3nuua/lUWs7vLYj7SnH9JC8y4KJd zK2iyeV8IqWRa8kNPrz99dJb5sBBE1uLWUbHoS31Fr8ladHtKQ/nHrXzbbUHtXXTsfLeodZ3IP6hMsCKYkoVPzifa8hCt2WU AKBXmUWz6/tTx5b71a/9rNpgPq4YNtCqLUSLyzQwv/w46 nxZEpaOHksfbhvtdLrN5/ZbT4tBJa1IusIFIPi29O1ycFnHqKljzxNB817UHp66bDILFr 7MM0U340WLiwn54yFS8e/OIxx2jjg9 jl9VFmcnMp6H79tOZpkaqV5 RGvh0h6qv28/p Gavo5eZxWM1R2hPdaOXlzREtxHq/PTrD48fIxpTS4fWZHH0ZEbA49Vax0jd7yuc/DMJyt3BMg1tmmDyEzmm0Jl9tTSzqb vE5nhtI3VX1D4utHybaeNNN8rg68XUza v2PM2Ai9JUDkXd5Ig81bT3fqc1tufU3nZWQ3ejrUzXqXcl04TzSo26lTRqVRRVtdWURuxUe0J1s dRBK0gUAdh8sSUT9S9oZzUhciq8l7bHa927IfsnUlODYsBOzK2C45uk8nb6i9eDKEbD9Uhqh60t 9ppTPmszj7des0UL9CRNpxMsXLq UbuivaNtV3609TB7Ed27ZjdanaBwVsS99/JKgLQ1imuVzvmf1KSN9e3Wfvt6Ls7KlzrbSMjnjpd2zZTNQmE0ld9uz5mzdKx7b9HaM9Ym9Z5Iq qD1dWpZOYvjBYv1ZOLTflKmcO 3TtPpgPY/S29pH3abHY5b7T3KZsu3PHAYcIWfO160xbySxznO3GXfOJsKc1PTQ3ql8K9PfB9KTcc89tpkP18 01a vr7d/uyhsc3TbCfUHV3LNNePX1kkUfnH2cHbj4fUcdxovpqX7fBOslSt0ygTlRdx/e1HgHd bYbPwbGtOkwYbsz Smd/6Eldzmz1G2GDWZpyw0H76eNw/neHD5NPvTCiqBW/KQOPTOSv41sjI ZFYGXH19Ney6Mpblm6VxW4OrZSL/5zNM8m97Mg4Eo0Fak32h1Wvzd6vnBZfcxjWqAUde3HKPBTQ94S7vKMKu5ssx3D1WP9ZyeKBbezY N5xy6vYoPf1 nTmPlZQz8Ln2SDIz /M/W k6UZSzPZsVNpiVEow6lV8mr5RP6xwdUTzm/uOaPLNezMtIVCT zYnjHff2rfR1TfFh G82Hd8iB0xtPtZu4AHk4e1hrUSJNsuR7Zqcrd4Hx38q0TaPDxt1VH4DUElQ//beHBYHmKcrINDOXG4JYzYANuWewAFKK SZxS T43PuUE5tC7W1dynfNYZvIUefRkRn9/a43fcQrp5DUdVTd31Op beM63CErTNJedOeWMYvetYsOXehPk251dLFkCtVfOEI7uINJa79xxMrEdvxY02lPH5ny7qYdHWy bk2MyHjSWhto w7XzDW HbMuskO7K0pmHGMwTscz2sZvWPML9Eg9k0skudZzAbP2WIsLO3PT9wccnOn9Btz yds2OwyRvgM6TmL7Qx7U3f6DOXs54 zzAOhw63NrfEmoQR6B6pBe6k37A71P7s6Pb4/WPMg5ErhRXjF1bouyJCdtLuL9X6QVDkYObWlmt vrG46yv5eKcmTRUnX4uIn/pJ8JjJxPKP0m/FGuvbj 85ggNHePbq oTnTp5ih2mxYnDv9n72gAbvqd0oBww18nMOgYmaNPZcOrKd8JiyhlTtwf/cIQ HFTljRFqbOS2MNRbh5B2c4wO2HpL1I7TUX5HcMnnlDO01vFgX36clTam1QjDjWaXEe7RH oBNcvgPfnRVuUk h0sf3fDfiK3MbBRbLTX1aBhFaw7JX/A0N/9UL2OYhaNrCY60 WWmyvCHXxV tmQ/LghbnDyYznDdBx0ZBXDFsfEzAqkQUvHGoDl83TJsmyVWZg7oB7f7n1fGRzV0sgERqN06 oudVjrIzr0B6srXW6/XGawVrIuocVN5OiFYbk3HvcnA3HYcvr2JKHGcIfoliULxilVJNG7dKqveoalrg ukV/CtqFavyN6 VXXrlLKK 1FVma8NmDs1GsvcWgHa3B9i79nRsJTZuBNZ79xpJRJ6dfpqJmDXae5g5sSGHQCZLXzkG21tNAk1 pfXaeYiafvI2W8JEXZmnJOsZMtfOTaZMheE254DfaGPN1kN97lZyxlvny8f5LZo7a9lJA29cIzz nUCzlc6krVBAZ25/LLbrOo0 lWPX8bj2wk5Ji6wu/dLvd1Re7OzdHd2fi25l5WurtRElZ7L XePmn1DWOHt1y8L1uJadrmykC/9m62sTEme7Odt0BGNX0E/bxnIf744RQvYxIbZu1cTGn8zW1/D4cfyY36eJbt3xKUE7TkvZHcHJw2vVTOQxs2lW/znhLcEqqUmUnb1hicJkpuenw39OKDMW6ZS44s64vtiu9 mMeZnJOBo6KHS/QWY7kXK4qPxO0/uu4RzrYaNMgCwVG/kC4Q6h /1AY o4l63zTIfSbSjtQlCdlh3o3cFa6UXPbN16zJAzC5HlTKrXXMTpPSsRduLaVUp5VXu50BMcyGLtN Ijq AbZgVdPRvzOX5PIfuPIJdOGV/Tqjvk8cmVG1VnMIBZj58q2rM2PrfJWmotJon6riKj8omQuJdyXSp1ZhyoJOe1T6tWsdujVv1foQ LcZuKQfoByOchYqxq4TI/1GcKFByFnnYd3nS4H9cJQdqMmd4eAz29UKmW4/V8eBi/zaNOuoTXyMFJPNnHW7m97vtivnZvXvVW43pk TSU5ggagE9M5hEfZoveVn7y/sXWv8sEIWZG9DRlppZmUJUQ0liO1o/PAAzybMtaJgHREnRCvhhYpEzVz0rMcNC2t0yCJcj4Xue8ibkuu9jPK6YTQnfCYU137jZNqtQmPy XvRY3yYdbmgwSOHcZiC2ZZyCknaaKfqtikTkWyMRlcJDTR7OaodM2mQwFMddrXaw0 5utUlFpdh1RVHKfklHlHTI3zqcUWH0MpNHm5ZtOLJSWswDbt7KufgZ4lCLfauVc4lEpnE686Psj qCaJTjx8EiWmJBwjvh3QatfauAJLalGOHseGQOVe1ozgeOpvh9a8ZDVC/MyCu0waUc3a0g2JH xVvIK0m0kNoS3wgkLM1H1kILIcubQay4S6T0rnXSGO7qsdpVS3sj2EmenGfhhtOVO Cy1/caRQiYVtjODQWCPVy6ZYu1cbEvSW6Fn0yXoNBP1W0VE5RclcykRfaoQNA/US5Lt38ptn9r hg536kZWCVm25ZNrM1bxklMhdp0Y6TcyFz5KXueWAvvhKDtQK24ZWOdZnPPgvvFyk1 b1tEetd0n8b7TBHWrJrNVNFutmostyyoh18etLTSpu/gRjjDlXxG0y muN82Onz87WEIrVfydG7ENEWfplOxys7txVM0GE21C3UAbZeNoi713Fi1fEhdWjhjgGb9yZeNp3 LKyHqx8WfS gZw4g4HIlrFUz/IvtqpkWebKPkRvn0L WN16aSv5zPOvTKfhdXgqX/0yDh0eltNObujU1IO3gVeQjcfJQi2ZNqDt58N9rxTWeHLpPSt6gHLlkUNGvl2llDejvRg7dfa95 EKH0fTpwHB4Iqn9Kofb2cOXSqZA 2bU1oBQKE8576GtEy6uLaqJYtDO1YxaTjOWICysyNlvFRk1MDh2nauN5dkmo1D7pAJtKoYE9ikD rqobGzqUsoo9VucXFrYUw661M2BDzNLWW517i2DXiWEHye6Nt4sFEXZeOgrrh60dePsJ2f6WOYe bMsZls6ew1CtdsRTSps0eyKC spGkbsW/GKtOHFtblj63ntvNmRKHhYVeCA3LjIA7Gndvn/f4B9Nonc2QwU7JOFPL7QM5N9AqFcp42EtLnXpKuAlVNqyqU0Lquw/T0I64wyJuHF /1wdTbN7y AuZEcqqV3TLUSeiKZxf9sHv4DO/dO5n2Wq2q1NPgU31F9ijatHXdSgzaahKdB33YFOtWzmdaeWTk4E6TGAPZBjZWdytUq5cqPAwE9p Ar pBltqNnLJPw398Q4Jy8uxSTgrb7w7dt7qgcEYivccQlkceuSAn9qzzGy9vGGkvbDdyElPda05oZ jlAFYkKo8kLt NNZ79KJ9JpmjI3HAyG22JlMpvOvWsRdqpWD KcuOP76Yy186iN2sa2SreXJq7fKgWhvk09moJtMOtqf55tMhKbVpIQcQL7NHXjr9rp6EDBkYsi2 LW3H93sjVtG29W9lkLtOhWcnj5NatJTp0wLSC9AeOzMJF2/FEa3D68ftvZqCPepWrYStB0zgXosUYi sDbt9YmuI5mNnHWrFxBcW9YHW6LPJRSbXnqOYIXCsxz32XcFU2B6MstK4/hmwPmvvHUXrSrKHpASUinlzIrMrP1nnIEw4uw/wJ1lIfoRHU hAyVzzHof1d7l8RRpJgEAAJCD3jksUqmo/TP57mvIXGZX4bVShbISsPDuCXQm7z065aNSyqnJXMHUj7gpLAx2TSOPcehOHuqOJPyIhUonI0Ql j/dw9tYCAECRwIpgagpY3ZHOvc3ZFygHEgqY3Re8IghKg1rpdfbQyck01FEWCl3JE8f7Yf0su2tsN VA9GNnZ5ycHIJKF6QAAIDlwBAEAAAAA igIDQMAAAAA9FHgCAIAAAAA9FGuCkcw4xlDccg u8Q/Vg0AAAAAALKBFUEAAAAAgD5KLx0WkZOC9mnvH1GH/PRYtXP6NXy6lsyJwMDn/inB8Om6Qk/jAgAAAAD0BXphRVA7gUP3rSb1A89rjtDQMc5v7ilnT566Lb9H6P8moXp6t3o69zHzQ9GOE1jt/HC0XE/8G4AAAAAAAH2X8juC5jcGt9pfiTC/2echzt6D7jP6zM8RZUH92Lf7jDb7M2YAAAAAACCWsjuC6jdF7Y PG9QPf4eRh/Ka3/9L8oP/6sCJuj/7D4wDAAAAAACfqwiHUA1Q9463DvxpgVQesAPtZ0mjZ6oWQAAAAAAJCLsjuCavVvUFVg1U6tEhom 3zqBBsthD3bqcv c0iyaXd9f/fTS0mvs56UAAAAAAEpN VcEN7xCey6Mpbn2R/lbVtCyJuewiFA90ntOoKz45QoNDx1uf BffncUoWEAAAAAgCRcBY POUZ79tXSzHr7 Bj7I/LqonoUzFPnWk3oV1b97Hc/oj1rHqI1FPyB/44tq lMC3 /Wz9CRhzJx7y0AQAAAACApZccQQAAAAAA0NtcfYdFAAAAAABAWYAjCAAAAADQR4EjCAAAAADQR4E jCAAAAADQR4EjCAAAAADQRym/I3j7Mlq54h4aTnXUtuJJ triOv5Qv/7K7foWqruHvvb9b1ObXCoCjUufpJVLW827UhGSocIZvvjbZdBZ76BkUzYotNJXimhrpUHKeHXYV u/aRRo9FN4e4/qNa6t9VEIbSEqp 2FfV8F BIDKBSuCAAAAAAB9lPI/R1BWBGd207qnX6IRPOO 5Z31dHbmgzRtoL7cc2A9/WJ/M33tq3XUc5Jo3Chz4eIB9Z0u/Y6Rmdk8Gmfe0cl2WrVuu3kTRGb2C8i5LmWYN1q/pov0xxd QluO6hne0rqjfj6yMsnl6DDXBUnrlncep1 9rt9rZBYakmGjfCH4eUAGlXY17WwnWmDLIjJsq XPG6hKfXCCfvODtbSfX0m t51rp466eSY9v9yamLyUribS2QPVNK2BbzDXRP8LRqkbNEaHSg9yn De6 owoJvo9LtS1tEt5w5QVYPIbmWLk8nUq1d X1fZ6s2W36/n0zTPKV9nu9Rr8jILAV2F6iRYPsZJS9fnAepheYP5mzcBdJno5AluD8ZWQrpI0x4UgTbg5K1010 Dk2bCVsZt2cP3ODtiF6C i3kNpu3Wj0qrZQ7 heZ5uwnIHderUq9WDd3/IPhjd9ih9exSM7LbtdZ4czfrM1GOgfE4a2csdRuTIpbdw 45PX9tTZv/wwR2 Dfp6cAnajVcX2eyDyVaH7bVO Tz7k/Rn0tn2o1Q/z g2rPcY25W8vkRHvXaiy5Gm3keHbMaU3/bzUueLiTp6GmiayGLzziq/kUfqZiTf85nD8e0MgArghqrqmifM6/LwD3U09abT9NqfjtGI5hl0w59fpi2vHKP 05voyo7H6T9/201UPYVmNI6mEed30Kr/WE87tv dRt81i5prjtHeQ3zddBzSuH/xwja zt f 0VqG2GvBxnRfAdNpPdoB epG3g1d5I/ovWb LsfT6F7F91J/U/spP1dN9HUGdXUvf1N3bHPWUgtwwfSlTPb6M/HJaVWmveFT9FbL jrPt3UsTskgxl06o up58 979cxm10fsqX6d7mv tyKBknUsONb2gZTwyhqbNn0Wcbr1D7D56ml0Sm6a3UaGQSGRom1Kn0lcxOuTu6c TFXejUOU005f MPne/TePFSaniDvlff06v8v07Ph5Ps5uaaPTH2 j3v91Jh2tmULPc//PNdIlTCOhQUOVnXR2Q/DPTv5RHHd06wcqeWybpzO 96ZBX/sM1d9K9C26iw5J3oGxrb8AyffRs3V3fSn3Zvp92Jbc4ax0/gj2rRf8vwijTxk84wvs9jSN2b9jQdkKbOtk2l0nu1HOc5Z9Cu2pOtzgMpX7FD0PXfWFPXdoG0Jo t86GveP5728lC7mDtHyptS1bgPkl5ttb/aihVQjtnT0bdrLZf3srDpdFh4oH7irmm3 Wdq6O2wXEfUebl9Kv01063hdb0r3EybRsE6jY5X3l2mC0Yt2drq9sql6vdfqReuB3pN7jTPQwwO 36iO0DlsapnCbiOhTcrVH4wT2WB1 PI0 3zSY6Lxj84ZLhzLbR3y5wyTQW6B9505f29Mw sv/6O fH99GrbPv8PXs1qkuhOEY/TnQBvijOPvgstg6vHGv1pW23TatD5FH9WVTzf0i6ySaUmfbdjrblbxaGqq9dpK 3l2bUQI77d/0FTMaqMbqSeo6Vv4baOT0m iDV1iPY6bR1Ov3RbcxACqI8oeGj75EvzAzqP3rgjPeIDyj3WZnWtvprZNEVTV6hjZ88UwaxzM3O 8PjRGnLxgNEDfOo0XwSDXciM0fzTPElP9/X19JvTg6kaXe0cjJvUsfF0XSL2V8yomYgdcoqzGfMXqDbJ3K h7PM8kPczjNzOkC/dmbg 9e1U eomc5eHEdGlbfMYttN kdp39GLnswKV bX2 mPFwdSfSMnligvntW 489c9697nFa5s/LXD1OneZkvbvp51ZGr24QyWbo2/iQoT1HgMj/NA1TGKopgbcnWF8O2tMqs0iTS78k9nh127T9KPVRNIyJks3S2 ytA 7cdoJ6BddTE96fTtS63m5a0yV/z7aoNCMq2RtOCpfdQ22JZHXTaSwRuvWsduO1at90AF5165bx3ysq/amM80WrgNueUrWvjS6ost6m9xC66btzVGK3DLOSwp Hcjqq4XO1e 5J wbzOSZpy /h6y9EvJU3fsaf975zgf0/QTiuvsr94 9IksA/B0ZXWe7gvG0hDRuq3gpteatu9KH2heZ223hNxkTo4DU0u SV/c43rKLpvAKCyqMg9guKg0ah5tPL7T/p/XkgnjtE0hL/aczrYeD84xx6Y4ih9wD1KVa30lq10y6gT9Na2buqpqlUbghs/wx2EO jFMLy2mqeeDbTULSPPfL3wRxbCZXPpOSedu8WUlR3FfPMSZKUhzf1Jyb ONLlk6tq4hzq968Xa6M6d/J4TVNXwoM4vdiN4tC2FKZ5 L9LZ981L4ehpHvz0YJtO17rc4 Y59/KfH3IU9GDcM6ohw3lKjKywmbQD4XGh53TAYVftT9pYXS2XOSSnsfM4JCwaL3Nue1I6jCpXEvIst 0 Ofinf9C920wfmZXKS2EcUnFdWMymW7QZJUu/pyVd ACqXyj0swrPIVT/gmWHgz5nF5YnMpKvqmvWgJB2pzG55lthUV0cjqtgxlJmrM8ipv2ynB2UvTEYZ41ZBCyBlXtZB0e Emube94BXBDAqto1iZttOv1Pv1amV02lelLpblWBFOgFrR4nRfkFUL4zjkcTq0LPp1Salr2fOUc X/UXqeB1TTCvEyEbRs8OEuYVdJNvrKWDusIqBC8lF/qzFyLpJztscJJbB/FIKXtpq73PCir/AD0MhXpCHorCOZ9ck7QWfXV4PKRmpVaJITCg1 ThFzZCexSM2 evTY2U32PCV1KeDtHB9F1WjbTpBxEcxAIE7NzOoKnwbJKmD4vcWwl1CTlL9x5jiL/OtIkl8mEipSj5Yf1C8bWcfsJolETIxzMaFvSlEK/wVCbu0qUTtdx5bbUmZCwDREnd4RViNUM7H64L0SorN5qnLNS5KPtPBNZsZcDEazjBFsCctlTlA4 D/UIcqcodRY5 qeD005DEPtJSLNsV0tV7ekohPwBXNxXpCNqw4Jec/TFqBSbnM51s6O8eP5R4 zJaIB2Ltx9ROoLR6jSfDdVIZzWuoYF6EoaFFd4 K2cQlU3IhaxaufvjZM/TQLMHKM 8/M6OB/4V8aFL1WE7DlHjHfHhmPzryJBDpoy0ZP8m151asTUDp9o/KdTdQ7eFw5ORiB7ssy01sh0gsHfRw9qSs5dJrYb5Yeo0 k3CuJlWXu2oVZk9Yel0HdEGQnIPX3yPCQlvNyHieemey YM7FKOjNAwl3WeTU/VjW1/26n9ALe1eb7dqrJYO8/AdTBa6StxIcIc9mR16JVL9QvmdU7SljtMrn6p0PTTkNs 8sG3XdN35GW7lhT1bhw7b5833y/7LbNTGvkBuJop/6nhSLrp4gh98my2nC7sHBB76lOddDsxhGbc1UafnXMHzea/5gGHQo8k8Al89/ib5kTeIvW92XU38OzSDQ/psjQP76Kd5nTwpSs30dTGAXRqp1 eTEIy/Gkfdez O43 wjz6vCnj7Do59WlWiDJOtlbT JYm6n8qdLqt3ylVbiXD S66MnuRTk V 1naqb4rp5Zj8mIXJHhyju/vcvUnp zWU8ewJpoyUJ iVDLLKeY549VJw45Df1GnmFvv0unfuLedeupG0WXv1LCbvlBAHSniZbok5WlpowWmPEF9cN7qlG SrvlbfRe2HBtBEo8vAqUG 93pzwnJqzT7679euD5R54vUHaJ05GZoB25I vcl1Lvc3DqcP2uXkZW79ZsgbcdLZR/Q7jOuAaMG9YrdNNPKKW650utblvo11Z8rN6fU/tF5vfGcH5Buzaqlzx8/p91KX3W/TcXUqVJ9Q7QjYxVkaFqr3cL3ISdJ1ncOoecIA9f2LovsBXexcsh3LPZ7O7PflRK6vU2mH0Xas6/jz80w7Vqded9CVxkk08jo5cXo0XXs0OpQTzEqHw47RH/86nEYGbNIns33ElTtMRHvJ0S/F6yWi/YyZRrNH/c3YuCB52vaqPnBw2wDr7rft2e2DCbYfRtluPzrBetD25vZlWtaev16huV/QsgXbVLztZuQl96etd26Luq7k/k/RzvbzNNHqJqrdxbUPAK5Byv8cQZAXsi8m8Bw/ACoQWe0JPKsTXOP4j4fJulUAANCrVO5hEQAAAAAAUBBwBAEAAAAA igIDQMAAAAA9FGwIggAAAAA0EeBIwgAAAAA0EeBIwgAAAAA0EeBIwgAAAAA0EeBIwgAAAAA0EeB IwgAAAAA0Cch n9EWx5Yj0J RAAAAABJRU5ErkJggg==
29199

If it is anything else then I am stumped.

[Paul_Hossler]

Q1: From my understanding this will be a kind of forecast based on historic actuals.
If it is anything else then I am stumpped.

Well, I know what 'extrapolated' means, but ....


copies another extrapolated file

... does this copy a Workbook or a sheet or a range with forecast data is the question.

Decoding the macro, the only .Copy seems to be copying a range from 'Workbooks.Open (sFile_Sorgente)' = "C: \ Users \ Itaerxga \ Desktop \ s.xlsx" (I don't think the spaces below there) to ThisWorkbook

So to answer the OP's original question -- Copying a filtered range from one workbook to another doesn't seem to bring the filter with it. You could (probably) get the Filter object and apply it to the copied data



Option Explicit


Public Sub Tester ()
Dim srcWB As Workbook, destWB As Workbook
Dim srcSH As Worksheet, destSH As Worksheet
Dim srcRng As Range, destRng As Range


Const sFile_Sorgente As String = "C: \ Users \ Itaerxga \ Desktop \ s.xlsx"
Const sFoglioSorgente As String = "data" '<< === Edit
Const sFoglio_Destinazione As String = "General"
Const sSource_Interval As String = "E2: AB20000"
Const sPrimaCella_Destinazione As String = "A2"


Set srcWB = Workbooks.Open (sFile_Sorgente)


Set srcSH = srcWB.Sheets (sSourceSheet)
Set srcRng = srcSH.Range (sSource_Interval)
Set destWB = ThisWorkbook
Set destSH = destWB.Sheets (sDestination_Sheet)
Set srcRng = srcSH.Range (sSource_Interval)
Set destRng = destSH.Range (sFirstDestination_Cell)


srcRng.Copy Destination: = destRng ' <<<<<<<<<<<<<<<<<<<<<<<<
srcWB.Close SaveChanges: = False
End Sub

[georgiboy]

Well, I know what 'extrapolated' means, but ....


Point taken, I got a bit fixated on the word extrapolated...

[Paul_Hossler]

Point taken, I got a bit fixated on the word extrapolated...


That's ok :hi:... I got a bit fixated on "extrapolated file" :think: