About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2007-03-03

Se num determinado Range pretendermos encontrar a primeira célula vazia, entre várias células preenchidas e vazias, como no exemplo,

podemos utilizar um pouco de código VBE, de modo a, por um lado, termos uma mensagem a dizer-nos qual é a célula e, de seguida, posicionarmo-nos nessa mesma célula.

 

O Código:

Option Explicit


Sub FindFirstEmptyCell()

    Dim myRange As Range

    On Error Resume Next
    Set myRange = Range("A:B").SpecialCells(xlCellTypeBlanks)(1)
    On Error GoTo 0


    If myRange Is Nothing Then
        MsgBox "Não existem células vazias no Range!"
    Else
        MsgBox myRange.Address
    End If

    Range(myRange.Address).Select

End Sub