Macro para borrar fila e insertar una nueva fila de bajo de la ultima fila ocupada
Requiero de su apoyo para completar la siguiente macro donde se borra una fila en especifico la de la hoja "ValeCompras", ahí justo cuando sucede ese evento requiero insertar otra fila de bajo de la ultima fila ocupada. Espero haberme explicado.
P.D. Coloque una instrucción la cual esta comentada en la macro pero no me funciono
Private Sub CommandButton5_Click()
'Borrar del ListBox y de la hoja
Dim row_LB&
Dim SiNo As String
SiNo = MsgBox("Estás seguro de Eliminar el Articulo seleccionado?", vbYesNo + vbQuestion, "CONFIRMA")
If SiNo <> vbYes Then Exit Sub
Worksheets("Salidas").Select
Range("A1").Select
With ListBox1
row_LB = .ListIndex
If row_LB = -1 Then Exit Sub
.RemoveItem row_LB
.ListIndex = -1
End With
With Sheets("Salidas")
.Range("A1:K1").Offset(row_LB).Delete xlShiftUp
End With
With Sheets("ValeCompras")
.Range("A12:D12").Offset(row_LB).Delete xlShiftUp
' .Range("A27:D27").EntireRow.Insert
End With
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Prueba con lo siguiente:
Cambia estas líneas
With Sheets("ValeCompras")
.Range("A12:D12").Offset(row_LB).Delete xlShiftUp
' .Range("A27:D27").EntireRow.Insert
End WithPor estas:
With Sheets("ValeCompras")
.Range("A12:D12").Offset(row_LB).Delete xlShiftUp
i = 12
Do While .Cells(i, "A").Value <> ""
i = i + 1
Loop
.Rows(i).Insert
End With[' Si es lo que necesitas. No olvides valorar la respuesta.
