Oops...Please ignore the below post.....
--
If this post helps click Yes
---------------
Jacob Skaria
"Jacob Skaria" wrote:
> Dear Steve
>
> Mention the 20 shape names as a comma separated string...like below and run
> the below macro.... Make sure the names are exactly same as the shape
> names....For example the by default name for Rectangle come as 'Rectangle 1'
> and not 'Rectangle1'...Try and feedback
>
>
> Sub Macro()
> Dim lngTemp As Variant
> Dim strShapes As String
>
> strShapes = "Rectagle 10,Rectangle 2,Rectangle 31"
> strShapes = strShapes & ",Rectagle 32,Rectangle 35,Rectangle 70"
>
>
> For lngTemp = 1 To ActiveSheet.Shapes.Count
> If InStr(1, "," & strShapes & ",", "," & ActiveSheet. _
> Shapes(lngTemp).Name & ",", vbTextCompare) = 0 Then
> ActiveSheet.Shapes(lngTemp).Delete
> End If
> Next
> End Sub
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Anthony" wrote:
>
> > Hi
> >
> > once again my needs are outstripped by my abilities so I turn here for help
> >
> > I produce weight reports from my scales for cattle weighed by type and number
> >
> > Each weighing event is made up of multiple weighings specifying type, number
> > and weight.
> >
> > This is exported in excel format as below.
> >
> > I need the formula to present a summary at base that does the following
> > Look at animal types listed and dop the "names" into the summary area, and
> > then sum the total number oif animals for that type plus there weight into
> > cells along side
> >
> >
> > A B C
> > Cow 22 10000
> > Cow 5 3200
> > Steer 3 1780
> > Bull 1 450
> > Steer 17 5600
> > Cow 2 890
> >
> > The summary needs to pull the animal types as above with toatls per type.
> >
> > BNext time I weigh the animal types may well be different.
> >
> > Once I have formulas correct I wll record macro to fast track
> >
> > Hopefully this q makes sense
> >
> > anthony
> >
> >
> >
|