Buenas Noches.

Quisiera saber si me podría ayudar a mejor este libro , agregándole unos macros

me seria de mucha ayudar

de antemano

muchas gracias

Dropbox - EXCEL

PD: Para el uso de sesión del libro

Usuario: EDUARDO

Contraseña:MENDOZA

Tengo este problema en mi reporte de venta me podrían ayudar con el Codigo

Private Sub CommandButton2_Click()

Dim usuario As String

Dim password As Variant

Dim DatoEncontrado

Blog = "EXCELeINFO"

UsuarioExistente = Application.WorksheetFunction.CountIf(Range(Hoja32.Cells, ("C12:C21")), Me.txtUsuario.Value)

Set rango = Range(Hoja32.Cells, ("C12:C21"))

If Me.txtUsuario.Value = "" Or Me.txtPassword.Value = "" Then

MsgBox "Por favor introduce usuario y contraseña", vbExclamation, Blog

Me.txtUsuario.SetFocus

ElseIf UsuarioExistente = 0 Then

MsgBox "El usuario '" & Me.txtUsuario & "' no existe", vbExclamation, Blog

ElseIf UsuarioExistente = 1 Then

DatoEncontrado = rango.Find(What:=Me.txtUsuario.Value, LookAt:=xlWhole, MatchCase:=True).Address

Contrasenia = Range(DatoEncontrado).Offset(0, 1).Value

If CStr(Range(DatoEncontrado).Value) = Me.txtUsuario.Value And Contrasenia = _

Me.txtPassword.Value Then

Range("G2").Value = "Usuario: " & Range(DatoEncontrado).Offset(0, -1).Value

'Aquí va el código para dar acceso a todo lo que el programador decida

Sheets("MENU").Select

Unload Me

Else

MsgBox "La contraseña es inválida", vbExclamation, Blog

End If

End If

End Sub

me manda error al iniciar