LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 40
Default Userform/Cell formatting

I had to change the offsets from 0, 0 to 1, 0 and it
worked perfectly. But what is the code I would use if I
wanted it set up like I had before (see below)....

like this:
Worksheets("Pay Calculator").Range("AA1").Value =
TextBox1.Value

and when I type a number in one of the textboxes, it
automatically adds a % on it and shows that % while in the
text box.

Also the userform1.hide code at the end doesnt actually
close the userform. What is the code I would use to have
it unload the form so next time I open it up, the changes
are automatically reflected.


Thanx.

Private Sub CommandButton2_Click()
Dim i As Long, sStr As String
With Worksheets("Pay Calculator").Range("AA1")
For i = 1 To 4
sStr = Me.Controls("TextBox" & i).Value
If InStr(sStr, "%") Then
.Offset(i - 1, 0).Value = sStr
Else
.Offset(i - 1, 0).Value = CDbl(sStr) / 100
End If
Next
End With
UserForm1.Hide
End Sub


-----Original Message-----
Private Sub CommandButton2_Click()
Dim i as Long, sStr as String
With Worksheets("Pay Calculator").Range("AA1")
for i = 1 to 4
sStr = Me.Controls("TextBox" & i).Value
if instr(sStr,"%") then
.offset(i-0,0).Value = sStr
Else
.offset(i-0,0).Value = cdbl(sStr)/100
End if
Next
End With
Userform1.Hide
End Sub

--
Regards,
Tom Ogilvy

Todd Huttenstine

wrote in message
...
Below is code that inserts the value of the specified
textbox into the specified cell.

Private Sub CommandButton2_Click()
Worksheets("Pay Calculator").Range("AA1").Value =
TextBox1.Value
Worksheets("Pay Calculator").Range("AA2").Value =
TextBox2.Value
Worksheets("Pay Calculator").Range("AA3").Value =
TextBox3.Value
Worksheets("Pay Calculator").Range("AA4").Value =
TextBox4.Value
UserForm1.Hide
End Sub

I have formatted the cells in percentages rounded off

to 2
decimal places. For instance if I were to enter 10
directly in the cell, the cell would show 10%. So now

if
I were to enter 10 in TextBox1, I want it to put 10% in
cell AA1, instead it puts 1000% in the cell, however if

I
were to enter 10% in TextBox1, it then puts 10% in cell
AA1 which is what I want, but I dont want to have to

type
the % in.

Is there a way I can make it to where no matter what is
typed in the text box it will automatically have the %

on
the end of the number in the textbox. Or is it possible
to when I type in a number in the textbox without a % on
the end, it will automatically put 10% in the cell?

What
is the code for these 2 methods?

Thank you.



.

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Conditional formatting and userform jknapp1005 Excel Discussion (Misc queries) 0 May 6th 09 04:53 PM
Userform Formatting Todd Huttenstine Excel Programming 7 September 28th 03 09:36 PM
Anchor a Userform to a cell in the worksheet Bob Kaku Excel Programming 2 September 2nd 03 05:48 AM
Userform reading a cell value Ron de Bruin Excel Programming 0 August 8th 03 12:55 PM
Userform Textbox writing to a cell Rich[_12_] Excel Programming 3 July 22nd 03 02:34 AM


All times are GMT +1. The time now is 07:02 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"