Jump to content

Borrar y editar registros de varias hojas


Go to solution Solved by JSDJSD,

Recommended Posts

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

Link to comment
Share on other sites

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.

1.thumb.PNG.5bc29e516a49d75e89fb91dc7a297cd0.PNG

Link to comment
Share on other sites

@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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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!

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

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