bordear celdas en vez de colorear

[magoblue]

como puedo modificar este codigo para que me bordee las celdas en vez de colorearla

'**************** colorear hoja 'pistadia' según comparación con Hoja1
Application.ScreenUpdating =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Frank2021]

Hola,

reemplaza este código:

                    With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[magoblue]

Hola,

reemplaza este código:

                    With Selection.Interior
                        .Pattern = xlSolid...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Frank2021]

Hola,

cambia xlThin por xlThick

Saludos

 

[magoblue]

Hola,

cambia xlThin por xlThick

Saludos

y que linea agrego para quitar los bordes anteriores al inicio del codigo
'quitar colores...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Frank2021]

Hola,

With ActiveSheet.UsedRange    
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlNone...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[magoblue]

gracias funciona