Introducir en cuadro de texto de userform texto o referencia a celda

22/08/2005 - 13:51 por Emilio | Informe spam

Hola a tod@s

estoy preparando una aplicación en que mediante formularios el usuario
solicita unos datos a una gran base de datos propietaria, hasta aquí todo va
de maravilla funciona y muy bien.
Lo que quisiera hacer para mejorarla, es dar la opción al usuario de que
esos datos solicitados en el formulario, los pudiera escribir en el
correspondiente cuadro de texto o indicar la celda/s en que puede
encontrarlos en la hoja correspondiente, he visto formularios en que con un
botón puedes pinchar en la celda/s y la aplicación ya asume que es un rango
no una cadena de texto.
No sé si me habré explicado debidamente, yo lo veo muy claro, otra cosa será
si consigo explicarlo ;-))

¿Alguna idea para empezar?

Muchas gracias por adelantado

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

¿como girar o voltear un cuadro de texto?

Leer las respuestas

#6 Emilio

23/08/2005 - 10:38 | Informe spam

Genial Hector Miguel, como siempre :-))
tu metodo es mucho mas seguro que el que yo estaba preparando a base de
buscar el "$" y la "!"

Gracias de nuevo

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

"Héctor Miguel" escribió en el mensaje
news:

hola, Emilio !

> ... la cuestion es que pretendo usarlo de modo indistinto, como cuadro

de texto o como selector de celda

> ... supongo que debere buscar el contenido del rango seleccionado, si lo

hubiera y si no el literal en el escrito.

prueba con algo +/- como lo siguiente...
[... otras lineas de tu codigo ...]
Dim miRango As Range
On Error Resume Next
Set miRango = Worksheets(Range(RefEdit1).Parent.Name).Range(RefEdit1)
If Not miRango Is Nothing Then
MsgBox "Selección en el editor de referencias:" & vbCr & _
miRango.Parent.Name & vbCr & miRango.Address
Else
MsgBox "Texto en el editor de referencias: " & RefEdit1
End If
[... otras lineas de tu codigo ...]

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida