Tengo el siguiente código que sirve para insertar filas en una hoja (la cual es copiada de la fila 5 y pegada en la primera fila disponible de la columna A.
Quiero agregarle una condición al código que evite pegar la fila si la celda de la fila activa correspondiente a la columna K es igual a 0. Es decir que no la copie.
Hola amigos de Ayuda Excel
Tengo el siguiente código que sirve para insertar filas en una hoja (la cual es copiada de la fila 5 y pegada en la primera fila disponible de la columna A.
Quiero agregarle una condición al código que evite pegar la fila si la celda de la fila activa correspondiente a la columna K es igual a 0. Es decir que no la copie.
Sub Insertarfila()
Application.ScreenUpdating = False
Dim ult As Long
ult = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A5:K5").Select
Selection.Copy
With ActiveSheet.Range("a" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
ActiveSheet.Range("c" & Rows.Count).End(xlUp).Select
ActiveSheet.Range("c" & ult).Select
End With
MsgBox "¡ INGRESE DETALLES !"
End Sub
Agradecido de antemano por su Ayuda