Default Values in User Forms

[VBAmalta89]

I have a user form with a number of text boxes. I need the numerical value in each of these text boxes to be zero by default, ie when the user form pops up these text boxes would have the zero value inputted in them already without any user inputting.

how can i do this?

 

[VoG]

Try like this in the userform's code module

Private Sub UserForm_Initialize()
TextBox1.Value = 0
'
'and so on
'
End Sub

 

[JamesW]

Hi,

You can set the defaults in the properties window (right click on a textbox -> Properties -> Value = 0).

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--> Alternatively, you could do this:

Private Sub UserForm_Activate()
    For Each ccont In Me.Controls
        If TypeName(ccont) = "TextBox" Then ccont.Value = 0
    Next
End Sub

 

[VBAmalta89]

thanks very much for your prompt replies they worked perfectly.