Ver originales (Francés)

Borde de celda en VBA

Resuelto
Grobibi34 Mensajes publicados 83 Estado Miembro -  
 seb -
Hola a todos.

Estoy desarrollando una pequeña herramienta de planificación automática, por lo que mis filas y columnas son variables.

Me gustaría que todas las celdas que he editado tengan un borde.

Imagino que el problema sería revisar todas las celdas fila por fila o columna por columna para ver si hay algo escrito dentro; si es el caso, se debería enmarcar la celda en cuestión.

¿Estoy en lo cierto en el principio? Si es así, ¿cómo lograrlo? Si no, ¿cómo hacerlo?

Atentamente,

Grobibi34
Configuración: Windows XP Internet Explorer 6.0

7 respuestas

  1.
    michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   3 320
     
    Hola

    tu tabla está en el área B2:H25 por ejemplo 

    Sub encuadrar_si() Dim celda As Range For Each celda In Range("B2:H25") If celda <> "" Then celda.Borders.Weight = xlThin Next End Sub


    --
    :-x
    37
    1. altec
       
      ¡Muchas gracias!
      0