Consulta Rutina

26/08/2003 - 19:04 por jm | Informe spam
Hola amigos :
como se hace para que esta rutina se active cada vez que abro el archivo, y
como se puede reducir cuadro de entreda ( inputbox)

Sub Valor_UF()
uf = Val(InputBox("Ingrese El Valor" & Chr(13) & "de la Unidad de Fomento
UF", "Valor de la UF"))
ActiveSheet.Range("A1").Value = uf
End Sub


Jose Miguel Ramirez
Desde .cl
 

Leer las respuestas

#1 jm
26/08/2003 - 19:31 | Informe spam
Gracias "maestro"
"Fernando Arroyo" escribió en el mensaje
news:#u5Xnc$
Para que se ejecute un procedimiento al abrir el libro, tienes que llamarlo
desde el evento Workbook_Open. Sobre cambiar el tamaño del inputbox, ignoro
si se podrá hacer. Una solución sería utilizar un formulario personalizado.
Te he puesto un ejemplo en:

http://www.excelsp.com/ejemplo_userform.xls

Un saludo.


Fernando Arroyo
MS MVP - Excel

"jm" escribió en el mensaje
news:OLUUxQ$
Hola amigos :
como se hace para que esta rutina se active cada vez que abro el archivo,


y
como se puede reducir cuadro de entreda ( inputbox)

Sub Valor_UF()
uf = Val(InputBox("Ingrese El Valor" & Chr(13) & "de la Unidad de Fomento
UF", "Valor de la UF"))
ActiveSheet.Range("A1").Value = uf
End Sub


Jose Miguel Ramirez
Desde .cl


Preguntas similares