Poner bordes a partir de la ultima fila con datos
Necesito una macro que busque la ultima fila con datos y seleccione todas las celdas hacia arriba hasta L6 y otra igual una fila mas M6
Las filas con datos son diferentes, el emplo que tengo la ultima fila con datos es la 24 La columna A esta vacia, los datos estarían B6:L24. Luego tendría que crear otra M6:M24 en este rango no hay datos
2 respuestas
Sub Ir_UltimaFila()
'Por exceltutos.com
uFila = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:L" & uFila).Select 'Selecciona el primer rango
Range("M6:M" & uFila).Select 'Selecciona el segundo rango
End Sub
Gracias, se me olvidaba hay que poner los bordes
Según entiendo los bordes lo deseas de esta manera.
Sub Ir_UltimaFila()
'Por exceltutos.com
uFila = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:L" & uFila).BorderAround LineStyle:=xlContinuous
Range("M6:M" & uFila).BorderAround LineStyle:=xlContinuous
End Sub
Te paso como encontrar la última celda con datos
http://www.programarexcel.com/2014/05/como-determinar-la-ultima-fila-con-datos.html
Si tienes un rango de filas y columnas variables mira este ejemplo para poder establecer rango variable
http://www.programarexcel.com/2014/12/como-determinar-un-rango-variable-en.html
Acá como colocar bordes
http://www.programarexcel.com/2015/10/como-dar-formato-celdas-filas-y-columnas.html
Así se asignan los bordes más comunes
Range("C2:E4").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeLeft).Weight = xlThin
Range("C2:E4").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeTop).Weight = xlThin
Range("C2:E4").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeBottom).Weight = xlThin
Range("C2:E4").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeRight).Weight = xlThin
Range("C2:E4").Borders(xlInsideVertical).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideVertical).Weight = xlThin
Range("C2:E4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideHorizontal).Weight = xlThin