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

Generar números aleatorios en excel

Hello!! En esta oportunidad les enseñaré cómo generar números aleatorios ENTEROS con Excel
Esta función sirve mucho si querés poner cualquier número, para no escribir un número sistemáticamente en cada celda
Si querés, para practicar la función de promedio poner notas sin escribir número por número
También sirve para hacer un juego de adivinar un número (Al azar), y que aparezca un cartel que te indique si es más chico el número que has elegido o más grande, igualmente más adelante crearé una entrada que explique cómo hacer ese juego
Sólo necesitas arrastrar esta función hacia todas las celdas, quedará algo como esto...

Sólo hay que escribir esta función

=REDONDEAR(ALEATORIO()*(10-1)+1;0)

y listo, redondear hace que no sea un número con decimales, el (10-1) y el "+1" establece que el número aleatorio estaría entre 1 y 10, el cero es que no aparezca ningún número decimal

Fue fácil, ahora lo único pero importante que falta para que cada vez que aprietes algo no cambie de número es:

Selecciona todos los números con esta función

Control copiar
Control pegado especial
Selecciona la opción de valores

Entonces nada más aparecerán los números (Sin ninguna fórmula para que más adelante no se cambien) en las celdas


Bueno, espero les haya servido, hasta la próxima amigos!!!

Averiguar promedio y formato condicional en Excel

A continuación les enseñaré, como dice el título a averiguar automáticamente los promedios de las notas de alguna materia... 

Siempre que yo cambie las notas va a aparecer, automáticamente el promedio abajo (Obviamente hay que agregarle una función

Quedará algo como esto...

En la casilla donde tiene que decir el promedio de todas las notas escribiremos

1º -->   =   (Esto es importantísimo para cualquier fórmula, ya que sin él no sería una fórmula, sería un texto)
2º -->   promedio   (Esta es la funcion, que va a calcular instantáneamente el promedio de las notas
3º -->   (D8:D14)   (Aquí van a figurar la cadena de celdas de las notas dónde sacaremos el promedio) lo hacemos en la primera y arrastramos para la derecha.

Ya está, para que aparezcan sólo dos decimales clickearemos en la cadena de celdas de los promedios
Presionaremos Ctrl 1, entre las pestañas de arriba pondremos "Número",
Buscamos en la lista desplegable la palabra "Número" (En la que tiene de título Categoría)
A la derecha dice: Posiciones decimales: aquí pondremos la que queramos...

Algo como esto...

Una vez hecho esto, utilizaremos formato condicional para resaltar los promedios aprobados, nosotros aprobamos con mínimo 6
Entonces
Resaltamos los promedios, los que posteriormente le agregaremos formato condicional

Primero que todo. MUY IMPORTANTE, escribimos en una celda no visible o que después ocultaremos el número 6, o el número con el que se apruebe las materias

Volvemos a resaltar todos los promedios
Clickeamos en:

1.                         Formato
2.                         Formato condicional
3.                         Donde dice "Entre" ponemos "Mayor o igual que..."
4.                         Nos posicionamos en el cuadrado de la derecha de "Mayor o igual que..."
5.                         Aquí clickeamos, atrás del cuadro de formato condicional, la celda donde habíamos escrito el 6 en un principio
6.                         Abajo de esta celda hay un botón que dice "Formato", clickeamos en él
7.                         Le ponemos el formato que querramos que sea visible cuando la materia está aprobada, ya que pusimos mayor o igual que 6
8.                         Listo, igual falta algo, supón que has elegido el color negro, damos en "aceptar" y a todos los promedios le pondremos el color que queremos que figure cuando está desaprobado, por ejemplo ROJO y en NEGRITA

Veremos los resultados a continuación...

Ok, I've just finished, I hope you will can do it too

Lista desplegable en Excel

Hello Friends Here I will show you something, That's Obvious. haha

Bueno, en la imagen de arriba (Como pueden observar) aparece la indicación: "Introduzca el nombre del producto"

En la parte verde es donde se tendría que desplegar la lista de artículos   --> Nota: Es importante que sea en orden alfabético, así es fácil de encontrar
Nos posicionamos en la celda donde queremos que la lista se efectúe hacia abajo (En la celda verde)

Clickeamos "Datos, Validación"

Luego de esto hay que elegir la opción "Lista" (de las opciones de lista desplegable que está abajo de donde dice "Permitir")


Obviamente, antes de hacer todo esto hay que tener hecha la lista de los objetos que querés que la persona elija al hacer click en la celda, en este ejemplo lo haremos en base a materiales escolares

Entonces...

Clickeamos entonces en el cuadrado blanco de "Origen", y ahí señalamos las celdas donde está toda la lista (Para que después aparezca)
Ponemos "OK" y listo... ya está la lista desplegable

Nota importante: Acordate que conviene que esté en orden alfabético, para encontrarlo rápido, lo único que tenés que hacer antes de ocultar la lista es: Agarras toda la lista.. 
Datos, Ordenar, Ascendiente....!!!! Acordate de ocultarlo, así no te estorba (Total aunque lo ocultes sigue funcionando)        Para ocultarlo seleccionas las filas donde está la lista.. y clickeas "Botón derecho","Ocultar"


LISTO! quedará algo como esto...

OK? les gusta como queda? Les sirvió esta ayuda? gracias...

Función "Buscarv" para buscar Rápido notas

Hey there!
En esta oportunidad les enseñaré cómo "Buscar una materia de la escuela y que se escriban automáticamente todas las notas de los tres trimestres", Empecemos

Quedaría algo como esto...

Cuando escribimos "Matemática" abajo de donde dice materia, aparecerán automáticamente las notas que obtuvo la persona en los tres trimestres consecutivamente

La función que usaremos en este casillero para que busque la materia y muestre abajo directamente todos los números (Sin tener que buscarlos) se llama "Buscarv"

¿Qué hace esta función?

El objetivo de esta función es buscar verticalmente (Como su nombre lo indica) una palabra y decir los datos de la derecha... de ésta, siempre especificaremos bien Qué dato de la derecha queremos obtener, esto lo haremos escribiendo en la fórmula el número de columna....

La función quedaría...

(No olvidarse del igual para escribir una función en excel, porque si no aparece como texto y no funciona)

Para obtener los datos del primer trimestre... lo anotamos en "B10"

=BUSCARV($B$9;$G$4:$J$19;2;FALSO)

¿Entienden la fórmula? Si miran el gráfico de arriba se darán cuenta que "B9" es donde hay que poner la materia, que una vez puesta, la función busca "Matemática" (por poner un ejemplo) en el cuadro y devuelve los valores de la misma, en este caso del 1º trimestre...

G4 hasta J19 es el cuadro, por eso se escribe después de la primera (Punto y coma)... El signo $ se escribe para (Cuando arrastrás la fórmula siempre quede G4 o J19 y no cambie, si no estuviera cambiaría siempre.. entendido?) igual en este caso no hace falta, se puede suprimir...

2 es el número de columnas desde el G4 hasta J19, si se escribe 3, te muestra el resultado de: Donde está matemática y la 3 columna marcada... esto sería en el 2º trimestre, y 4 en el tercero... osea que lo único que se cambiaría es eso....

=BUSCARV($B$9;$G$4:$J$19;3;FALSO)

Como se puede observar, el único número que se cambia de la fórmula anterior es "3"

=BUSCARV($B$9;$G$4:$J$19;4;FALSO)

Aquí también ocurrirá lo mismo, pero en este caso es 4

Bueno, saludos RAD.... hasta la proxima....

IF, THEN "Microsoft Excel VBA"

Hey there!!...   Bueno, en esta oportunidad les mostraré cómo usar una sencilla herramienta en excel VBA


¿Cómo pasar de una página a otra con la condición que tiene que escribir "ReadandNever" abajo de "Escribe el nombre aquí"? ¿Entendido?

Entonces sería así:

First step: Nos posicionamos en la celda B14, donde habría que escribir "ReadandNever" para tener acceso a la otra página



Range("B14").Select
Ok.

Le colocaremos una variable al valor de la celda "B14", para después usar esta misma reemplazandola por todo lo demás

Entonces...
lalala = ActiveCell.Value

Ok. Ya tenemos la variable, ahora nos preguntaremos "Si la celda es efectivamente igual a "ReadandNever" entonces... que nos aparezca el cartel de "Felicitaciones, has acertado" y automáticamente pase a la hoja2
Entonces...

Si el valor de la celda es igual a "ReadandNever" entonces
If ActiveCell.Value = "ReadandNever" Then

Se usa un Msgbox para mostrar un cartel y a continuación el paréntesis, las comillas, la frase, y cerramos paréntesis y comillas por supuesto

MsgBox ("Felicitaciones, has acertado")
Sheets("Hoja2").select

En cambio, si no has escrito "ReadandNever" entonces, aparece "No, has errado, no es ?" el signo de pregunta que acabo de poner simboliza la palabra que hayas puesto errónea, osea simboliza "lalala" (La variable que habíamos puesto en un principio")

Else se usa para hacer la contradicción de "If", osea si no pasa lo de arriba entonces....


Y esto no se escribe entre comillas, sino se escribe.... + y la variable, que en este caso es "lalala"


Else MsgBox ("Has errado, no es " + lalala)

Nunca se olviden de End if ni de End sub

End If

End Sub

Nota: Acuerdense que si ponés rEadAndNevEr no lo permite porque controla las mayúsculas (Como en la contraseña de Facebook, Hotmail, etc)

Espero les haya servido esta enseñanza... suertee!!