Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with Count
Hello all,
I have a macro to delete the shapes in an active worksheet. After the shapes are deleted, users will receive a message that they have been deleted. In the message, I would like to insert the number of shapes that were deleted. Can someone help me with counting those deleted shapes? Below is my current code: Dim cMarks As Shape For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete Next cMarks MsgBox "You have removed " & cMarks & " check marks in Worksheet '" & ActiveSheet.Name & "'." Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with Count
try
For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then mc=mc+1 cMarks.Delete end if Next cMarks MsgBox "You have removed " & mc & " check marks in Worksheet '" & ActiveSheet.Name & "'." -- Don Guillett Microsoft MVP Excel SalesAid Software "Please Help" wrote in message ... Hello all, I have a macro to delete the shapes in an active worksheet. After the shapes are deleted, users will receive a message that they have been deleted. In the message, I would like to insert the number of shapes that were deleted. Can someone help me with counting those deleted shapes? Below is my current code: Dim cMarks As Shape For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete Next cMarks MsgBox "You have removed " & cMarks & " check marks in Worksheet '" & ActiveSheet.Name & "'." Thanks. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with Count
Hi
Have a look at this Dim cMarks As Shape Dim Counter As Double For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete Counter = Counter + 1 End If Next cMarks MsgBox "You have removed " & Counter & " check marks in Worksheet '" & _ ActiveSheet.Name & "'." Regards Per "Please Help" skrev i en meddelelse ... Hello all, I have a macro to delete the shapes in an active worksheet. After the shapes are deleted, users will receive a message that they have been deleted. In the message, I would like to insert the number of shapes that were deleted. Can someone help me with counting those deleted shapes? Below is my current code: Dim cMarks As Shape For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete Next cMarks MsgBox "You have removed " & cMarks & " check marks in Worksheet '" & ActiveSheet.Name & "'." Thanks. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with Count
See edited (air)code below.
HTH, Keith "Please Help" wrote in message ... Hello all, I have a macro to delete the shapes in an active worksheet. After the shapes are deleted, users will receive a message that they have been deleted. In the message, I would like to insert the number of shapes that were deleted. Can someone help me with counting those deleted shapes? Below is my current code: Dim cMarks As Shape Dim cCount as Integer cCount = 0 For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete cCount = cCount+1 End if Next cMarks MsgBox "You have removed " & cstr(cCount) & " check marks in Worksheet '" & ActiveSheet.Name & "'." Thanks. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with Count
Hi guys,
Thank you very much for your helps. The code works very well. Can you help me one more thing? Instead of deleting all the shapes in active sheet, can you help me with the code to delete the shapes in the selected cells in the active sheet? For example, if I select cells A1, B1, C5:G10 and when I run the macro, the macro will only delete the shapes in those selected cells. Thanks. "Keith R" wrote: See edited (air)code below. HTH, Keith "Please Help" wrote in message ... Hello all, I have a macro to delete the shapes in an active worksheet. After the shapes are deleted, users will receive a message that they have been deleted. In the message, I would like to insert the number of shapes that were deleted. Can someone help me with counting those deleted shapes? Below is my current code: Dim cMarks As Shape Dim cCount as Integer cCount = 0 For Each cMarks In ActiveSheet.Shapes If cMarks.Type = 13 Then cMarks.Delete cCount = cCount+1 End if Next cMarks MsgBox "You have removed " & cstr(cCount) & " check marks in Worksheet '" & ActiveSheet.Name & "'." Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Count Employee Work Time - Don't Double-count Overlapping Apts. | Excel Worksheet Functions | |||
Excel 2000, count, sort a list & count totals? | Excel Worksheet Functions | |||
Excel Count characters in a textbox to display character count? | Excel Programming | |||
Count Intervals of 2 Numeric values in same Row and Return Count across Row | Excel Worksheet Functions | |||
Count Intervals of Filtered TEXT values in Column and Return Count across a Row | Excel Worksheet Functions |