Copiar un rango de varias hojas en una nueva hoja
Estiamado expertos, necesito de su conocimiento para resolver lo siguiente,
Tengo 36 hojas con la misma estructura y necesito copiar y pegar en una nueva hoja del mismo libro los rangos que necesito.
De las 36 hojas necesito las celdas "P1", "C7", "C8", "C9" y el rango "A30:T30"y que se peguen en la nueva hoja
"P1" en la celda "A8"
"C7" en la celda "B8"
"C8" en la celda C8
"C9" en la celda D8
Y el rango en la celda "E8"
Gracias por su tiempo y reciba un abrazo
Tengo 36 hojas con la misma estructura y necesito copiar y pegar en una nueva hoja del mismo libro los rangos que necesito.
De las 36 hojas necesito las celdas "P1", "C7", "C8", "C9" y el rango "A30:T30"y que se peguen en la nueva hoja
"P1" en la celda "A8"
"C7" en la celda "B8"
"C8" en la celda C8
"C9" en la celda D8
Y el rango en la celda "E8"
Gracias por su tiempo y reciba un abrazo
Respuesta de angelcrisnor
1
Se puede hacer una macro para eso. No es demasiado complicado, pero no entiendo lo de copiarlo en la celda A8, B8, C8, D8, E8... Si las pegas siempre en esas celdas perderás la información de cada hoja y te quedarás solo con el contenido de la última.
¿Te refieres a copiarlas a partir de las celdas A8, B8, C8, D8, E8... hacia abajo?
Si es eso lo que necesitas, te puedo hacer una macro.
¿Te refieres a copiarlas a partir de las celdas A8, B8, C8, D8, E8... hacia abajo?
Si es eso lo que necesitas, te puedo hacer una macro.
Hola Angel, un saludo. Y muchas gracias por tu tiempo y tu ayuda.
Y es correcto,
a partir de las celdas A8, B8, C8, D8, E8... hacia abajo
Hasta que copie las 36 hojas.
Nuevamente gracias por tu ayuda.
Y es correcto,
a partir de las celdas A8, B8, C8, D8, E8... hacia abajo
Hasta que copie las 36 hojas.
Nuevamente gracias por tu ayuda.
Creo que esta macro que te copio más abajo hace lo que necesitas.
Si es así, recuerda finalizar la pregunta. En caso contrario, dímelo.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaValores()
Dim NuevaHoja As String
Dim Fila As Integer
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
NuevaHoja = ActiveSheet.Name
Fila = 7
For i = 1 To Sheets.Count - 1
Fila = Fila + 1
Sheets(i).Select
Range(NuevaHoja + "!A" + Trim(Str(Fila))).Value = Range("P1").Value
Range(NuevaHoja + "!B" + Trim(Str(Fila))).Value = Range("C7").Value
Range(NuevaHoja + "!C" + Trim(Str(Fila))).Value = Range("C8").Value
Range(NuevaHoja + "!D" + Trim(Str(Fila))).Value = Range("C9").Value
Range(NuevaHoja + "!E" + Trim(Str(Fila)) + ":X" + Trim(Str(Fila))).Value = Range("A30:T30").Value
Next
Sheets(NuevaHoja).Select
End Sub
Si es así, recuerda finalizar la pregunta. En caso contrario, dímelo.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaValores()
Dim NuevaHoja As String
Dim Fila As Integer
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
NuevaHoja = ActiveSheet.Name
Fila = 7
For i = 1 To Sheets.Count - 1
Fila = Fila + 1
Sheets(i).Select
Range(NuevaHoja + "!A" + Trim(Str(Fila))).Value = Range("P1").Value
Range(NuevaHoja + "!B" + Trim(Str(Fila))).Value = Range("C7").Value
Range(NuevaHoja + "!C" + Trim(Str(Fila))).Value = Range("C8").Value
Range(NuevaHoja + "!D" + Trim(Str(Fila))).Value = Range("C9").Value
Range(NuevaHoja + "!E" + Trim(Str(Fila)) + ":X" + Trim(Str(Fila))).Value = Range("A30:T30").Value
Next
Sheets(NuevaHoja).Select
End Sub
