Visual Basic para Aplicaciones - COMO CREAR UNA RUTINA DE ELIMINACIÓN EN VISUAL BASIC PARA EXCEL

Private Sub Btn_Elimina_Click()

    Dim Fila As Integer

    Dim Final As Integer

    If Me.Buscar_List.ListIndex = -1 Then

        MsgBox "Debe seleccionar un registro"

        Exit Sub

    End If

    'Buscamoos la última fila

    Fila = 2

    Do While Hoja2.Cells(Fila, 1) <> ""

        Fila = Fila + 1

    Loop

    Final = Fila - 1

    If MsgBox("¿Seguro que quiere eliminar este Registro?", vbQuestion + vbYesNo) = vbYes Then

        For Fila = 2 To Final

            If Hoja2.Cells(Fila, 1) = xEmpleado Then

                Hoja2.Cells(Fila, 1).EntireRow.Delete

                Exit For

            End If

        Next

        Call UserForm_Initialize

        MsgBox "Registro eliminado", vbInformation + vbOKOnly

    Else

        Exit Sub

    End If

End Sub

'ejemplo para agregar las fechas dentro de un rango de fechas a un combobox

sub filtrarFecha()

Dim fechaIni as string

Dim fechaFin as string

Dim fecha as string

Dim ultFila as Long

Dim f as Long

ultFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row

fechaIni = "01/01/1997"

fechaFin = "31/12/2018"

f = 1

Do While f < ultFila + 1

      fecha = Hoja1.Cells(f,1)

      If DateValue(fecha)  >= DateValue(fechaIni) And DateValue(fecha) <= DateValue(fechaFin) Then

             frmFiltro.Combobox1.AddItem Hoja1.Cells(f,1)

             f = f + 1

      Else

             f = f + 1

      End If

Loop

End Sub