Cambiar línea de código excel
Como puedo cambiar esta línea que en ves de colorearme la celda me le de un borde
.Interior.ColorIndex = 6
Range("a4"). BorderAround xlContinuous, xlThin, (0)cambia el valor A4 por el tuyo
me dieron esto y funciona
.BorderAround ColorIndex:=0, Weight:=xlThick
pero debo anexarle a este codigo que en cada busqueda quite el borde de la primera busqueda y volver a marcar con la segunda busqueda
este es el codigo
Sub buscar_reemplazar_color()
'preparar col AP
With Range("AI:AI")
.ClearContents
.NumberFormat = "@"
End With
x = Range("AD" & Rows.Count).End(xlUp).Row
finy = 2
For Z = 2 To x
nrox = Format(Range("AD" & Z) & Range("AE" & Z) & Range("AF" & Z) & Range("AG" & Z), "0000")
If InStr(1, UCase(nrox), "X", 0) = 0 Then
Range("AI" & finy) = nrox: finy = finy + 1
End If
Next Z
Set DATOS = Range("A1:AA80").CurrentRegion
Set lista = Range("AI1").CurrentRegion
MATRIZ = DATOS
With lista
For i = 2 To .Rows.Count
numeros = .Cells(i, 1)
cuenta = WorksheetFunction.CountIf(DATOS, numeros)
If cuenta > 0 Then
For j = 1 To cuenta
If j = 1 Then Set busca = DATOS.Find(Format(numeros, "0000"), lookat:=xlWhole)
If j > 1 Then Set busca = DATOS.FindNext(busca)
On Error Resume Next
Celda = busca.Address
With Range(Celda)
.BorderAround ColorIndex:=0, Weight:=xlThick
.Select
End With
Next j
Else
GoTo SIGUIENTE
End If
On Error GoTo 0
SIGUIENTE:
Next i
End With
SALIDA:
End Sub
No sabria como hacer lo que pides, pero podrias crear otra macro, para vuelva toda la hoja como estaba, selecciona toda la hoja (desde la esquina superior izquierda de la hoja) y le das de nombre "TODO", y creas una macro algo asi:
Sub bordes()
Application.ScreenUpdating = False
Range("TODO").Borders.LineStyle = xlContinuous 'bordes finos
' En caso de no querer bordes cambiar el "xlContinuous" por "xlNone"
Range("A1").Select
Application.ScreenUpdating = True
End suby despues se la asignas a un CommandButton o simplemente la ejecutas desde ALT+F8
Espero haberte ayudado, saludos.
Y te sugeriría usar el parámetro
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Para evitar el pantallazo que hace al ejecutar tu macro.
