Jump to content

Eliminar entrada de listbox y base de datos


Recommended Posts

Hola buenas tardes,

Me gustaría que me puedan ayudar para eliminar un registro del ListBox y base de datos.

Tengo un código hecho y me salta un "Error no especificado"

  • Function EliminarRegistros()
    
        If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
    
            For a = Me.listboxpalau.ListCount - 1 To 0 Step -1
        
                If Me.listboxpalau.Selected(a) = True Then
                
                    For I = 2 To Sheets("BD").Range("a65536").End(xlUp).Row
                    
                If Sheets("BD").Range("a" & I).Value = Val(Me.listboxpalau.List(a, 0)) Then
                                           
                    Sheets("BD").Rows(I).Delete
                
                End If
                            
                    Next I
                    
                Me.listboxpalau.RemoveItem a
                
                End If
            Next a
        End If
    End Function

Me.listboxpalau.RemoveItem a

Adjunto archivo para que puedan revisar

 

Saludos, 

Javier

Link to comment
Share on other sites

A la espera del permiso para descargar el archivo, prueba a ver si funciona:

Function EliminarRegistros()
With listboxpalau
   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 = Columns("A").Find(.List(a, 0), , , xlWhole)
            Sheets("BD").Rows(celda.Row).Delete
            .RemoveItem a
         End If
      Next
   End If
End With
End Function

 

Link to comment
Share on other sites

Prueba y comenta, es aplicando el código del Maestro Antoni con una pequeñísima modificación que por supuesto sin ver tu archivo imposible que la detecte.

Function EliminarRegistros()

    With ListBox1
   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("BD").Columns("B").Find(.List(a, 1), , , xlWhole)
            Sheets("BD").Rows(celda.Row).Delete
            cargadatos
         End If
      Next
   End If
End With
End Function

 

GIF.gif

111 Prueba 1.xlsm

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • =ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva  
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar,hace mucho que me suscribi a esta pagina y simpre pude subir mi archivo de ejemplo,pero ahora me doy cuenta que si no pago una tarifa de membresia no podre subir ejemplos para que puedan prestar su ayuda 
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar
    • Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos   Sub concatena()     Set DATOS = Worksheets("Verificar Matriz")     Sheets("principal").Select     Range("E15:E5000").ClearContents     rt = 5     RD = 6     RS = 15     Do While DATOS.Cells(RD, 4) <> ""         pasa = 0         For C = 5 To 22             If DATOS.Cells(RD, C) <> "0" Then                 pasa = pasa + 1             End If         Next         If pasa > 0 Then             CADENA = ""             For C = 5 To 22                 If DATOS.Cells(RD, C) > 0 Then                     If Len(CADENA) > 0 Then                         CADENA = CADENA & ","                     End If                     CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34)                 End If             Next             Cells(RS, "E") = CADENA             RS = RS + 1         End If         RD = RD + 1     Loop End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy