Jump to content

como soluciono error 91


Recommended Posts

Hola , muy buen dia para todo .tengo una consulta que no se como resolver

Private Sub BotValidar_Click()
Dim usuario As String
Dim Pass As Variant
Dim HojaVisible As String
Dim UsuarioExistente
Dim DatoEncontrado

Dim Rango As Range

UsuarioExistente = application.WorksheetFunction.CountIf(Sheets("Auxiliar").Range("O:O"), Me.TxtUsuario.Value)
Set Rango = Sheets("Auxiliar").Range("B:B")

   If Me.TxtUsuario.Value = "" Or Me.TxtPass.Value = 0 Then
        MsgBox " Por favor introduce usuario y contrasenia", vbExclamation
        Me.TxtUsuario.SetFocus

        'se valida que el usuario exista en la tabla
   ElseIf UsuarioExistente = 0 Then
        MsgBox " El usuario" & Me.TxtUsuario & "no existe", vbExclamation

       'En caso que el usuario exista, validamos su contrasenia
   ElseIf UsuarioExistente = 1 Then
🥵        DatoEncontrado = Rango.Find(What:=Me.TxtUsuario.Value, MatchCase:=False, lookat:=xlWhole).Address
    Contrasenia = CStr(Usuarios.Range(DatoEncontrado).Offset(0, 1).Value)
      

'   si el usuario y la contraseña coinciden...
        
    If LCase(CStr(Usuarios.Range(DatoEncontrado).Value)) = LCase(Me.TxtUsuario.Value) And Contrasenia = _
        Me.TxtPass.Value Then

        HojaVisible = Usuarios.Range(DatoEncontrado).Offset(0, 2).Value

     If HojaVisible = "TODAS" Then
        Call MostrarHojas

        Else
        Call OcultarHojas
        ThisWorkbook.Sheets(HojaVisible).Visible = True

    End If
         
         '        aqui va todo el codig para dar acceso a todo lo que el programador decida

Unload Me

         Else
         MsgBox " La contrasenia es invalida", vbExclamation

         End If
         End If

End Sub

 

 

En esta  instruccion  indicada con 🥵       me arroja error 91.Variable de objeto o bloque with no establecido, como lo soluciono??
 

Link to comment
Share on other sites

Gracias antoni  probare de revisar esto que decis pero estoy seguro que el dato esta  en la tabla...... retomando , luego de revisar encontre el error estaba en la 4ta instruccion:Set Rango = Sheets("Auxiliar").Range("B:B"), el rango era ("O,O") y ademas borre la palabra Usuarios delante de .Rango y salio andando de 10 , bueno gracias de todas formas seguire depurando mi proyecto , hasta la proxima consulta saludo agradecidoLuis

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenos días, Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías,  es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren. También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no tengan ningún producto de dicha búsqueda realizada.   Gracias de antemano por su ayuda. master-retirar-beta.xls
    • @Alberto González, prueba el adjunto. Salu2, Pedro Wave   Cantidades Consumidas PW1.xlsx
    • Observaciones. Los meses deberas tenerlos en No. de mes (septiembre=9) En la Hoja "C1" encontraras un Boton "Genera" y ejecutara la macro, procesando "C1" y "C2" Espero te sirva. PRUEBA_CONSOLOCIDACION - Janlui.xlsm
    • Esa solución me ayudó bastante, muchas gracias, con eso ya pude solucionar el problema
    • Hola Con una tabla dinámica, seria mas eficiente Lo que hice fue pasar a formato tabla la hoja pedido y luego arme la TD Te lo dejo como solución    Saludos  PRUEBA_CONSOLOCIDACION.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy