Jump to content
lursaildi

Insertar Filas debajo fila activa con boton flotante

Recommended Posts

Tengo una macro que inserta filas por encima de la fila activa pero me interesa que sea por abajo de fila activa y el boton activador macro sea flotante

Sub InsertarFilas()

 

    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

 

Insertar Filas Debajo Fila Activa.xlsm

Share this post


Link to post
Share on other sites

@lursaildi probe tu código, pero no entiendo porque dices que quieres que inserte filas hacia abajo, si es lo que hace tu código, solo selecciona la fila que desea insertar, es lógica si quieres inserta apartir de la fila 2 selecciona esa fila, ya que si seleccionas la fila 1 obviamente te va insertar hacia arriba.

Saludos

Share this post


Link to post
Share on other sites

Hola también modificando lo que tenías:

 

Sub InsertarFilas()
 
    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.Offset(1, 0).Row & ":" & ActiveCell.Row + numFilas).Insert
    End If
 
End Sub

Saludos!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5