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

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 .

• Video 01. Diseño de Formulario
• Video 02. Validar Email, Números y Textos
• Video 03. Validar y cambios de color Campos Vacíos.
• Vide4. Insertar Calendario Flotante y Calcular Edad
• Video 5. Duplicar Calendario y programar botón Examinar.
• Video 6. Programando Botón Registrar y Generar Código(Cli_0001)
• Video 7. Programando el botón Búsqueda Múltiple.