Hi,

I have a userform where the user enters the percentage complete of various
items. I have a problem dealing with both of the following;
1) When activated, the userform extracts the previous "percent complete"
from the spreadsheet. If the user tabs over the previous number (doesn't
change the value) i get a zero or error message.
2) Because the number entered by the user is divided by 100, if the
"percent complete" is zero, i get a error (but i need the program to accept
zeros as an imput).

I'm currently using the following code for transferring the userform inputs
into the spreadsheet.
Range("PrelimDes").Value = Format((txtPrelimDesComplete.Value / 100),
"#0%")

What code could i use to alleviate my problems? Also, I havent defined my
userform variables. What is an appropriate dim for "percentage" values in
userform textboxes?

Thanks for your help
Troy

Try:

If IsNumeric(TextBox1) Then
Range("A1").NumberFormat = "#0%"
Range("A1").Value = TextBox1 / 100
End If

--

Vasant

"TroyB" wrote in message
u...
Hi,

I have a userform where the user enters the percentage complete of various
items. I have a problem dealing with both of the following;
1) When activated, the userform extracts the previous "percent
complete"
from the spreadsheet. If the user tabs over the previous number (doesn't
change the value) i get a zero or error message.
2) Because the number entered by the user is divided by 100, if the
"percent complete" is zero, i get a error (but i need the program to
accept
zeros as an imput).

I'm currently using the following code for transferring the userform
inputs
into the spreadsheet.
Range("PrelimDes").Value = Format((txtPrelimDesComplete.Value / 100),
"#0%")

What code could i use to alleviate my problems? Also, I havent defined my
userform variables. What is an appropriate dim for "percentage" values in
userform textboxes?

Thanks for your help
Troy

Thank you Vasant. The code works great.
These newsgroups are excellent!

Regards,
Troy

"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message
...
Try:

If IsNumeric(TextBox1) Then
Range("A1").NumberFormat = "#0%"
Range("A1").Value = TextBox1 / 100
End If

--

Vasant

"TroyB" wrote in message
u...
Hi,

I have a userform where the user enters the percentage complete of
various
items. I have a problem dealing with both of the following;
1) When activated, the userform extracts the previous "percent
complete"
from the spreadsheet. If the user tabs over the previous number
(doesn't
change the value) i get a zero or error message.
2) Because the number entered by the user is divided by 100, if the
"percent complete" is zero, i get a error (but i need the program to
accept
zeros as an imput).

I'm currently using the following code for transferring the userform
inputs
into the spreadsheet.
Range("PrelimDes").Value = Format((txtPrelimDesComplete.Value /
100),
"#0%")

What code could i use to alleviate my problems? Also, I havent defined
my
userform variables. What is an appropriate dim for "percentage" values
in
userform textboxes?

Thanks for your help
Troy