Excel - Agregar color de texto y nombre de hojas a copiar

 
Vista:
Imágen de perfil de JoaoM
Val: 333
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Agregar color de texto y nombre de hojas a copiar

Publicado por JoaoM (218 intervenciones) el 10/02/2020 00:55:02
Ejecución de la macro: Crea una hoja llamada Global. Copia el contenido de todas las hojas existentes a esa Global
Quisiera que después de ejecutada la macro, o en su ejecución, quedara como se ve en la imagen de la hoja Global. que es la creada para recibir las copias. Los títulos ya yo pude agregar, y el 1º título con el color y negrita, pero no tengo la capacidad para lo demás y También el nombre de cada hoja existente así como el color del texto que lo hice en el primer, (usando la grabadora) pero me falta que lo haga para todas las copias.
Copiar el nombre de cada hoja y darle el color vbRed a Negrita (Bold) al nombre y títulos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub JuntarHojas()
Application.DisplayAlerts = False
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name = "Global" Then hoja.Delete
Next
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Global"
 
       ' Range("A1:m1").Font.Color = vbRed
       ' Range("A1:M1").Font.Bold = True
    With Range("A1:M1").Font
        .Color = vbRed
        .Bold = True
    End With
 
For x = 2 To Sheets.Count
Sheets(x).Select
 
Range("a1:o" & Range("a65000").End(xlUp).Row).Copy
 
Sheets("Global").Range("a65000").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlValues
 
Next
Sheets("Global").Select
Range("A1").Select
End Sub
global-2095483
Gracias de antemano por su posible ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder