buvanamali
New Member
- Joined
- Jul 27, 2014
- Messages
- 42
I am trying to extract the Dividend received details from the Bank statement for an year to the new sheet. The narration for these transactions starts like “By: …..(Company Name)-……… (Some Ref No)”. The company name and ref no will vary. Only the constant for this transaction is “By:” The following was the recorded macro as an sample to complete the above task. I am not expert at vba.
After extracting the filtered rows to the new sheet, auto sum for the field:=7 shall be done.
Can anyone help me to accomplish the above requirement.
The following are the headers of the Bank statement.
Sub Macro1()
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+B
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$122").AutoFilter Field := 4, Criteria1 := Array( _
"By: TANNI IND", _
"By: BRIA IND", _
"By: BN IND-", "By: SE LTD-", _
"By: CFI HOES-DIV20-", _
"By: CSIL LTD-","By: CSIL LTD-", _
"By: CRIL LTD-", _
"By: RED LAB-", _
End Sub
Thanking you in Advance
Always Wear Mask. Stay Safe. Work Safe.
buvanamali
After extracting the filtered rows to the new sheet, auto sum for the field:=7 shall be done.
Can anyone help me to accomplish the above requirement.
The following are the headers of the Bank statement.
Date | Value Date | Chq No | Narration | Cod | Debit | Credit | Balance |
Sub Macro1()
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+B
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$122").AutoFilter Field := 4, Criteria1 := Array( _
"By: TANNI IND", _
"By: BRIA IND", _
"By: BN IND-", "By: SE LTD-", _
"By: CFI HOES-DIV20-", _
"By: CSIL LTD-","By: CSIL LTD-", _
"By: CRIL LTD-", _
"By: RED LAB-", _
End Sub
Thanking you in Advance
Always Wear Mask. Stay Safe. Work Safe.
buvanamali