Hola buenos días y Feliz año a tod@s

A ver si alguien me puede ayudar con esto.

Tengo un UserFrom el cual me realiza entradas, edita, elimina, etc. Las entradas generales siempre se hacen el pagina 1 del Multilistbox, y estas en tienen una condición de que si por ejemplo en la columna de observaciones pongo "HANGAR",  entonces debe realizar el registro en la pagina 1 (Principal) y la pagina 2 (Hangar).

Todo esto funciona perfecto, el problema que tengo es que cuando elimino o edito un registro, estas acciones solo me las hace en la pagina principal (hoja1 del Multilistbox)

Es posible editar y eliminar registros y que según el numero de Tracking haga la acción en ambas hojas?

Un saludo y gracias!

ExcelPaq.xlsm

Prueba y comenta, la modificación la tienes solamente en editar, lo de eliminar te lo dejo a tí para que practiques y lo intentes en caso de no conseguirlo coméntalo y lo arreglamos

ExcelPaq.xlsm

Hola @JSDJSD

Lo primero, gracias por tu ayuda una vez mas

He estado probando y no funciona muy bien creo, te adjunto un video para que veas.

 

A parte de que no realiza bien los cambios, me crea un duplicado y fuera de tabla.

@JSDJSD Te adjunto un archivo para que puedas realizar pruebas mejor.

ExcelPaq (2).xlsm

Mañana te lo miro, el vídeo no no veo, dime qué ocurre tomando cualquier dato de tu base de datos donde duplica y que no modifica correctamente

@JSDJSD,

Mira, si por ejemplo seleccionas el registro de la fila 17 (proveedor "Mencio"), al modificar transportista y bultos, la modificación la hace bien en la hoja 1, pero si vas a la hoja de Parets (donde esta el duplicado), la modificación no se hace y realiza una entrada nueva fuera de la tabla.

ExcelPaq (2).xlsm

Prueba ahora y comenta

ExcelPaq (2).xlsm

Hola @JSDJSD

Siento la demora en contestar, con las fiestas y demás no he tenido tiempo de ponerme en ello

Creo que ahora si funciona bien lo de editar. 

He estado intentando algunas opciones para aplicar lo mismo en eliminar y no lo consigo..   este es el código que intento aplicar pero no funciona bien.

Dim buscado As Variant
Dim hojabuscada As String

buscado = txt_tracking
hojabuscada = txt_observaciones

    With ListPalau
        If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _
        vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
    For a = .ListCount - 1 To 0 Step -1
        If .Selected(a) = True Then
            Set Celda = Sheets("PALAU").Columns("B").Find(.List(a, 1), , , xlWhole)
            Sheets("PALAU").Rows(Celda.Row).Delete
        
                If hojabuscada = "HANGAR" Or hojabuscada = "TERRASSA" Or hojabuscada = "LLIÇA" Or hojabuscada = "PARETS" Then
                    
                    For aa = 1 To Sheets(hojabuscada).Range("A" & Rows.Count).End(xlUp).Row
                        
                        If Sheets(hojabuscada).Cells(aa, 2) = buscado Then
                        
                        Sheets(hojabuscada).Rows(Celda.Row).Delete
                End If
                Next aa
                End If

He intentado aplicar el mismo concepto dentro de lo que entiendo del código en el botón Eliminar.

Adjunto archivo para que puedas revisar.

Saludos y gracias!

ExcelPaq.xlsm

Prueba y comenta

Private Sub bt_eliminar_Click() ' ELIMINA REGISTROS PALAU
    Application.ScreenUpdating = False
    
    Dim buscado As Variant
    Dim hojabuscada As String
    
    buscado = txt_tracking
    hojabuscada = txt_observaciones

    With ListPalau
    
        If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _
            vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
            
            For a = .ListCount - 1 To 0 Step -1
            
                If .Selected(a) = True Then
                    Set Celda = Sheets("PALAU").Columns("B").Find(.List(a, 1), , , xlWhole)
                    Sheets("PALAU").Rows(Celda.Row).Delete
                    
                    If hojabuscada = "HANGAR" Or hojabuscada = "TERRASSA" Or hojabuscada = "LLIÇA" Or hojabuscada = "PARETS" Then
                    
                        For aa = 1 To Sheets(hojabuscada).Range("A" & Rows.Count).End(xlUp).Row
                            If Sheets(hojabuscada).Cells(aa, 2) = buscado Then
                                Sheets(hojabuscada).Range("A" & aa).EntireRow.Delete
                            End If
                        Next aa
                        
                    End If

                End If
            Next a
        End If
    End With
    
    Call cargadatos_Palau
    
    Me.txt_tracking.Value = Empty
    Me.txt_trasnportista.Value = Empty
    Me.txt_proveedor.Value = Empty
    Me.txt_bultos.Value = Empty
    Me.txt_contacto.Value = Empty
    Me.txt_departamento.Value = Empty
    Me.txt_observaciones.Value = Empty
    Me.txt_fechaentrega.Value = Empty
    Me.txt_recibe.Value = Empty
    Me.txt_bus1 = Empty
    Me.txt_bus2 = Empty
    Me.txt_bus3 = Empty
    Call cargadatos_Palau
    Me.txt_tracking.SetFocus
    Application.ScreenUpdating = True
End Sub

 

Hola @JSDJSD,

Lo he probado y no me funciona, solo me elimina el registro de la pagina principal.

Otra opción sería poner un botón de Eliminar en cada pagina del multilistbox pero no es muy cómodo para trabajar así.

Espero me puedas ayudar.

Saludos y gracias y una vez mas!

Debe funcionar, mañana te subo el archivo, pero tienes que tener en cuenta que para que te elimine en las hojas seleccionadas estas deben tener el mismo tracking

@JSDJSD,

Si, lo se. 

He realizado un registro nuevo para asegurarme de que tiene el mismo numero de tracking pero aun así no elimina en ambas hojas.

A ver si averiguas donde esta el error o que pasa exactamente.

Saludos y mil gracias!

Prueba ahora a ver que tal

ExcelPaq.xlsm

Hola @JSDJSD

Me da la sensación de que no funciona bien...

He eliminado todos los registros para asegurarme de que no tienen tracking distintos, ahora mismo solo tengo 5 registros, si por ejemplo seleccionas registro de la fila 5 "contacto Susana Lopez",  este también esta en la hoja de Terrassa. No me la elimina en dicha hoja, solamente en la principal.

Adjunto archivo nuevo para que puedas ver lo que te digo.

Saludos!

ExcelPaq.xlsm

Prueba otra vez porque  a mi con el archivo que compartes funciona perfectamente, prueba y comenta

@JSDJSD

Mañana lo pruebo en el trabajo, creo que mi excel no funciona muy bien...

Te digo algo!

Mil gracias como siempre

@JSDJSD

Hola buenas tardes, 

He estado probando el archivo en mi trabajo para ver si era por un tema de actualización de mi excel o algo así, pero no me ha funcionado bien ahí tampoco.

Entiendo que el código funciona bien y debe ser algo externo a excel, o eso creo..XD

En todo caso, doy por cerrado el tema ya que imagino que poco mas se puede hacer.

Una vez mas, mil gracias por tu ayuda!

Saludos,