InputBox en Microsoft Excel

Hola de nuevo amigos y lectores, en esta oportunidad les mostraré de qué se trata un inputbox en excel
¿Nunca se les ocurrió apretar un botón y les aparezca una ventana donde haya que escribir datos? bueno, esto es Inputbox, empecemos

Abrimos Excel >> Herramientas >> Macro >> Macros
clickeamos en el cuadrado en blanco que está al lado de "Nombre de la macro" y le ponemos un nombre
por ejemplo: InputPROBANDO

Presionamos en Crear

Bueno, esta ventana es la de Visual Basic, les aparecerá y aquí deberán programar lo que quieren que haga el programa, tocamos un botón y (En base de lo programado) se producen los movimientos en la hoja de cálculo

En este caso, para que en A2 nos aparezca el nombre que queramos, escribimos...

Sub inputPROBANDO()

nombre = InputBox("Nombre", "Escriba aquí su nombre", "ReadandNever")


la primer palabra, nombre es la variable que la utilizaremos más adelante reemplazando lo que continúa
Inputbox es la función que hará que aparezca un cartel con algunas condiciones
Las primeras palabras que aparecen entre comillas: Nombre o, en este caso, la primer palabra es lo que te va a pedir una tarea, la segunda frase entre comillas: Escriba su nombre es el título. La tercer palabra en comillas es lo que va a aparecer en el lugar que tengamos que llenar que en este caso es: ReadandNever

Nota: Digo en A2 porque en A1 va a aparecer la palabra: "Nombre" 
Si lo dejamos así no va a funcionar lo que queramos hacer, cuando pongamos enter no va a ocurrir nada, esto es lo primero... Ahora le ordenaremos al programa qué es lo que queremos hacer

sigamos....

Ahora le daremos las indicaciones...
Que se posicione en A2 para posteriormente escribir el nombre

Range("A2").Select

Ahora, como les había dicho anteriormente, usaremos la variante "Nombre" para referirnos al inputbox

ActiveCell.FormulaR1C1 = nombre

O sea que donde estamos posicionados, que es en A2, nos escribirá lo que decía arriba, lo que pusimos en el Inputbox.

Ya el trabajo está listo, pero si querés mejorarlo le agregaremos una condición
Si A2, (O sea el nombre que escribiste) es igual a "ReadandNever" entonces... aparece un cartel que dice: "Bienvenidos", pero si dice cualquier cosa que no sea "ReadandNever" entonces se sale el cartel y no aparece nada más...



If ActiveCell.Value = "ReadandNever" Then
MsgBox ("Bienvenido")


Else                            ' si el if no se cumple entonces....
Beep                           ' --> se usa para que el cartel desaparezca
End If

End Sub

---

Bueno!! acá me despido!! espero les haya sido útil y hayan podido rescatar algo... ¡Hasta la próxima!

Si quieren ver mis otras entradas de Microsoft Excel pulsen

http://readandnever.blogspot.com.ar/search/label/Microsoft%20Excel