Bom dia.
Estou criando uma planilha e aplicando umas condições para deixá-la com um visual mais bacana e limpo. Gostaria de criar uma condição para uma certa quantidade linhas, esta condição seria da seguinte forma:
-Quando o campo “C9” fosse preenchido, a linha “C9:O9” aplicasse uma borda em todas as células da linha. Só que esta condição tem que ser aplicada nas linha que vem em seqüência conforme fosse preenchidos os seus campos iniciais (Ex.: “C10:O10” , “C11:O11” e assim por diante).
Segue o código que eu acho que funcionaria para uma linha:
Sub BORDERS()
Range("C9:O9").Select
Selection.BORDERS(xlDiagonalDown).LineStyle = xlNone
Selection.BORDERS(xlDiagonalUp).LineStyle = xlNone
With Selection.BORDERS(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.BORDERS(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.BORDERS(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.BORDERS(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Se estiver certo, com fazê-lo entrar na condição descrita a cima?
Desde já muito obrigado a todos.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/09/2010 7:47 am