|
|
Hola:
Esto puede ser con el uso de un InputBox o un formulario llamado Userform.
Por ser tan simple (1 solo dato) optaré por el primero.
Un [b]Inputbox [/b]tiene esta sintaxis: texto, título y otros argumentos más que no te solicitan
Primero deberás establecer cómo lo llamarás. Puede ser un botón en la hoja o un [b]atajo de teclado[/b]. Optaremos por lo 2do (en este foro encontrarás cientos de consultas acerca de cómo colocar un botón que llame a una macro)
Entrá al Editor (presionando juntas [b]Alt y F11[/b]), i[b]nsertá un módulo[/b] y allí copiá la rutina que te adjunto.
Ahora volvé a la hoja, y desde menú [b]Herramientas, Macros[/b], [b]seleccioná [/b]esta y presionando el botón [b]Opciones [/b]podrás ingresar alguna letra (de las menos conocidas). Aceptá.
Presioná juntas las teclas [b]Ctrl y tu letra [/b]y debieras ver el form que te solicita el dato.
Sub primermacro()
dato = InputBox("Teclee un valor numérico para la celda C2", "Captura de valores numéricos")
If Not IsNumeric(dato) Then
MsgBox "el dato no es numérico"
Else
ActiveSheet.Range("C2") = dato
End If
End Sub
Saludos y no dejes la consulta sin finalizar
Elsa
Para más información sobre [b]macros [/b]podés visitar mis sitios:
[url=http://galeon.com/aplicaexcel]http://galeon.com/aplicaexcel[/url]
[url=http://es.geocities.com/lacibelesdepunilla/manual_VBA]http://es.geocities.com/lacibelesdepunilla/manual_VBA[/url]
|