CanchilaGustavo 2021 MacroCalculoAcero
CanchilaGustavo 2021 MacroCalculoAcero
CanchilaGustavo 2021 MacroCalculoAcero
Tutor
Isabel Kristina Cardona Giraldo, Magíster (MSc) en Ingeniería Geotecnia
Universidad de Antioquia
Facultad de Ingeniería
Ingeniería Civil
Medellín, Antioquia, Colombia
2021
Cita (Canchila Montalvo, 2021)
Canchila Montalvo, G. A. (2021). Macro de Excel para el cálculo de cantidades de
Referencia acero de cimentaciones y estructuras para la empresa RRP ARQUITECTOS
[Trabajo de grado profesional]. Universidad de Antioquia, Medellín,
Estilo APA 7 (2020) Colombia.
El contenido de esta obra corresponde al derecho de expresión de los autores y no compromete el pensamiento
institucional de la Universidad de Antioquia ni desata su responsabilidad frente a terceros. Los autores asumen la
responsabilidad por los derechos de autor y conexos.
Contenido
1 Introducción .................................................................................................................... 4
2 Objetivos ............................................................................................................................. 6
2.1 Objetivo General.......................................................................................................... 6
2.2 Objetivos Específicos .................................................................................................. 6
3 Marco Teórico ..................................................................................................................... 6
3.1 Sitio de estudio ............................................................................................................ 6
3.2 Definiciones ................................................................................................................. 6
3.3 Antecedentes ................................................................................................................ 8
4 Metodología ........................................................................................................................ 9
4.1 - Recopilación de información: ................................................................................... 9
4.2 - Análisis de variables: ................................................................................................ 9
4.3 - Identificación de los factores más relevantes: ........................................................... 9
4.4 - Programación: ......................................................................................................... 10
4.5 - Actualizaciones: ...................................................................................................... 10
4.6 - Redacción y entrega del informe:............................................................................ 10
5 Resultados y análisis ......................................................................................................... 10
6 Recomendaciones y propuesta de mejora ......................................................................... 16
7 Conclusiones ..................................................................................................................... 17
8 Referencias Bibliográficas ................................................................................................ 17
9 Anexos .............................................................................................................................. 19
MACRO DE EXCEL PARA EL CALCULO DE CANTIDADES DE ACERO DE
CIMENTACIONES Y ESTRUCTURAS PARA LA EMPRESA RRP ARQUITECTOS
Resumen
1 Introducción
Una de las prioridades más grandes de un ingeniero es la optimización no
solo de recursos, sino también del tiempo, que es considerado el activo más
importante de una empresa (Structuralia, 2020). Para esto se busca la
manera de reducir el tiempo de las actividades que realiza.
De ahí surge la idea de desarrollar una macro de Excel que sea capaz de
estandarizar los cálculos en las cantidades de acero de las cimentaciones y
los elementos estructurales, para optimizar los tiempos de cálculo. De esta
forma la empresa queda con una herramienta que aportará a su
crecimiento, contribuyendo así a los objetivos principales de esta.
Una vez culminada, esta macro servirá para separar las cantidades de acero
por la referencia de la varilla empleada, lo que aparte de ser útil en la
elaboración del presupuesto, supondrá un ahorro de tiempo al momento de
cotizar, ya que entregará los pesos precisos ligados al tipo de varilla y la clase
de elemento cotizado. Una de las limitantes es que, si es una estructura es
muy grande (superior a los 32 pisos), el comando de elemento se tardará un
poco más en agregar uno nuevo, pero su funcionalidad no se verá
comprometida.
2 Objetivos
2.1 Objetivo General
una macro de Excel que permita calcular las cantidades de acero de las
cimentaciones, vigas y columnas de una estructura.
3 Marco Teórico
3.2 Definiciones
Cimentación.
Se conoce por cimentación al grupo de elementos estructurales cuya labor
es transmitir las cargas de la construcción hacia el suelo, distribuyéndolas de
tal forma que no superen la carga admisible (Pérez & Perdomo, 2020). Existen
diferentes tipos de cimentación, dentro de estas están:
- Las zapatas: Estas pueden ser Aisladas, Combinadas y corridas,
Generalmente poseen una base rectangular, sobre la cual pueden
descansar una o más columnas. Las zapatas se conocen como
cimentaciones superficiales y se encargan de distribuir las fuerzas de la
estructura de manera uniforme bajo su base (Luévanos, 2016).
Elementos estructurales
Las Vigas son estructuras horizontales que pueden sostener cargas entre 2
apoyos sin producir empuje lateral. Están diseñadas para soportar la presión y
el peso de la losa, resistiendo durante el proceso fuerzas de flexión y tensión
(Pérez & Perdomo, 2020).
Cantidad de obra
Al cálculo de cantidades de obra se le conoce como cubicación, y requiere
de una metodología que facilite obtener información de una forma rápida y
ordenada, y que además incluya la posibilidad de revisar, controlar y
modificar los datos cuando sea necesario (Pérez & Perdomo, 2020). Para el
cálculo del acero se hacen necesarios las especificaciones técnicas y
metodologías de cálculo que faciliten su obtención.
Acero de refuerzo
Hace referencia al acero que hace parte tanto de las cimentaciones como
de la estructura generalmente son varillas de acero corrugado que vienen
en diferentes diámetros y longitudes. Los diámetros comerciales más
conocidos son de 1”, ½”, ¾”, 5/8”, 7/8”,3/8” y 1 ¼”. Por otro lado, las
longitudes comerciales para son de 6, 9, 12 y 14 metros (Mosquera, 2019).
Se exponen los conceptos teóricos que sustentan el desarrollo del trabajo,
debidamente referenciados.
Peso nominal.
Es la relación de peso por la longitud de la varilla, la unidad es (kg/m) y
depende del diámetro de la varilla (ICONTEC, 2015). Es decir, teniendo los
metros lineales de una varilla y su diámetro, es posible establecer el peso en
kg de esta, multiplicando los metros lineales por el peso nominal.
Lenguaje VBA
Es el lenguaje que las aplicaciones de Microsoft tienen para las macros, sus
siglas en ingles son: “Visual Basic for Applications”, es utilizado principalmente
para programar acciones repetitivas (Microsoft, 2018), es de entre los
lenguajes de programación una de los más fáciles de aprender a usar y tiene
auto escritura, es decir permite grabar acciones directamente en la hoja de
Excel y estas acciones quedan expedidas a manera de un código
ejecutable.
3.3 Antecedentes
Muchas empresas de construcción normalmente utilizan softwares externos
para calcular las cantidades de acero, estos programas son provistos por las
compañías con las que se realiza un contrato para la compra del acero, es
decir no es de uso libre, ya que solo te dan un usuario cuando el contrato es
realizado. Lo que supone que, a la hora de cotizar, el cálculo se haga de
forma manual y repetitiva.
4 Metodología
Con el fin de lograr los objetivos planteados, se llevaron a cabo las siguientes
actividades:
4.5 - Actualizaciones:
A medida que se desarrollaba el código de la programación, se hizo
necesario incluir las actualizaciones (mejoras), para permitir la optimización
de las tareas, esto conllevó a que el código fuera cada vez más depurado.
La idea planteada es que durante la vida útil de la macro se integren nuevas
actualizaciones de forma periódica, atendiendo a las solicitudes de sus
usuarios.
5 Resultados y análisis
Se obtuvo una macro que es de utilidad para el cálculo de las cantidades
de acero de una estructura. Incluyendo desde la cimentación hasta la
superestructura. Ésta contribuye a la optimización del tiempo al momento de
llevar a cabo el cálculo de dichas cantidades, aportando de esta forma al
desarrollo de RRP ARQUITECTOS.
¿Qué es?
Esta es una hoja de cálculo que contiene un código que simplifica las
acciones de cálculo de cantidades de acero y arroja resultados para
diferentes elementos. Ya sean vigas, columnas, pilas y demás elementos
pertenecientes a la estructura.
Menú de inicio.
Lo primero que encontramos es el menú de inicio este nos permitirá
desplazarnos por toda la hoja, desde el manual, pasando por los datos de
entrada del acero y los elementos que necesitamos ingresar hasta los
resultados para cada uno de estos.
Figura 6: Casillas para el ingreso de las cantidades de acero por elemento (Fuente: elaboración propia)
En “L, TOTAL VARILLA (m)”. No se debe ingresar ningún valor, ya que este
cálculo viene por default, en el código de la macro.
Figura 8: Botón para agregar un nuevo elemento en la hoja de pilote (Fuente: elaboración propia)
Figura 9: Tabla de resultados finales en kg, categorizada por diámetro y dividida por elementos longitudinales y
transversales (Fuente: elaboración propia)
Para evitar esto se tiene que depurar el código y actualizar de forma que las
acciones repetitivas queden relegadas en un solo lugar, y que solo las
acciones que requieran ejecutar tareas específicas sean las que se
programen en el lenguaje VBA.
7 Conclusiones
8 Referencias Bibliográficas
Microsoft. (2018). Language reference for Visual Basic for Applications (VBA).
https://docs.microsoft.com/en-us/office/vba/api/overview/language-
reference
Sub Macro1()
'
' Macro1 Macro
'
'
Rows("8:27").Select
Range("C8").Activate
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A8:A27").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("B8:B27").Select
Range("B27").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("K8:K27").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("L8:L27").Select
Range("L27").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("K8:K27").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-10]"
Range("L8:L27").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-10]"
Range("E8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E8").Select
Selection.AutoFill Destination:=Range("E8:E27"), Type:=xlFillDefault
Range("E8:E27").Select
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("O8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("O8").Select
Selection.AutoFill Destination:=Range("O8:O27"), Type:=xlFillDefault
Range("O8:O27").Select
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("G8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=0,0,IF(RC[-1]='DATOS ACERO'!R5C3,'DATOS
ACERO'!R5C4,IF(RC[-1]='DATOS ACERO'!R6C3,'DATOS ACERO'!R6C4,IF(RC[-
1]='DATOS ACERO'!R7C3,'DATOS ACERO'!R7C4,IF(RC[-1]='DATOS
ACERO'!R8C3,'DATOS ACERO'!R8C4,IF(RC[-1]='DATOS ACERO'!R9C3,'DATOS
ACERO'!R9C4,IF(RC[-1]='DATOS ACERO'!R10C3,'DATOS ACERO'!R10C4,IF(RC[-
1]='DATOS ACERO'!R11C3,'DATOS ACERO'!R11C4,IF(RC[-1]='DA" & _
"TOS ACERO'!R12C3,'DATOS ACERO'!R12C4,IF(RC[-1]='DATOS
ACERO'!R13C3,'DATOS ACERO'!R13C4,IF(RC[-1]='DATOS
ACERO'!R14C3,'DATOS ACERO'!R14C4,IF(RC[-1]='DATOS
ACERO'!R15C3,'DATOS ACERO'!R15C4,IF(RC[-1]='DATOS
ACERO'!R16C3,'DATOS ACERO'!R16C4,IF(RC[-1]='DATOS
ACERO'!R17C3,'DATOS ACERO'!R17C4,IF(RC[-1]='DATOS
ACERO'!R18C3,'DATOS ACERO'!R18C4,IF(RC[-1]='DATOS ACERO'!R19C3,'" & _
"DATOS ACERO'!R19C4,IF(RC[-1]='DATOS ACERO'!R20C3,'DATOS
ACERO'!R20C4,""NOT OK"")))))))))))))))))" & _
""
Range("G8").Select
Selection.AutoFill Destination:=Range("G8:G27"), Type:=xlFillDefault
Range("G8:G27").Select
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("Q8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=0,0,IF(RC[-1]='DATOS ACERO'!R5C3,'DATOS
ACERO'!R5C4,IF(RC[-1]='DATOS ACERO'!R6C3,'DATOS ACERO'!R6C4,IF(RC[-
1]='DATOS ACERO'!R7C3,'DATOS ACERO'!R7C4,IF(RC[-1]='DATOS
ACERO'!R8C3,'DATOS ACERO'!R8C4,IF(RC[-1]='DATOS ACERO'!R9C3,'DATOS
ACERO'!R9C4,IF(RC[-1]='DATOS ACERO'!R10C3,'DATOS ACERO'!R10C4,IF(RC[-
1]='DATOS ACERO'!R11C3,'DATOS ACERO'!R11C4,IF(RC[-1]='DA" & _
"TOS ACERO'!R12C3,'DATOS ACERO'!R12C4,IF(RC[-1]='DATOS
ACERO'!R13C3,'DATOS ACERO'!R13C4,IF(RC[-1]='DATOS
ACERO'!R14C3,'DATOS ACERO'!R14C4,IF(RC[-1]='DATOS
ACERO'!R15C3,'DATOS ACERO'!R15C4,IF(RC[-1]='DATOS
ACERO'!R16C3,'DATOS ACERO'!R16C4,IF(RC[-1]='DATOS
ACERO'!R17C3,'DATOS ACERO'!R17C4,IF(RC[-1]='DATOS
ACERO'!R18C3,'DATOS ACERO'!R18C4,IF(RC[-1]='DATOS ACERO'!R19C3,'" & _
"DATOS ACERO'!R19C4,IF(RC[-1]='DATOS ACERO'!R20C3,'DATOS
ACERO'!R20C4,""NOT OK"")))))))))))))))))" & _
""
Range("Q8").Select
Selection.AutoFill Destination:=Range("Q8:Q27"), Type:=xlFillDefault
Range("Q8:Q27").Select
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("H8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""NOT OK"",0,R8C2*RC[-3]*RC[-1])"
Range("H8").Select
Selection.AutoFill Destination:=Range("H8:H27"), Type:=xlFillDefault
Range("H8:H27").Select
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("R8").Select
ActiveCell.FormulaR1C1 = "SI(Q8=""NOT OK"";0;$L$8*O8*Q8)"
Range("R8").Select
ActiveCell.FormulaR1C1 = ""
Range("R8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""NOT OK"",0,R8C12*RC[-3]*RC[-1])"
Range("R8").Select
Selection.AutoFill Destination:=Range("R8:R27"), Type:=xlFillDefault
Range("R8:R27").Select
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("A8").Select
Range("A8:H27").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("K8:R27").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("A8:H27").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("K8:R27").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("I8").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[19]C[-1])+SUM(RC[9]:R[19]C[9])"
Range("I8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A8:A27").Select
Range("E8:E27,G8:H27,O8:O27,Q8:R27").Select
Range("Q8").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("A8:A27").Select
End Sub