Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear a textbox
I cannot find a way to clear the contents of an
ActiveX textbox. Here is what I would like to say: Sub ClearTextbox() Dim oleObj As OLEObject For Each oleObj In ActiveWorkbook.Sheets _ ("Contract Master Order").OLEObjects If TypeOf oleObj.Object Is MSForms.TextBox Then If oleObj.Name = "Control 1" Then With oleObj 'clear the contents End With End If End If Next Would appreciate help, please. Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.718 / Virus Database: 474 - Release Date: 09/07/2004 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear a textbox
Sub ClearTextbox()
Dim oleObj As OLEObject For Each oleObj In ActiveWorkbook.Sheets _ ("Contract Master Order").OLEObjects If TypeOf oleObj.Object Is MSForms.TextBox Then If oleObj.Name = "Control 1" Then With oleObj .Object.Value = "" End With End If End If Next or just ActiveWorkbook.Sheets("Contract Master Order") - .OLEObjects("Control 1").Object.Value = "" -- Regards, Tom Ogilvy "Stuart" wrote in message ... I cannot find a way to clear the contents of an ActiveX textbox. Here is what I would like to say: Sub ClearTextbox() Dim oleObj As OLEObject For Each oleObj In ActiveWorkbook.Sheets _ ("Contract Master Order").OLEObjects If TypeOf oleObj.Object Is MSForms.TextBox Then If oleObj.Name = "Control 1" Then With oleObj 'clear the contents End With End If End If Next Would appreciate help, please. Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.718 / Virus Database: 474 - Release Date: 09/07/2004 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear a textbox
Value!
Thanks again. Regards. "Tom Ogilvy" wrote in message ... Sub ClearTextbox() Dim oleObj As OLEObject For Each oleObj In ActiveWorkbook.Sheets _ ("Contract Master Order").OLEObjects If TypeOf oleObj.Object Is MSForms.TextBox Then If oleObj.Name = "Control 1" Then With oleObj .Object.Value = "" End With End If End If Next or just ActiveWorkbook.Sheets("Contract Master Order") - .OLEObjects("Control 1").Object.Value = "" -- Regards, Tom Ogilvy "Stuart" wrote in message ... I cannot find a way to clear the contents of an ActiveX textbox. Here is what I would like to say: Sub ClearTextbox() Dim oleObj As OLEObject For Each oleObj In ActiveWorkbook.Sheets _ ("Contract Master Order").OLEObjects If TypeOf oleObj.Object Is MSForms.TextBox Then If oleObj.Name = "Control 1" Then With oleObj 'clear the contents End With End If End If Next Would appreciate help, please. Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.718 / Virus Database: 474 - Release Date: 09/07/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.718 / Virus Database: 474 - Release Date: 09/07/2004 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Transfer a name from one cell to another but leave clear if clear? | Excel Worksheet Functions | |||
TextBox will not clear date??????????? | Excel Discussion (Misc queries) | |||
clear the clear the web page email attachment lines | Excel Discussion (Misc queries) | |||
clear textbox contents | Excel Programming | |||
UserForm TextBox to ActiveSheet TextBox over 256 characters | Excel Programming |