Userform

Suponiendo que el rango para VLooukup fuera A1:B10 y que se deseara mostrar el valor de la columna B cuya columna A coincida con lo introducido en el TextBox1:

Private Sub TextBox1_Change()
If TextBox1 <> "" Then TextBox2 = WorksheetFunction.VLookup(Val(TextBox1), Range("Hoja1!A1:B10"), 2, False)
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Bocha" escribió en el mensaje news:%

Hola a Todos:

Tengo una consulta.
Tengo un Userform en donde hay varios Textbox. Lo que necesito saber es lo
siguiente:
¿Como puedo hacer para que al colocar un valor en el text box1 me devuelva
digamos en el textbox2 el contenido de una celda determinada (hoja1 celda
P13)?
O lo que sería mejor, que busque el contenido del textbox1 como con el
método buscarv en un rango determinado de una hoja?

Agradezco cualquier ayuda al respecto.

Gracias.

Saludos,

Marcelo

Estimado Fernando:

Muchas Gracias por tu ayuda.
He aplicado tu código pero me da un error que dice "no se puede obtener la
propiedad Vlookup de de clase WorkSheetFunction".
Por otra parte, también tengo en el TextBox1 un código que copia el valor en
una celda de una hoja. Pensé que tal vez el error estaba en aplicar las dos
opciones pero al probar colocando solo tu código me da el mismo error.
Necesitaría ayuda para solucionarlo.

Muchas Gracias.


Private Sub TextBox1_Change()
Dim Texto As String
Texto = TextBox1.Value
Sheets("Cancelación").Range("CY6").Value = Texto
If TextBox1 <> "" Then TextBox2 = WorksheetFunction.VLookup(Val(TextBox1),
Range("A.T.!A1:B10"), 2, False)
End Sub


Saludos,

Marcelo


"Fernando Arroyo" escribió en el mensaje
news:%
Suponiendo que el rango para VLooukup fuera A1:B10 y que se deseara mostrar
el valor de la columna B cuya columna A coincida con lo introducido en el
TextBox1:

Private Sub TextBox1_Change()
If TextBox1 <> "" Then TextBox2 WorksheetFunction.VLookup(Val(TextBox1), Range("Hoja1!A1:B10"), 2, False)
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Bocha" escribió en el mensaje
news:%

Hola a Todos:

Tengo una consulta.
Tengo un Userform en donde hay varios Textbox. Lo que necesito saber es lo
siguiente:
¿Como puedo hacer para que al colocar un valor en el text box1 me devuelva
digamos en el textbox2 el contenido de una celda determinada (hoja1 celda
P13)?
O lo que sería mejor, que busque el contenido del textbox1 como con el
método buscarv en un rango determinado de una hoja?

Agradezco cualquier ayuda al respecto.

Gracias.

Saludos,

Marcelo

El código no es sino un ejemplo, y funciona bien (o al menos a mí me funciona bien) si lo que se busca es un número del 0 al 9. Si lo que tienes que buscar es otra cosa, lo mejor es que hagas pruebas con otros eventos del cuadro de texto, como por ejemplo AfeterUpdate o Exit.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Bocha" escribió en el mensaje news:

Estimado Fernando:

Muchas Gracias por tu ayuda.
He aplicado tu código pero me da un error que dice "no se puede obtener la
propiedad Vlookup de de clase WorkSheetFunction".
Por otra parte, también tengo en el TextBox1 un código que copia el valor en
una celda de una hoja. Pensé que tal vez el error estaba en aplicar las dos
opciones pero al probar colocando solo tu código me da el mismo error.
Necesitaría ayuda para solucionarlo.

Muchas Gracias.


Private Sub TextBox1_Change()
Dim Texto As String
Texto = TextBox1.Value
Sheets("Cancelación").Range("CY6").Value = Texto
If TextBox1 <> "" Then TextBox2 = WorksheetFunction.VLookup(Val(TextBox1),
Range("A.T.!A1:B10"), 2, False)
End Sub


Saludos,

Marcelo

Gracias Fernando:

Está clato que el problema entonces se debe a eso.
Los valores qe tengo que devolver serían todo tipos de
datos (número, fecha, texto).
¿Cómo Debería hacer para poder lograr esto?
No conozco como funcionan los eventos que mencionas. He
leido en la ayuda sobre ellos pero me surgen dudas de cómo
aplicarlos.
¿Podrías darme un ejemplo de cómo hacerlo para la
situación de la que hemos estado hablando?


Muchas Gracias.

Marcelo

El código no es sino un ejemplo, y funciona bien (o al

menos a mí me funciona bien) si lo que se busca es un
número del 0 al 9. Si lo que tienes que buscar es otra
cosa, lo mejor es que hagas pruebas con otros eventos del
cuadro de texto, como por ejemplo AfeterUpdate o Exit.

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Bocha" escribió en el mensaje

news:

Estimado Fernando:

Muchas Gracias por tu ayuda.
He aplicado tu código pero me da un error que dice "no

se puede obtener la

propiedad Vlookup de de clase WorkSheetFunction".
Por otra parte, también tengo en el TextBox1 un código

que copia el valor en

una celda de una hoja. Pensé que tal vez el error

estaba en aplicar las dos

opciones pero al probar colocando solo tu código me da

el mismo error.

Necesitaría ayuda para solucionarlo.

Muchas Gracias.


Private Sub TextBox1_Change()
Dim Texto As String
Texto = TextBox1.Value
Sheets("Cancelación").Range("CY6").Value = Texto
If TextBox1 <> "" Then TextBox2 =

WorksheetFunction.VLookup(Val(TextBox1),

Range("A.T.!A1:B10"), 2, False)
End Sub


Saludos,

Marcelo

.

"Marcelo" escribió en el mensaje news:2b3ae01c4681b$f47ec190$

Gracias Fernando:

Está clato que el problema entonces se debe a eso.
Los valores qe tengo que devolver serían todo tipos de
datos (número, fecha, texto).
¿Cómo Debería hacer para poder lograr esto?

Número: tal como ponía en mi primer mensaje

Fecha: If TextBox1 <> "" Then TextBox2 = WorksheetFunction.VLookup(CLng(DateValue(TextBox1)), Range("Hoja1!A1:B10"), 2, False)

Texto: If TextBox1 <> "" Then TextBox2 = WorksheetFunction.VLookup(TextBox1, Range("Hoja1!A1:B10"), 2, False)

No conozco como funcionan los eventos que mencionas. He
leido en la ayuda sobre ellos pero me surgen dudas de cómo
aplicarlos.
¿Podrías darme un ejemplo de cómo hacerlo para la
situación de la que hemos estado hablando?

Lo mejor que puedes hacer es probar tú mismo los distintos eventos, situando el código en ellos. No tiene demasiando sentido entrar en explicaciones técnicas sobre materias que pueden ser comprobadas sin riesgo mediante la práctica.
Un saludo.


Fernando Arroyo
MS MVP - Excel