Insertar filas en varias hojas de excel del mismo libro

[Invitado 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

[Haplox]

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

Mejor sube tu archivo para poder verlo

[Invitado 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

[Invitado Julia Mellado]

Hola @Haplox !

[Haplox]

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