hyzak

Dante Amor respondió: Puedes utilizar la siguiente fórmula: =BUSCARV(SUSTITUIR(E2," ","*"),A:B,2,0) Ejemplo:

toldeman respondió: Prueba así en el evento que utilices para abrir el form Dim contra As Variant pass = "n" For i = 1 To 3 contra = InputBox("contraseña") If contra = pass Then UserForm1.Show: Exit Sub Next ActiveWorkbook.Close SaveChanges:=False

Dante Amor respondió: Y dónde tienes la lista, ¿en una columna de un archivo de excel? Porque de la misma forma como leíste la lista, puedes cerrar, pero necesito saber dónde está la lista. Por ejemplo si la tienes en una columna de la C3 a la C10 Podrías poner esto Sub...

Luis Mondelo respondió: Te paso mi idea: Vamos a dividir el proceso en dos partes: a)Esta primera parte la anotaremos en una macro normal y solo programaremos esta primera parte para que se pare. b) Esta segunda la ejecutaremos mediante el evento change de la hoja en...

Dante Amor respondió: En qué columna se va a poner el resultado de D5 = K5 Y la siguiente comparación de D5 = D6, es decir, ¿Con la línea de abajo? Y el resultado dónde se pone. ¿Después hay que comparar D6 contra K6 y así sucesivamente?