Need help with userform data transfer

[MrHahn]

Hey guys, first and foremost. ALL YOU GUYS ARE AMAZING! I've learned so much from this site (more or less VBA newb) and I just have to say, I am thoroughly impressed with how helpful everybody is on here. Really really awesome! Ok, time for my issue! I am improving a quote spreadsheet I made for work and am implementing a userform. I'm having a small issue with transferring the data, everything is setup correctly and the data does get transferred. However, in cells that are formatted for accounting, the userform is submitting blank data which is getting rid of the "$" in the cell and just leaving it completely blank. Not really a big deal, but just the visuals of seeing blank cells where a blank cell with a "$" on the left side of it should be it driving me nuts lol.

Ok so this is what I have:

With Sheets("QUOTE")
.Range("C1").Value = BOATPRICE.Value
End With

And that's how it is for every piece of data that needs to be on the sheet.
I've figured out how to make the form do what I want it to do (if its the easiest/right way I don't know).
But I could set it up like this and make it do what I want:

If PRICE.Value = True Then
.Range("m1").Value = PRICE.Value
Else
.Range("m1").Value = "0"
End If

I do know that the latter one works, however, I have 29 inputs that are set up to have the "$" in them regardless of if they get used or not and I'd rather not do that for all 29 accounting cells/inputs lol. I'm sure I'm doing this in the most complicated way but it's how I'm picking up this VBA stuff I guess lol.

Thanks in advance for the help!

 

[bertie]

You can set the number format of the cell as you update the value.
e.g.,

With Sheets("QUOTE").Range("M1")
  .Value=PRICE.Value
  .NumberFormat = "$#.##"
End With