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?

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.


Screenshot 2021-12-01 154619.jpg

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 ... I got a bit fixated on "extrapolated file"