Estimados,

Les pido por favor si pudiesen ayudarme con la siguiente macro.

tengo un libro excel con varias hojas las cuales tienen la misma informacion, 

lo que quiero con esta macro es que cuando yo inserte una fila en una hoja Ej (hoja 1), esta se vea reflejada en las las hojas restantes, en la misma posición en la que fue insertada en la (hoja 1).

y después agregar la informacion nueva las nuevas filas ingresadas 

 

Desde ya les agradezco muchísimo...

@MarlonSanchez34 , no he entendido nada y como tampoco subes un archivo de ejemplo explicando qué necesitas, sacaré la bola de cristal como haría una de nuestras moderadoras:

• No se trata de que ingreses datos en la última fila vacía de cualquier hoja
• ¿Se trataría de que INSERTARÍAS una fila en cualquier posición de la hoja, digamos en la fila 5 aunque tengas 20 filas?
• Si todas las hojas tienen la misma información ¿Por qué no haces lo que necesites siempre desde la misma hoja, digamos Hoja1?
• O sea, insertas una fila en cualquier sitio (no sé si con algún formato especial), la copias al resto de hojas y luego rellenas los datos a mano en todas las hojas...

A la espera de que nos aclares algo, inserta este código en la Hoja 1 (no en un módulo, sino en la hoja1 dentro del editor de VBA)

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

Para que funcione:

• Siempre debes insertar la fila desde la hoja 1
• Para insertar la fila, SIEMPRE debes hacerlo seleccionando dónde insertar en la columna que tiene los números de fila

 

Buen dia @Haplox

adjunto esta el archivo.

la idea es que al modificar una fila en la hoja de análisis esta se vea vista modificada, en la hoja de ponderación y las hojas de los meses.

1. las hojas de análisis y ponderación son diferentes pero manejan el mismo tipo de informacion en cuento a nombres

2. las hojas de meses son iguales.

3. lo que yo quiero hacer es que si ingreso una nueva fila en la fila 4 esta se me vea reflejada en las demas hojas en la misma fila.

4. y que la informacion que yo ingrese en la nueva fila se e vea reflejada en las demas hojas, por lo menos los nombres si se puede reflejar también las formulas seria super.

espero esta ves me haya explicado mejor. 

 

no me deja enviar el archivo

buen día @Haplox

al archivo adjunto tuve que quitarle unas hojas adicionales para poderlo comprimir, pero las hojas estan guardadas por meses y esos meses van hasta noviembre

Buen dia @Haplox

adjunto esta el archivo.

la idea es que al modificar una fila en la hoja de análisis esta se vea vista modificada, en la hoja de ponderación y las hojas de los meses.

1. las hojas de análisis y ponderación son diferentes pero manejan el mismo tipo de informacion en cuento a nombres

2. las hojas de meses son iguales.

3. lo que yo quiero hacer es que si ingreso una nueva fila en la fila 4 esta se me vea reflejada en las demas hojas en la misma fila.

4. y que la informacion que yo ingrese en la nueva fila se e vea reflejada en las demas hojas, por lo menos los nombres si se puede reflejar también las formulas seria super.

espero esta ves me haya explicado mejor. 

.

ANALISIS.zip

Hace 8 minutos , MarlonSanchez34 dijo:

espero esta ves me haya explicado mejor. 

Lo siento, pero no. O yo ando un poco espeso hoy

Has subido un archivo vacío (solo con la organización), así que es difícil saber qué hay que copiar... Aparte no respondiste a mis preguntas, así que lo intento de nuevo

• Dices " si ingreso una nueva fila en la fila 4 esta se me vea reflejada en las demas hojas "... ¿En la fila 4? Si la tabla de la hoja análisis empieza en la línea 8
• En todo caso, ¿Qué dato introducirías y en qué columna y fila?
• Y de nuevo, en todo caso ¿Hablas de introducir datos en alguna línea y que esos datos se copien a las otras hojas? ¿O hablas de INSERTAR una fila entre medias de las ya creadas? Ten en cuenta que NO ES LO MISMO.
• Suponiendo que la tabla estuviese completa con datos ¿Hablas de introducir datos en la siguiente fila libre a la última y que esos datos se copien a las demás?

Siento parecer pesado, pero es que sin esta información, para mí, es imposible hacer nada

buen día @Haplox

Disculpame no haberme hecho explicar bien.

el archivo fue sin datos porque era muy pesado. el que acabo de enviar le acabo de agregar unos pocos datos

intento de nuevo explicarme.

que intento hacer:

1. yo tengo un archivo de varias hojas que todos manejan en las filas de nombre la misma información. yo hablo de INSERTAR una fila entre medias de las ya creadas

lo que intento hacer es que yo inserte una fila, en cualquier posición de la hoja como ejemplo (estoy en la fila 10 de la hoja 1 e inserto una fila) lo que quiero que haga la macro es que me inserte en la fila 10 de la hoja 2 una nueva fila como lo hizo en la hoja 1 y así cada vez que yo inserte una fila), lo que te escribí entre paréntesis es un ejemplo, pero si en dado caso yo estoy en la hoja 1 ya no en la fila 10 como en el ejemplo sino en la fila 50, la fila que inserte aparezca en las hojas restantes en fila 50.

2. ahora que abras el archivo que te envie el tendrá unos nombres en una filas, Marlon, haplox, sutanito etc, lo otro que quiero es que si yo inserto una fila, en la fila nueva que inserte yo le pueda agregar unos nombres y estos nombres me aparezcan en las filas nuevas creadas en las otras hojas.

_____________________________________________________________________________________________________________________________________

esto ya lo hice agrupando hojas, cuando lo hago de esta manera al insertar una fila me aparece en todas las hojas agrupadas, y al colocarle información me aparece en todas las hojas agrupadas, pero lo que quiero hacer con la macro es automatizar este proceso. y no tener que estar agrupando a cada rato para insertar una nueva fila

ANALISIS.zip

Entonces casi te entendí al principio @MarlonSanchez34 Te sirve el código que te deje al principio con alguna modificación. Ahora no tengo mucho tiempo para probarlo, pero inténtalo y seguimos con el tema

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
sheets(1).activate
fila=target.row
col=target.column                                  
target.copy
For j = 2 To Sheets.Count
        Sheets(j).Activate
        cells(target.row,target.column).pastespecial (xlpasteall)
next j                                  
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

 

Editado el el 18 de octubre7 años por Haplox

Hola @MarlonSanchez34(y @Haplox)!

Para lograr lo que necesitas podes "agrupar hojas de calculo".

Fuente: Hojas de cálculo de grupo

Saludos!

@MarlonSanchez34 , te dejo el archivo con la solución. Recuerd que en la hoja ANALISIS, para insertar la fila debes hacerlo con EL BOTÓN DERECHO DEL RATÓN sobre la columna con los números de fila.

Cuando introduzcas el nombre en la línea insertada, este se copiará a las otras hojas. Como no veo cómo funcionan tus hojas, no sé que datos más se podrían copiar de ANALISIS a las otras hojas

ANALISIS.xlsm

te agradezco @haplox, par seguir molestándote que debo hacer para que si yo agrego otra hoja al archivo, esta ultima hoja también cambie cuando le agrego las filas.

y  lo otro es si puedo hacer lo contrario si eliminio una fila esta también se elimine en las demás hojas.

en total seria 12 hojas en el archivo.