Error al intentar iniciar mi formulario

[Puche]

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!

PaqNuevo.xlsm

[JSDJSD]

Elimina el error que tienes en la hoja1, concretamente en la Celda L2 y te funcionara perfectamente, no te lo muestro yo ya que tienes la hoja protegida.

[JSDJSD]

Bueno te lo muestro igualmente

[Puche]

@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,

[Puche]

@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!

[JSDJSD]

Vale, si no lo consigues comentalo

[Puche]

@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!

[JSDJSD]

Sube tu archivo

[Puche]

@JSDJSD Aquí lo tienes.

PaqNuevo.xlsm

[JSDJSD]

Si lo he entendido bien y lo  que validas es siempre la línea que añades, anula el ciclo for y listo.

PaqNuevo.xlsm

[JSDJSD]

También decirte que bajo mi punto de vista no deberías dejar que ingrese datos hasta no tener creado a la persona en cuestión. 

[Puche]

@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!

[JSDJSD]

Vale pero en ese mismo momento deberías llamar al formulario de personal y registrar a dicho individuo.

[JSDJSD]

Cuando te digo en ese mismo momento me refiero a cuando te da el aviso de que no esta creado.

[Puche]

@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?

[JSDJSD]

Correcto, es simplemente llamar al formulario para registrar personas, registrarla y después continuar con el proceso. No me he fijado si tienes dicho formulario en caso afirmativo dime cual es y mañana te preparo algo.

[Puche]

@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  

[JSDJSD]

Ahora en cuanto pueda le doy un vistazo 

[JSDJSD]

Prueba y comenta

PaqNuevo.xlsm

[Puche]

@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!

[Puche]

Hace 58 minutos , JSDJSD dijo:

Prueba y comenta

PaqNuevo.xlsm 615.61 kB · 0 descargas

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

 

[JSDJSD]

Prueba ahora

PaqNuevo.xlsm

[Puche]

@JSDJSD

Ahora si, ya funciona perfecto  

Muchísimas gracias por todo!!!

Que tengas un buen día, ya estamos a viernes!

[JSDJSD]

Tienes que dar el tema como cerrado

[Puche]

Ya esta cerrado no?

Si vas arriba veras que esta marcado como tema solucionado. Te refieres a eso no?

Saludos,