Visual Basic para Aplicaciones - Modificar tabla Excel Segun Listado de ListBox

Dim x As Long

Dim i As Long

With Me.ListBox1

x = .ListIndex

'MsgBox Application.WorksheetFunction.Match(Me.ListBox1.List(x, 4), Hoja2.Range("d:d"), 0)

'Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

For i = 0 To ListBox1.ListCount - 1

   'If ListBox1.Selected(i) Then

      Sheets("BD").Range("J" & ListBox1.List(i, 5)) = Me.ListBox1.List(i, 1)

      Sheets("BD").Range("K" & ListBox1.List(i, 5)) = Me.ListBox1.List(i, 2)

      Sheets("BD").Range("L" & ListBox1.List(i, 5)) = Me.ListBox1.List(i, 3)

      Sheets("BD").Range("M" & ListBox1.List(i, 5)) = Me.ListBox1.List(i, 0)

   'End If

Next

'CommandButton1_Click

End With

'Cmd_BuscarCod_Click

Application.ScreenUpdating = True

MsgBox "Datos Modificados", , "W"

Private Sub UserForm_Activate()

    With Frm_Entradas.ListBox1

        .ColumnCount = 6

        .ColumnWidths = " 70 PT; 30 PT; 50 PT;50 PT;70 PT; 0 PT"

    End With

End Sub

Sub Buscar_Detalle()

    Dim items As Long

    Dim i As Long

    Frm_Entradas.ListBox1.Clear

    items = Hoja2.Range("Tabla1").CurrentRegion.Rows.Count + 4

    For i = 5 To items

        If LCase(Hoja2.Cells(i, 4).Value) Like "*" & LCase(Frm_Entradas.TextBox1.Value) & "*" And _

           LCase(Hoja2.Cells(i, 1).Value) Like "*" & LCase("Detalle") & "*" Then

            Frm_Entradas.ListBox1.AddItem Hoja2.Cells(i, 13)

            Frm_Entradas.ListBox1.List(Frm_Entradas.ListBox1.ListCount - 1, 1) = Sheets("BD").Cells(i, 10)

            Frm_Entradas.ListBox1.List(Frm_Entradas.ListBox1.ListCount - 1, 2) = Sheets("BD").Cells(i, 11)

            Frm_Entradas.ListBox1.List(Frm_Entradas.ListBox1.ListCount - 1, 3) = Sheets("BD").Cells(i, 12)

            Frm_Entradas.ListBox1.List(Frm_Entradas.ListBox1.ListCount - 1, 4) = Sheets("BD").Cells(i, 4)

            Frm_Entradas.ListBox1.List(Frm_Entradas.ListBox1.ListCount - 1, 5) = i

        End If

    Next

End Sub

Private Sub Btn_ModificarDetalleIng_Click()

    Dim Ind As Long, FilaITEM As Long

    Call ControlaEntrada

    With Frm_Entradas.ListBox1

        For Ind = 0 To .ListCount - 1

            FilaITEM = .List(Ind, 5)

            Sheets("BD").Cells(FilaITEM, "J") = Val(.List(Ind, 1))

            Sheets("BD").Cells(FilaITEM, "K") = Val(.List(Ind, 2))

            Sheets("BD").Cells(FilaITEM, "L") = Val(.List(Ind, 3))

            Sheets("BD").Cells(FilaITEM, "M") = .List(Ind, 0)

        Next

    End With

    Call ControlaSalida

    ListBox1.Clear

    MsgBox "Datos Modificados", , "Wilbert"

End Sub