Code - Clear and Insert & If Statement

V

VBA Noob

Hi,

I'm stuck. I want to do the following

For Sub Clear_advance_filter()

1. Clear range called "Clear_Area" which is A5 to L9.
2. Then insert "-" in range called "Clear" which is A5 to A9
3. Check to see if ActiveSheet.ShowAllData = False. If true exit su
(filter not on and if False then Show all.

For Sub Advance_Filter_master ()

1. If range Clear_Area A5 to L9 has text then delete Clear A5 to A9
----------------------------------------------------

'this Clears range
Range("Clear").ClearContents
'selects A3 and inserts the -

'This shows all
ActiveSheet.ShowAllData
' go home
Range("A1").Select
End Sub

---------------------------------------------------

Sub Advance_Filter_master()

Range("filter_range_master").AdvancedFilte
Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria_m"), Unique:=False

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro to Select text from a point given to a specific word 2
Sub ShowAll_Records() 1
Convert A1 value to a sheet name and copy to it 2
ListObjects - VBA code that worked in previous versions of Excel doesnot work in Excel 2013 0
"ElseIf c.Value = "X_Clear" Then" and "...Target.Cells.Count > 1"don't work 4
Loop through pages and insert header image 0
Formatting and copy or copy and formatting ?? 2
AppleScript - How do I select a text ? 1

Top