Saltar al contenido

Insertar filas en varias hojas de excel del mismo libro


Invitado Julia Mellado

Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.