Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clearing an Active X text box with a macro
I have an Active X text box in an Excel workbook that I would like to be able to clear the contents of the box using a macro. Currently the workbook uses a macro to clear the contents of cells to prepare it for use. I would like to add instructions to this exiting macro to also clear the text box being used to enter notes. Below is the macro. The workbook has multiple sheets, but the text box only appear on the BG Info sheet. That section appears at teh end of the Macro. Thanks for any input. Sub Clear_All() ' ' Clear_All Macro ' Macro recorded 03/03/2005 by covingj ' ' Sheets("FI Resources").Select Range("Clear_FI_Resource").Activate Selection.ClearContents Range("C8").Select ActiveCell.FormulaR1C1 = "1500" Range("B2:C2").Select Sheets("PW").Select Range("Clear_PW").Activate Selection.ClearContents Range("F3").Select Sheets("Preg Minor").Select Range("Clear_Preg_Minor").Activate Selection.ClearContents Range("B7:C7").Select Sheets("FP").Select Range("Clear_FP").Activate Selection.ClearContents Range("F2").Select Sheets("LIF").Select Range("Clear_LIF").Activate Selection.ClearContents Range("N2").Select Sheets("TMA").Select Range("Clear_TMA").Activate Selection.ClearContents Range("F2").Select Sheets("HCPC").Select Range("Clear_HCPC").Activate Selection.ClearContents Range("F2").Select Sheets("ABD-SLMB").Select Range("C7").Select ActiveCell.FormulaR1C1 = "1500" Range("Clear_ABD").Activate Selection.ClearContents Range("G2").Select Sheets("QI").Select Range("C7").Select ActiveCell.FormulaR1C1 = "1500" Range("Clear_QI").Activate Selection.ClearContents Range("G2").Select Sheets("OSS").Select Range("Clear_OSS").Activate Selection.ClearContents Range("C7").Select ActiveCell.FormulaR1C1 = "1500" Range("F2").Select Sheets("NH-HCBS").Select Range("E7").Select ActiveCell.FormulaR1C1 = "1500" Range("Clear_NH").Activate Selection.ClearContents Range("J28").Select ActiveCell.FormulaR1C1 = "=R[-6]C" Range("I2:J2").Select Sheets("IT").Select Range("Clear_IT").Activate Selection.ClearContents Range("C16").Select ActiveCell.FormulaR1C1 = "='NH-HCBS'!R22C10" Range("F16").Select ActiveCell.FormulaR1C1 = "='NH-HCBS'!R22C10" Range("C7").Select With ActiveCell.Characters(Start:=1, Length:=1) End With Range("C7").Select Sheets("BG Info").Select Range("Clear_BG_Info").Activate Selection.ClearContents Range("Primary").Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro for clearing cells | Excel Discussion (Misc queries) | |||
run macro although blinking cursor is active in an active cell | Excel Programming | |||
Clearing text in TextBoxes | Excel Programming | |||
clearing text from text boxes | Excel Discussion (Misc queries) | |||
Clearing all Active Cells | Excel Worksheet Functions |