About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2007-03-03
9:12 da tarde | 
Publicada por
JRod - PORTUGAL
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 ExplicitSub 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
