thanks Tom, you helped me a lot but there is a last question...sorry for
that...
how can i make the link between the textbox and the cell...
can i use the controlsource?.....i´ve tried to use it but it gives me an
error... i already use what you suggested me but i can´t update the textbox
because i can´t link it to the cell...unless i wrote textbox=cells(x,y),but i
believe there is a way of doing that without code.

thanks again


"Tom Ogilvy" wrote:

This methodology can be adapted to textboxes:

http://j-walk.com/ss/excel/tips/tip44.htm

None of what you want to do is supported without using events and code.

You can only link to a cell in a sheet to the best of my knowledge. If you
did that and then linked a cell containing a sum formula to the sum textbox,
the formula would get overwritten when the value in the cell changed.

I still can't imagine a situation where you would need 1500 textboxes all
visible at the same time - and if that isn't the requirement (that the be
visible all at the same time), then there is no requirement for 1500 actual
textboxes. You really need to be more creative in your thinking.

for example, If I had 5 textboxes and 5 labels

iflag = 3
for i = 1 to 5
userform1.Controls("Label" & i).Caption = "Item" & iflag*5 + i
userform1.controls("Textbox" & i).Value = ""
Next

If I wanted to show the form as having the labels for virtual textboxes 1
to 5 I set iflag to 0
for 6 to 10 set iflag to 1
for 11 to 15 set iflag to 2
for 16 to 20 set iflag to 3

Obviously this requires a bit more code and adds some complexity, but that
complexity is trivial to what you are trying to do. With the above concept,
I could represent 10, 1500, 3000 virtual textboxes with minimal additional
work. I understand the labels captions wouldn't be item1 to item1500, but
you can always have an array with the 1500 unique captions and index into
the array.


--
Regards,
Tom Ogilvy

"Liedson31" wrote in message
...
thanks again Bob:
if you remember my previous problem(1.500 textboxes :))) ),let´s say,input
this code into all the textboxes will be a nightmare !!! but it´s the only
solution isn´t it?
what i was askinhg, if is there other solution like format the textbox in
the form open,is there a format property of textbox(like cells format of
excel)...i don´t think so to :). imagine the nightmare i´m going to have
to
put this code in all the textboxes .....

the 3) question mean this:
i have a textbox1 and a textbox2...what i want is when i put a value in
textbox1 the textbox2 must have the same value and either to textbox2
input.....
what i want is something like textbox2=textbox1 but the only way o know is
the
Private Sub.... Change()
textbox2=textbox1
end sub

is there a way of making this without write code,i tried in the
controlsource but i can´t do it..in other hand i want to make something
like
this to

textbox1,textbox2,textbox3,this textboxes are all in a frame..... and i
want
to have a textbox(n) that is the sum of all of them. but in a frame only
can
do this with the change event, so if i have 2 frames when i jump into
frame2
textbox(n) takes the sum value of all,but if i jump from textbox1 to
textbox2
the textbox(n) does´nt take the sum value............

can you help with this 2 problems.....and once more thank you very much
Bob


"Bob Phillips" wrote:

1)

Private Sub ZipCode_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer )
With Me.Textbox1
Select Case True
Case (KeyCode = 96 And KeyCode < 105) 'numeric keypad
'exit quietly
Case (KeyCode = 48 And KeyCode < 57) 'normal keypad
'exit quietly
Case KeyCode = 8 'backspace
If Len(.Text) 0 Then
.Text = Left(.Text, Len(.Text) - 1)
End If
KeyCode = 0
Case KeyCode = 46 ' decimal point
Case Else
KeyCode = 0
Beep
End Select
End With
End Sub

2)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim iPos As Long
With Me.TextBox1
iPos = InStr(1, .Text, ".")
If iPos 0 Then
If iPos < Len(.Text) - 2 Then
MsgBox "Invalid amount"
Cancel = True
End If
End If
End With
End Sub

3) What do you mean by '... without the change event code ...'? Why not
just
set it to the other textbox value?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Liedson31" wrote in message
...
hello everyone...
i have a few questions about textboxes and the answer is i suspect
simple...
--by code i know the answer but it´s the only option i have for this?
1) only let the user to insert numbers in a textbox (without code
isnumeric)
2) the textbox must be formated with 2 decimals (without
format(....,"0,00"))
3) 2 textboxes must have the same value so if i input in one of them
let´s
say the number 5 the other must list 5(without the change event code)


thanks for any help
Miguel