View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
muddan madhu muddan madhu is offline
external usenet poster
 
Posts: 747
Default macro help on mid

If you want to try with functions then try this one

use helping column and place formula & drag it down.
Then filter with "Total"

=IF(ISERROR(FIND("total",D1)),"","Total")



On Jun 6, 8:38*pm, pm wrote:
I am trying to select rows that only include the totals...the row includes an
acct #, a sub and the word Total...so i am using mid to find the word total
in each row, then put the acct number in a separate sheet. *For example here
are 3 rows from one of my sheets:
column D * * * * * * * * * column L
11002-01256 * * * * * * * 41.11
11002-01256 * * * * * * * 62.76
11002-00707 Total * * *103.88

So i only want to select the last row, since it is the total and copy 11002
to the new sheet; AND i want to include the amount on my new sheet. *

Set colDRange = ws.Range("D1:" & _
* * * *ws.Range("D" & Rows.Count).End(xlUp).Address)
* * * For Each anyColDCell In colDRange
* * * * If Mid(anyColDCell, 13, 5) = "Total" Then
* * * * * *newFormula = "=MID('" & ws.Name & _
* * * * * *"'!R[3]C[3],1,5)"
* * * * *echoSheet.Range("A" & Rows.Count). _
* * * * * *End(xlUp).Offset(1, 0).FormulaR1C1 _
* * * * * *= newFormula