Number format problem

[Villalobos]

Hello,

I record the data through Textbox1 and unfortunately the format of output cell is text (green triangle at the left top corner) instead of number.
How is it possible convert to number?

 Private Sub CommandButton1_Click()

Dim LastRow As Object

            Set LastRow = Munka2.Range("B65536").End(xlUp)
                LastRow.Offset(1, 0).Value = TextBox1

                MsgBox "Data has been recorded."
                response = MsgBox("Would you like to continue?", _
                    vbYesNo)
            
            If response = vbYes Then
                Unload Me
                UserForm1.Show
            End If
            
            ThisWorkbook.Save
            
            If response = vbNo Then
                End
            End If
                  
            ThisWorkbook.Save
End Sub

 

[Somendra Misra]

Hi,

Change the line

LastRow.Offset(1, 0).Value = TextBox1


to

LastRow.Offset(1, 0).Value = TextBox1.Value + 0

Regards,

 

[Villalobos]

Ohhh... what so simple...

Thank you Somendra Misra!

 

[Somendra Misra]

Welcome back anytime.

Regads,

 

[SirJB7]

Hi, Villalobos!
Despite you solved your original question, there's still an issue: you're saving the workbook twice. And just in case, loaded userforms status aren't kept at save time, so next time you'll open the file, they will be unloaded.
Regards!

 

[Villalobos]

SirJB7,

You saved me!
Thank you!

 

[SirJB7]

Hi, Villalobos!
Glad you solved it. Thanks for your feedback and for your kind words too. And welcome back whenever needed or wanted.
Regards!

 

[rumshar]

I think this can also be used...
LastRow.Offset(1, 0).Value = Val(TextBox1.text)

Rudra

 

[Villalobos]

Hi rumshar,

You are right!