Textbox to Cell ("" vs 0)

[joshuamureke]

Hello all - This is my problem:

I have a UserForm that populates cells on a hidden page. One of the textboxes is a number that CAN be a zero. While testing it out, I enter a zero, and it populates the related cell with a zero, so I know it works. However, when I reload the data into the UserForm, that textbox is blank. This only occurrs with a value of zero. If I enter any other number, it will save from the UserForm tothe cell and then reload from the cell to the UserForm.

Essentially, this is the code

For Save:
worksheet.range.value = me.textbox.value

For Reload
me.textbox.value = worksheet.range.value


Is there something I can add that will return a zero to the Userform if the value of the cell is 0?

Thanks!

Joshua

[Norie]

Try using the Text property of the cell.

Please Login or Register  to view this content.

[joshuamureke]

I did that. No go... I thought it might have something to do with a formatting sub I put in there that adds a comma to numbers over 1000 ( 1000 --> 1,000 ). I created a select case to it, so now, the zero populates. But now, it doesn't format the numbers over 1000... sigh...

[Norie]

What exactly is in the cell?

[joshuamureke]

Whatever I put in the textbox... In this case 0

[Norie]

What's in the cell when the code to reload the value into the texbox is run?

If it's 0 then the code I posted should work, as actually should your original code.

[joshuamureke]

Yeah... it works now, but it won't format... Here's what I've got

Save

ws.Range().value = Me.Textbox.value

After the Save button is pressed, it auto reloads to show you what you've saved, and format (phone numbers go from 1234567890 to (123) 456-7890, etc.)

This particular cell reads as follows during the format sub:

Select Case Me.Textbox.value
Case is >= 1000
Me.Textbox = Format (Me.Textbox, "#,###")
Case Else
End Select

Before, I just had the Format, which might be why the 0 didn't show up. Now it does, but the comma doesn't in the larger numbers...