Jump to content
Sign in to follow this  
Guest Julia Mellado

Insertar filas en varias hojas de excel del mismo libro

Recommended Posts

Guest Julia Mellado

Hola buenas, @Haplox

Mi problema es este:

- Quiero filas en varias  hojas Excel a la vez. Insertándola siempre desde la hoja1.

- Que la fila en blanco que se inserte esté en el mismo numero de fila en todas las hojas. Es decir que si inserto una fila en Hoja1 en la fila 12, en las hojas2 y hoja3 también se inserte en la fila 12.

 

He probado con este código que le dejaste a otro usuario pero me surge el problema de que si la fila que inserto en la hoja1 es la 12, en las demás hojas se me inserta en la fila 13, es decir, una por debajo. ¿Alguien sabe el problema del código?

Public Filas As Long
Public seleccion As Range

Private Sub Worksheet_Change(ByVal Target As Range)

If Filas < Me.UsedRange.Rows.Count Then
    For i = 2 To Sheets.Count
        Sheets(i).Activate
        fila = seleccion.Address
        ActiveSheet.Range(fila).EntireRow.Insert
    Next i
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("1:10000")) Is Nothing Then
Exit Sub
End If

Filas = Me.UsedRange.Rows.Count
Set seleccion = Target.Cells.Rows
End Sub

Share this post


Link to post
Share on other sites
Hace 4 horas, Julia Mellado dijo:

He probado con este código que le dejaste a otro usuario

Uff... ni me acuerdo de ese codigo :blink:

Mejor sube tu archivo para poder verlo

Share this post


Link to post
Share on other sites
Guest Julia Mellado

Buenas! Gracias por responder tan rapido! He subido un archivo de ejemplo, al insertar una fila en la hoja 1, se inserta tambien automaticamente en la hoja2, pero una fila por debajo, en lugar de en ambas hojas el mismo numero de fila...

Muchas gracias!

Libro1.xlsm

Share this post


Link to post
Share on other sites
Hace 13 horas, Julia Mellado dijo:

Hola @Haplox !

Impaciente... ;). Solo te hacía falta modificar un poco el código que ya tenías


 

Private Sub Worksheet_Change(ByVal Target As Range)

If Filas < Me.UsedRange.Rows.Count Then
    fila = Target.Address
    For i = 2 To Sheets.Count
        Sheets(i).Activate
        ActiveSheet.Range(fila).EntireRow.Insert
    Next i
End If
End Sub

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png