Codigo seleccionar area de impresion y copiar

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Codigo seleccionar area de impresion y copiar

Notapor danippp » 30 Dic 2017 19:05

Buenas noches, Agradeceria a ver si me podeis orientar.
Estoy usando una macro que encontre para copiar todas las hojas de un libro en una general , cada hoja del libro debajo de la anterior.
Existe alguna manera de hacer referencia a las áreas de impresión que ya tengo definidas en cada hoja? Asi me evito estar borrando filas que no me interesan que se vean.No sé cómo referenciar a esas areas aunque le ponga un nombre a ese rango en el administrador de nombres.
La macro es al sihuiente:


Sub FusionarHojas()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add before:=Sheets(13)
Sheets("CUADRANTE GLOBAL").Delete
ActiveSheet.Name = "CUADRANTE GLOBAL"
FilaP = 1

For Each hoja In Sheets

If hoja.Name <> "CUADRANTE GLOBAL" Then
FilaC = hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ColumnaC = hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

hoja.Activate
Range(Cells(1, 1), Cells(FilaC, ColumnaC)).Copy

Sheets("CUADRANTE GLOBAL").Activate
Sheets("CUADRANTE GLOBAL").Range(Cells(FilaP, 1), Cells(FilaC + FilaP - 1, ColumnaC)).Select
ActiveSheet.Paste

FilaP = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
End If
Next
End Sub

Muchas gracias
danippp
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 28
Registrado: 06 Oct 2017 12:58

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados