Custom cell format in textbox

[Villalobos]

Hello,

I would like to ask that how is it possible to display a custom cell format in textbox on userform?
I have attached the sample file.

Thanks in advance the response!

 

[NARAYANK991]

Hi ,

Can you check this out ?

http://www.mrexcel.com/forum/excel-questions/361707-userform-textbox-custom-formatting.html

Narayan

 

[Villalobos]

Hi,

I'm a bit confused... please, could you give me more to understand it.

 

[Jon von der Heyden]

If you are referring to a value already in a cell then the easiest is to format the cell as desired and then pull the value into the control using the range Text property.

E.g:

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = Munka1.Range("B8").Text
End Sub

 

[Villalobos]

Hi,

Unfortunately in this case the invoice number counter doesn't work.

 

[Jon von der Heyden]

Remove Textbox1 ControlSource from the properties and then use this code in your userform class:

Option Explicit

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = Munka1.Range("B8").Text
End Sub

Private Sub CommandButton1_Click()
    With Munka1.Range("B8")
        If IsNumeric(.Value) Then
            .Value = .Value + 1
            Me.TextBox1.Value = .Text
        End If
    End With
End Sub

 

[Villalobos]

Now it is working.
Thank you Jon your time and help!