Sobre cuadros de texto

27/05/2007 - 21:31 por Carmen | Informe spam
En la hoja en la que estoy trabajando he puesto dos cuadros de texto, uno de
ellos "Introducir Datos", y otro "Imprimir", los he ligado a una macro y
hacen las dos funciones a las que hacen alusión. Además funcionan
perfectamente, solo hay un problema, que cuando voy trabando se van quedando
en la parte superior de la hora, y si quiero imprimir la hoja es incomodo
que salgan,
¿dónde se suelen poner? ¿De qué forma para que no molesten al trabajar?
Como veis cuanto más avanzo nuevos problemas van saliendo. Pensaba llevar
mañana la aplicación terminada al trabajo, pero voy a ir con más dudas de
las que traje. Eso si, he mejorado mucho la aplicación. Gracias gurús del
Excel.
Un saludo
Carmen
 

Leer las respuestas

#1 Esteban Dido
28/05/2007 - 01:42 | Informe spam
Hola Carmen

¿Es algo así lo que buscas?
Pega este código en el módulo de la hoja en que estás trabajando. Cambia el
30 y el 12 a tus necesidades.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ubic = ActiveWindow.VisibleRange.Address
UbicEn = Range(Ubic).Cells(30, 12).Address
With ActiveSheet.Shapes("TextBox1")
If .TopLeftCell.Address = UbicEn Then Exit Sub
Izquierda = Range(UbicEn).Left
Arriba = Range(UbicEn).Top
.Left = Izquierda: .Top = Arriba
End With
End Sub

Un saludo
Esteban


"Carmen" <carmenARROBAhotmail.com> escribió en el mensaje
news:
En la hoja en la que estoy trabajando he puesto dos cuadros de texto, uno


de
ellos "Introducir Datos", y otro "Imprimir", los he ligado a una macro y
hacen las dos funciones a las que hacen alusión. Además funcionan
perfectamente, solo hay un problema, que cuando voy trabando se van


quedando
en la parte superior de la hora, y si quiero imprimir la hoja es incomodo
que salgan,
¿dónde se suelen poner? ¿De qué forma para que no molesten al trabajar?
Como veis cuanto más avanzo nuevos problemas van saliendo. Pensaba llevar
mañana la aplicación terminada al trabajo, pero voy a ir con más dudas de
las que traje. Eso si, he mejorado mucho la aplicación. Gracias gurús del
Excel.
Un saludo
Carmen



Preguntas similares