Localizar próxima célula vazia e abaixo colocar borda

[Moiba]

Como faço uma macro para rodar na coluna A e assim que acha uma celula vazia (as vezes existe varias vazias na sequencia), antes de uma outra com valores e entre essa vazia e a com valores é incluido uma borda grossa da coluna A até a M, depois procura o proximo branco e repete o mesmo processo. Tem como? Como seria essa macro?

Dados

Dados

Cel vazia

Cel vazia

-------------------------------------------------------------------------- <- Borda

Dados

Cel vazia

-------------------------------------------------------------------------- <- Borda

Dados

Cel vazia

Cel vazia

Cel vazia

Cel vazia

Cel vazia

-------------------------------------------------------------------------- <- Borda

[MPR]

O que você quer pode ser feito da seguinte forma:

Crie um módulo em VBA e digite (ou cole) o código abaixo:

Sub DestacaDados()

' A partir da última linha da coluna A, seleciona a última linha que contém dados

' No Excel 2003 ou anteriror, usar o endereço A65536

Range("A1048576").End(xlUp).Select

' Faz o loop até a primeira linha

' Se houver um cabeçalho, troque o número 1 pelo valor da primeira linha de dados

Do While ActiveCell.Row > 1

If ActiveCell.Value <> "" And ActiveCell.Offset(-1, 0).Value = "" Then

Call Linha

End If

ActiveCell.Offset(-1, 0).Select

Loop

End Sub

'Traça uma linha espessa acima da célula ativa

Sub Linha()

With Range(ActiveCell, ActiveCell.Offset(0, 12)).Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThick

End With

End Sub

Depois selecione a planilha que contém os dados e execute a macro DestacaDados.

Carlos César Tanaka

Cursos de VBA