Botón Eliminar en Formulario VBA (Eliminar con Contraseña)

Miguel Vela junio 26, 2024
6 Comments

Eliminar Registro.

Explicación del Código

  1. Captura del Código y Nombre Seleccionado:
Codigo_Registro = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Nombre = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)

Estas líneas capturan el código y el nombre del registro seleccionado en el ListBox1.

2. Búsqueda del Registro en la Hoja de Cálculo:

Set Fila = Sheets("BD").Range("B:B").Find(Codigo_Registro, Lookat:=xlWhole)

Utiliza el método Find para localizar la fila que contiene el código seleccionado en la columna B de la hoja llamada «BD».

3. Verificación y Eliminación del Registro:

If Not Fila Is Nothing Then
    Linea = Fila.Row
    
    If TextBox1.Value = "123456" Then
        Sheets("BD").Rows(Linea).EntireRow.Delete
        MsgBox "Se eliminó el registro: " & Nombre
        
        Buscar.CommandButton1_Click
        Unload Me
    Else
        MsgBox "Contraseña incorrecta"
    End If
Else
    MsgBox "No se encontró el registro a eliminar"
End If
  • Si se encuentra la fila (Not Fila Is Nothing), se verifica la contraseña ingresada en TextBox1.
  • Si la contraseña es correcta ("123456"), se elimina la fila correspondiente y se muestra un mensaje de confirmación.
  • Luego, se llama al método CommandButton1_Click del formulario de búsqueda para actualizar el ListBox y se cierra el formulario.
  • Si la contraseña es incorrecta, se muestra un mensaje de error.
  • Si no se encuentra la fila, se muestra un mensaje indicando que no se encontró el registro.

Creación de un formulario con botones: Registrar, Modificar, Eliminar, Limpiar y Buscar .

Categories: Curso de VBA para Macros, 🎯 ACTUALIZADO 🚨
Tags: , ,

Related Articles

Responses

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

    1. carlos noviembre 14, 2024

      Buenas. te dio el erro de compilación » no se encontro el metodo» – si es asi como lo resolviste — Gracias….

      1. OMAR diciembre 23, 2024

        Private Sub ELIMINAR_Click()
        ‘ Verificar que se haya seleccionado un registro en el ListBox
        If Me.ventana.ListIndex = -1 Then
        MsgBox «Seleccione un registro para eliminar.», vbExclamation, «Error»
        Else
        ‘ Eliminar el registro seleccionado del ListBox
        Me.ventana.RemoveItem Me.ventana.ListIndex
        MsgBox «Registro eliminado correctamente.», vbInformation, «Éxito»
        End If
        End Sub
        ESTO ME PERMITIO EIMINAR, ESPERO TE SIRVA Y ME QUITO EL ERROR

  2. Juan Bordón octubre 22, 2024

    No puedo resolver el Botón eliminar, del curso VBA para macros me salta error: no se encontró el método o el dato miembro

  3. Efrain enero 2, 2025

    Tengo un problema con mi codigo el buscar no me sale bien parece que no estuviera el objeto en este caso el mio se llama pantalla

  4. Enrique marzo 3, 2025

    Buenas tardes Miguel.
    El curso está muy interesante y ameno.. pero dime, donde encuentro los videos para programar el botón ELIMINAR y EDITAR desde el formulario ???

Crea una Barra de Búsqueda POTENTE, INTELIGENTE, MULTICRITERIO y muy Rápida en Excel.