Buscar un valor

06/08/2003 - 16:31 por Adolfo Fernández | Informe spam

Hola gente

Utilizo el siguiente código para buscar un valor (sacado integramente del
grabador), y funciona perfectamente con números enteros, pero necesito que
sean con decimales y hay casca.

¿Alguien me puede hechar una mano?
Private Sub CBBUSCAR_Click()

a = TBValorBuscar.Text
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

Y ya que estamos ¿cómo se hace para que al pulsar sobre un cuadro de texto
el contenido que hay en el se borre?,
y por ultimo, ¿cómo tendría definir el valor de una variable con en
contenido de dos cuadros de texto? El tema es que tengo una parte fija y una
parte variable y ya con tal de no teclear más de lo necesario ..

De todas formas lo que mas me urge es saber como hay que hacer para porder
buscar valores decimales.

Un saludo y gracias por anticipado.

Adolfo

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Adolfo Fernández

06/08/2003 - 17:36 | Informe spam

Me respondo a mi mismo, si acepta valores decimales, el problema es que yo
los metia con coma, en vez de con punto y claro . el calor.

De todas formas queda pendiente lo de borrar el contenido de un cuadro de
texto al pulsar sobre el, a ver si hay alguien que me pueda explicar como se
hace.

Y lo de definir una variable con el contenido de dos cuadros de texto
también es algo que estaría bien saber como se hace.

Un saludo,
Adolfo

"Adolfo Fernández" escribió en el mensaje
news:

Hola gente

Utilizo el siguiente código para buscar un valor (sacado integramente del
grabador), y funciona perfectamente con números enteros, pero necesito

que

sean con decimales y hay casca.

¿Alguien me puede hechar una mano?
Private Sub CBBUSCAR_Click()

a = TBValorBuscar.Text
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

Y ya que estamos ¿cómo se hace para que al pulsar sobre un cuadro de texto
el contenido que hay en el se borre?,
y por ultimo, ¿cómo tendría definir el valor de una variable con en
contenido de dos cuadros de texto? El tema es que tengo una parte fija y

una

parte variable y ya con tal de no teclear más de lo necesario ..

De todas formas lo que mas me urge es saber como hay que hacer para porder
buscar valores decimales.

Un saludo y gracias por anticipado.

Adolfo

Responder a este mensaje

#2 César

07/08/2003 - 06:51 | Informe spam

"Adolfo Fernández" wrote in
news::

De todas formas queda pendiente lo de borrar el contenido de un cuadro
de texto al pulsar sobre el, a ver si hay alguien que me pueda
explicar como se hace.

¿te sirve esto?

Private Sub TextBox1_GotFocus()
TextBox1.Text = ""
End Sub

Responder a este mensaje

#3 César

07/08/2003 - 06:53 | Informe spam

"Adolfo Fernández" wrote in news:uXaLHCDXDHA.2444
@tk2msftngp13.phx.gbl:

Y lo de definir una variable con el contenido de dos cuadros de texto
tambi‚n es algo que estar¡a bien saber como se hace.

dim foobar as String

' el espacio que pongo en medio es arbitrario,
' separa los dos textos como tú quieras
foobar = TextBox1.Text & " " & TextBox2.Text

Responder a este mensaje

#4 Adolfo Fernández

11/08/2003 - 15:19 | Informe spam

Hola Cesar, gracias por indicarme como definir una variable con el contenido
de dos cuadros de texto.

Respecto a la otra respuesta de borrar el cuadro de texto al pulsar sobre
el, con la instrucción gotfocus no funciona, al final lo he logrado con el
evento MouseDown, aunque claro si lo consiguiese simplemente al llevar el
cursor hasta él pues sería la leche, de todas formas gracias por el interes.

Un saludo,
Adolfo
"César" escribió en el mensaje
news:

"Adolfo Fernández" wrote in news:uXaLHCDXDHA.2444
@tk2msftngp13.phx.gbl:

> Y lo de definir una variable con el contenido de dos cuadros de texto
> tambi,n es algo que estar¡a bien saber como se hace.

dim foobar as String

' el espacio que pongo en medio es arbitrario,
' separa los dos textos como tú quieras
foobar = TextBox1.Text & " " & TextBox2.Text

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida