Foro Excel

Esta macro lo que hace es insertar renglones de acuerdo al valor de una celda, pero en la ejecución de la misma ví­ dos errores, el primero es que cuando el valor es 1 lo que tiene que hacer es bajar al siguiente renglón sin insertar nada y en este nuevo renglón ejecutar de nuevo la acción hasta que no haya número en el renglón en el cual estoy situado.

Esta es la macro como la tengo grabada actualmente

ActiveCell.Select
For x = 1 To ActiveCell.Offset(-1).Value - 1
Selection.EntireRow.Insert
Next x
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub [font=Arial, sans-serif][/font]
Gracias,

Scars

Podrias modificarel código así­

Cells(1,1).Activate 'Activa la celda A1 (suponiendo que en esta se encuantra el número de celdas a insertar)
For x = 1 To ActiveCell.Offset(-1).Value - 1
if ActiveCell = 1 then
ActiveCell.Offset(1, 0).Range("A1").Select
else
if ActiveCell = "" then
exit for
end if
Selection.EntireRow.Insert
end if
Next x
Selection.End(xlDown).Select
End Sub

Prúebalo y me comentas