Bordes con Excel
Hola, trabajo con hojas excel muy grandes... En las hojas ordeno a los clientes por DNI por filas, cada cliente tiene varias filas 3, 4, 7 ö simplemente 1 en todas las empiezo en la columna A con el DNi ejemplo:
11111111x
11111111x
11111111x
---------------------------------------------------------------------
22222222x
22222222x
------------------------------------------------------------------------
Bien, lo que necesito es una macro que me haga los bordes inferiores cuando cambia de DNI es decir que mientras sea el mismo DNI no hayan bordes pero cuando empiece otro se delimite con uno, no se si me entendéis... Me podéis ayudar??
1 respuesta
Te dejo la rutina para esto. En principio recorre la col A a partir de la fila 2 y solo bordea la col A. T dejo 2 tipos de bordes, con la grabadora de macros podes obtener la instrucción del estilo que desees.
Sub bordeando()
'x Elsamatilde
'recorre la col A hasta encontrar una vacía. fin de rango
Range("A2").Select
'comparo si el próx doc es = dni
While ActiveCell.Value <> ""
If ActiveCell.Offset(1, 0) <> ActiveCell Then
'aplico borde a gusto
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin 'otro formato de borde: xlHairline
.ColorIndex = xlAutomatic
End With
End If
'paso a la fila siguiente
ActiveCell.Offset(1, 0).Select
'repito el bucle
Wend
End Sub
Sdos y no olvides finalizar la consulta
Te recuerdo que tenés la consulta abierta... si el tema quedó resuelto la debes FINALIZAR para no quedar bloqueado de realizar otras nuevas consultas.
Sdos
Elsa
