Condicion If no se cumple

Puche · el 19 de diciembre

Hola buenas noches,

Tengo una Macro que realiza registros nuevos, esta misma macro, tiene varias condiciones el cual si en una columna contiene un valor X debe realizar el registro en 2 hojas distintas.

También tiene como condición de que si en el campo "Contacto" el valor introducido no esta en mi base de datos de contactos, me abre un Userform nuevo para realizar el registro nuevo del mismo y posteriormente continua con el registro del "paquete"

Si tengo el Contacto registrado, me cumple bien todas las condiciones, el problema es cuando no tengo el contacto registrado, me hace bien el registro en mi base de datos pero no cumple las condiciones antes mencionadas.

Espero haberme explicado bien

Saludos,

ExcelPaqueteria.xlsmFetching info...

JSDJSD · el 20 de diciembre

Hoy no me ha dado tiempo de mirarlo, mañana te lo miro

JSDJSD · el 21 de diciembre

Puedes ponerme un ejemplo completo de lo que no se cumple? , y si puedes mostrarlo gráficamente mediante video mejor que mejor.

Puche · el 22 de diciembre

Hola @JSDJSD

No he podido hacerte un video ya que me ocupaba mucho y no me dejaba adjuntar...

He hecho unas capturas que espero te hagan entender mi problema.

Esta captura te muestra un nuevo registro, el cual respeta mis condiciones if ya que tengo el contacto en mi base de datos

Te paso el código que tengo para eso

Private Sub bt_agregar_Click() 'AGREGA REGISTROS DE PALAU
Application.ScreenUpdating = False

'DECLARO VARIABLE
    Dim ultimafila As Long
'ASIGNO LA VARIABLE A LA ULTIMA FILA DE LA TABLA
    ultimafila = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("PALAU").Activate
'INSERTA FILA NUEVA
    Range("A2").EntireRow.Insert
'INGRESAR DATOS
    Range("B2").Value = Me.txt_tracking.Value
    Range("C2").Value = Me.txt_trasnportista.Value
    Range("D2").Value = Me.txt_proveedor.Value
    Range("E2").Value = Me.txt_bultos.Value
    Range("F2").Value = Me.txt_contacto.Value
    Range("G2").Value = Me.txt_departamento.Value
    Range("H2").Value = Me.txt_observaciones.Value
    Range("I2").Value = Me.txt_fechaentrega.Value
    Range("J2").Value = Me.txt_recibe.Value
    
    Call box_ubicacionn 'ASIGNA BOX Y UBICACION
         
'APLICO CONDICIONES SEGUN CONTENIDO DE CELDA H2

    If Range("C2") = "DHL" Then
        Sheets("DHL").Activate
        Range("A2").EntireRow.Insert

        Sheets("PALAU").Range("A2:L2").Copy Destination:=Sheets("DHL").Range("A2")
        'Call cargadatos_Hangar
        End If

    If Range("H2") = "HANGAR" Then
        Sheets("HANGAR").Activate
        Range("A2").EntireRow.Insert

        Sheets("PALAU").Range("A2:L2").Copy Destination:=Sheets("HANGAR").Range("A2")
        Call cargadatos_Hangar
        End If

    If Range("H2") = "TERRASSA" Then
        Sheets("TERRASSA").Activate
        Range("A2").EntireRow.Insert
        Sheets("PALAU").Range("A2:L2").Copy Destination:=Sheets("TERRASSA").Range("A2")
        Call cargadatos_Terrassa
        End If

    If Range("H2") = "LLIÇA" Then
        Sheets("LLIÇA").Activate
        Range("A2").EntireRow.Insert
        Sheets("PALAU").Range("A2:L2").Copy Destination:=Sheets("LLIÇA").Range("A2")
        Call cargadatos_Lliça
        End If

    If Range("H2") = "PARETS" Then
        Sheets("PARETS").Activate
        Range("A2").EntireRow.Insert
        Sheets("PALAU").Range("A2:L2").Copy Destination:=Sheets("PARETS").Range("A2")
        Call cargadatos_Parets
        End If

En este caso es cuando no me las respeta. Cuando no tengo el contacto registrado y me salta el UserForm para realizar el registro nuevo