Agregar color de texto y nombre de hojas a copiar
Publicado por JoaoM (222 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
Gracias de antemano por su posible ayuda
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.SheetsIf 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 = TrueWith 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
Gracias de antemano por su posible ayuda
Valora esta pregunta
0