Macro help

Closed
doss - Jun 8, 2011 at 02:22 PM
Ambucias Posts 47356 Registration date Monday February 1, 2010 Status Moderator Last seen February 15, 2023 - Jun 8, 2011 at 03:32 PM
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 response

Ambucias Posts 47356 Registration date Monday February 1, 2010 Status Moderator Last seen February 15, 2023 11,171
Jun 8, 2011 at 03:32 PM
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/apps-sites/internet-archeology/ccm/10131-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