Obter uma matriz de um range

Question

Boa noite a todos,

Preciso obter uma matriz que retorne todos os endereços de um range. No caso, tentei isso e funcionou, mas quando fui "dinamizar" houve um erro de incompatibilidade:

Sub Teste()

Set cs = Selection.CurrentRegion

For i = LBound(cs) to UBound(cs)

msgbox cs(i).Address

Next i

End Sub

As funções LBound e UBound não identificam o objeto 'Selection.CurrentRegion' como uma matriz e sim como um range... Como eu faço para obter tudo naquele intervalo como uma matriz? Preciso trabalhar com os ranges individualmente...

Obrigado desde já.

Answer 1

Sub fnc()
    Dim var As Variant
    Dim lngCol As Long
    Dim lngRow As Long
    
    var = Selection.CurrentRegion
    For lngRow = LBound(var, 1) To UBound(var, 1)
        For lngCol = LBound(var, 2) To UBound(var, 2)
            Debug.Print var(lngRow, lngCol)
        Next lngCol
    Next lngRow
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Benzadeus, o código não funciona... Ele acusa um erro de incompatibilidade para o LBound e UBound... O mesmo que eu relatei acima...

Answer 3

Veja um exemplo: https://skydrive.live.com/redir?resid=FB206A2D510E0661!8549&authkey=!AIl4X3SGfa881Y0

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Funcionou, mas percebi que ela só funciona se a região selecionada possuí algum dado. Como fazer para que a macro funcione mesmo que exista células vazias na região selecionada?

Att.

Answer 5

Acho melhor você trocar a linha:

var = Selection.CurrentRegion

por algo mais direto, como por exemplo:

var = Range("A1:D25")

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br