Macro insertar fila en cualquier parte de una tabla, o modificación de código
Tengo el siguiente código:
Sub insertarfila_Haga_clic_en()
Dim numFilas As Long
'Preguntar al usuario por el número de filas a insertar
numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1)
'Validar si el número de filas indicado es superior a cero
If numFilas > 0 Then
'Insertar filas
Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert
End If
End Sub
Pero cuando trato de agregar la fila en cualquier fila de la tabla me indica esto:
Error 1004 = "esto no no funcionara por que movería celdas de una tabla en la hoja de calculo"
Y yo si requiero poder seleccionar en que parte pueda agregar la fila.
1 respuesta
Respuesta de James Bond
1