maublues, acabou a greve ?
Ontem não tive como mexer em seu modelo, eu salvei em 2003, e contrui agora rapidinho algumas instruções, cole-as em modulo, crie os botões e associeas macros.
Quanto a macro que você postou, utilazr "AddConnector", é um pouco mais complicado, pois se trata de shape, e precisamos informar as coordenadas corretas para serem criadas, não cheguei ainda a utilizar este recursso, mas vou pesquisar a respeito, por enquanto veja se as rotinas abaixo ajudam, será adicionado a borda Diagonal nas celulas vazias :
Sub BOTAO_DoS_NOMES()
Dim sJaneiro As Worksheet
Dim sRange As Range
Set sJaneiro = Sheets("Janeiro")
'Defino a range
Set sRange = sJaneiro.Range("B15:B74")
'Colocamos com Borda na Diagonal somante nas Celulas vazias,
With sRange.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Sub BOTAO_DaS_PRESENCAS()
Dim sJaneiro As Worksheet
Dim sRange As Range
Set sJaneiro = Sheets("Janeiro")
'Defino a range
Set sRange = sJaneiro.Range("N15:BF74")
'Colocamos com Borda na Diagonal somante nas Celulas vazias,
With sRange.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Sub BOTAO_DaS_NOTAS()
Dim sJaneiro As Worksheet
Dim sRange As Range
Set sJaneiro = Sheets("Janeiro")
'Defino a range
Set sRange = sJaneiro.Range("BH15:BM74")
'Colocamos com Borda na Diagonal somante nas Celulas vazias,
With sRange.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Sub BOTAO_DaS_MEDIAS()
Dim sJaneiro As Worksheet
Dim sRange As Range
Set sJaneiro = Sheets("Janeiro")
'Defino a range
Set sRange = sJaneiro.Range("BN15:BO74")
'Colocamos com Borda na Diagonal somante nas Celulas vazias,
With sRange.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Sub BOTAO_CONTEUDO_MINISTRADO()
Dim sJaneiro As Worksheet
Dim sRange As Range
Set sJaneiro = Sheets("Janeiro")
'Defino a range
Set sRange = sJaneiro.Range("BR7:BR66")
'Colocamos com Borda na Diagonal somante nas Celulas vazias,
With sRange.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Veja que é um macro para cada cjto de celulas.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/03/2012 1:17 pm