Greetings, I am using the following macro code to reset a table of entered values to zero. The cells are hyperlinked to autoshapes that change colors depending upon the values in the cells. I used the macro recorder to determine the code. My dilemma is this: I have found that the code for my autoshapes only works or recognizes the zeros that I actually typed in during the macro recording (i.e.C46, E46, and G46), it doesnt recognize the zeros that were entered via the autofill (the dragging the handle technique). If I go back and manually type in a zero in say, E54, that autoshape works properly.
My question becomes this, "What is the difference between the zeros that I manually typed in and the ones that were autofilled in". Perhaps I should do this a completely. Thanks
My question becomes this, "What is the difference between the zeros that I manually typed in and the ones that were autofilled in". Perhaps I should do this a completely. Thanks
Code:
Sub RemoveValue()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Range( _<o:p></o:p>
"C46:C66,E46:E66,G46:G66, " _<o:p></o:p>
).Select<o:p></o:p>
Range("U46").Activate<o:p></o:p>
Selection.ClearContents<o:p></o:p>
Range("C46").Select<o:p></o:p>
ActiveCell.FormulaR1C1 = "0"<o:p></o:p>
Range("E46").Select<o:p></o:p>
ActiveCell.FormulaR1C1 = "0"<o:p></o:p>
Range("G46").Select<o:p></o:p>
ActiveCell.FormulaR1C1 = "0"<o:p></o:p>
Range("C46").Select<o:p></o:p>
Selection.AutoFill Destination:=Range("C46:C66"), Type:=xlFillDefault<o:p></o:p>
Range("C46:C66").Select<o:p></o:p>
Range("E46").Select<o:p></o:p>
Selection.AutoFill Destination:=Range("E46:E66"), Type:=xlFillDefault<o:p></o:p>
Range("E46:E66").Select<o:p></o:p>
Range("G46").Select<o:p></o:p>
Selection.AutoFill Destination:=Range("G46:G66"), Type:=xlFillDefault<o:p></o:p>
Range("G46:G66").Select<o:p></o:p>
Range("A1").Select<o:p></o:p>
End Sub