A
ashish128
Dear All,
I am facing a strange situation while recording and editing a macro
for autofilter results
I want to view two autofilter results from a single column using macro
Manually it is done as
1. Apply autofilter on one column, say X [This column contains dates]
2. Click the down arrow and select Custom
3. show rows where
equals 06/06/2007
4. Click OK
5. Click on other Column's name, say Y, to select entire column [I am
doing this to get the autosum of filtered values]
6. Note the Autosum value displayed on statusbar
7 Click the down arrow on column X
8. show rows where
is greater than 06/06/2007
9. Click OK
10. Note the Autosum value displayed on statusbar.
But my following macro has two problems
1. When the messagebox is displayed the autosum value is not shown on
statusbar.
2. After clicking "OK" both the "X" & "Y" column show no values
I just recorded this macro doing manually and inserted the mesagebox
to pause the execution of macro.
Sub financing_accrual_received()
'
' Accrual_financing Macro
' Macro recorded 6/7/2007 by Ashish Sharma
'
'
Dim s, accrual, received
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.AutoFilter
'Range("A:x, aa:am").Select
'Selection.EntireColumn.Hidden = True
Range("Z1").Select
Selection.AutoFilter Field:=26, Criteria1:=">=" & CLng(Date),
Operator:=xlAnd
Columns("Y").Select
s = MsgBox("Please Mark Interest Accrual: ", vbOKOnly, "Please
Confirm")
Columns("z").Select
Selection.AutoFilter Field:=26, Criteria1:="=" & CLng(Date),
Operator:=xlAnd
Columns("Y").Select
End Sub
Kindly guide and help.
I am facing a strange situation while recording and editing a macro
for autofilter results
I want to view two autofilter results from a single column using macro
Manually it is done as
1. Apply autofilter on one column, say X [This column contains dates]
2. Click the down arrow and select Custom
3. show rows where
equals 06/06/2007
4. Click OK
5. Click on other Column's name, say Y, to select entire column [I am
doing this to get the autosum of filtered values]
6. Note the Autosum value displayed on statusbar
7 Click the down arrow on column X
8. show rows where
is greater than 06/06/2007
9. Click OK
10. Note the Autosum value displayed on statusbar.
But my following macro has two problems
1. When the messagebox is displayed the autosum value is not shown on
statusbar.
2. After clicking "OK" both the "X" & "Y" column show no values
I just recorded this macro doing manually and inserted the mesagebox
to pause the execution of macro.
Sub financing_accrual_received()
'
' Accrual_financing Macro
' Macro recorded 6/7/2007 by Ashish Sharma
'
'
Dim s, accrual, received
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.AutoFilter
'Range("A:x, aa:am").Select
'Selection.EntireColumn.Hidden = True
Range("Z1").Select
Selection.AutoFilter Field:=26, Criteria1:=">=" & CLng(Date),
Operator:=xlAnd
Columns("Y").Select
s = MsgBox("Please Mark Interest Accrual: ", vbOKOnly, "Please
Confirm")
Columns("z").Select
Selection.AutoFilter Field:=26, Criteria1:="=" & CLng(Date),
Operator:=xlAnd
Columns("Y").Select
End Sub
Kindly guide and help.