Raúl Guerrero respondió:
¿Puedes intentar con esta adecuación? Private Sub CommandButton1_Click() For i = 2 To Sheets("Clave").Range("A1048576").End(xlUp).Row If UserForm2.UserNameTextBox.Text = Sheets("Clave").Range("A" & i).Value And _ UserForm2.PasswordTextBox.Text =...