Macro help

Closed
Report
-
Posts
47366
Registration date
Monday February 1, 2010
Status
Moderator
Last seen
September 1, 2021
-
Hello,

i use a macro for filering my data into another

and macro code is

Sub Extract1()
'
' Extract1 Macro
' extract
'
' Keyboard Shortcut: Ctrl+Shift+R
'
    Rows("61:116").Select
    Selection.Delete Shift:=xlUp
    Range("A61").Select
    Sheets("Data").Range("A1:Q600").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Data").Range("S1:S2"), CopyToRange:=Range("A61"), _
        Unique:=False
    Rows("59:114").Select
    Selection.EntireRow.Hidden = True
    Range("A4").Select
End Sub



but when workbook is shared it throws some sort of error
Run-time error '1004':

AdvancedFilter method of Range class failed

1 reply

Posts
47366
Registration date
Monday February 1, 2010
Status
Moderator
Last seen
September 1, 2021
11,365
Greetings,

Bare in mind that before any answer given on the forum, you should know that there are volunteers who give their time trying to solve user problems.

Therefore, it is specifically requested from Kioskea forum users to show their respect. For this, the use of polite expressions is a minimum.
https://ccm.net/contents/948-terms-of-use-for-ccm-respect-for-others#politesse

To say please, thank you, appreciate, grateful, etc... is common courtesy when you want something, especially help!

So re-write and repost your message respecting the politeness charter

We trust that you understand.

Moderator
0