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!!