Jump to content

Error al intentar iniciar mi formulario


Puche
Go to solution Solved by JSDJSD,

Recommended Posts

Hola buenas noches,

Estaba trabajando con mi Userform, todo funcionaba perfectamente. Y de repente, intento hacer un registro nuevo para comprobar que todo seguía funcionando y me salta el siguiente error (adjunto).

He iniciado el depurador y parece ser que el problema lo tengo en la macro "cargardatos_palau" en la propiedad List.

Lo raro es que antes no me generaba error y ahora si.

Espero me puedan ayudar.

Saludos!

error.JPG

PaqNuevo.xlsm

Link to comment
Share on other sites

@JSDJSD,

Muchas gracias por tu respuesta.

Con eso soluciono para que me vuelva a iniciar el UserFrom, me al querer hacer una entrada nueva en "ListPalau", me vuelve a dar  error en la pripiedad List de la Macro "Cargadatos_Palau".

Adjunto imagen de error.

Saludos,

error.JPG

Link to comment
Share on other sites

@JSDJSD,

Creo que ya lo tengo solucionado!

El tema es que cree una macro que hacia la función de BuscarV, dependiendo del nombre que ponía en Contactos (al realizar un registro nuevo), automáticamente me rellenaba el box y la ubicación.

Al hacer prueba de registros, solo ponía "A, AA, AA, AA" en todos los campos por lo que cuando hacia el registro nuevo, como no encontraba coincidencias con "AA", me generaba el error.

Intentare solucionarlo yo mismo.

Saludos y gracias!

Link to comment
Share on other sites

@JSDJSD,

Buenos, tras varios intentos...

He conseguido que no me genere el error.

He aplicado el siguiente código

Sub box_ubicacionn()
'ASIGNO BOX Y UBICACION
    Dim cont As Long
    Dim ultimalinea As Long
    Dim box As Variant
    Dim ubicacion As Variant
    Dim nombre As Variant
    Dim rango As Variant
    
        ultimalinea = Sheets("PALAU").range("A" & Rows.Count).End(xlUp).Row
        Set rango = Sheets("PERSONAL").range("B2:E2100")
        
        For cont = 2 To ultimalinea
            nombre = Sheets("PALAU").Cells(cont, 6)
            box = Application.VLookup(nombre, rango, 3, False)
            ubicacion = Application.VLookup(nombre, rango, 4, False)
        If IsError(box) Then
            box = ""
            ubicacion = ""
            MsgBox ("Este contacto no esta en nuestra base de datos, debes realizar el registro en Personal para por asignar Box y Ubicacion"), vbInformation, "MANGO"
        Else
            Sheets("PALAU").Cells(cont, 11) = box
            Sheets("PALAU").Cells(cont, 12) = ubicacion
            End If
        Next cont
End Sub

El problema que me da este código es que cuando hago un registro, aunque tenga el contacto en mi base da datos, me salta el MsgBox. Luego me apliza bien el Box y la Ubicación pero solo quiero que me salte ese mensaje cuando el contacto no este en mi base de datos.

Seguro que es una tontería pero no consigo dar con ella XD

Saludos!

Link to comment
Share on other sites

@JSDJSD

Perfecto ya funciona todo bien!

Si, había pensado en esa posibilidad, el problema es que en ocasiones vienen paquetes a nombre de un departamento, no a una persona en concreto, entonces necesito que pueda realizar entradas de todos modos.

Muchas gracias por tu ayuda!

Link to comment
Share on other sites

@JSDJSD

Pues no había pensado en esa posibilidad, pero no puedo ni imaginar como se puede conseguir eso jejejej.

Es decir, cuando haga un registro nuevo, si la persona no esta inscrita, automáticamente que me lleve para realizar el registro de la persona, y una vez lo haga, se haga el registro en el listbox de Palau automaticamente?

Link to comment
Share on other sites

@JSDJSD,

Si que tengo un formulario de entradas de personal, esta en la pagina 7.

Si te fijas, en ese formulario, al darle a "nuevo" me asigna un código de empleado nuevo, si que se pueda repetir, te lo digo porque me imagino que eso puede influir en el código.

Te agradecería mucho si me pudieras ayudar con eso!

Un saludo ;) 

Link to comment
Share on other sites

@JSDJSD

Increible!!!

Muchísimas gracias por este regalo :) Me gusta mucho este "detalle" en la macro, se ve mucho mejor así :)

Esto lo tengo prácticamente acabado y en parte gracias a ti, te lo agradezco de verdad!

Saludos!

Link to comment
Share on other sites

Hace 58 minutos , JSDJSD dijo:

Me acabo de dar cuenta de que cuando haces el registro de la perosna nueva, no me aplica el box y la ubicacion. Luego si vuelvo a hacer una entrada y pongo el mismo nombre si me lo aplica pero a la 1 no

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy