Função RANGE utilizando variaveis.

[Acarasco]

Pessoal, Boa Tarde!

Sou bem leigo em VBA e estou precisando fazer um range utilizando variaveis, o que preciso é que a variavel assuma o nome da célula (ex: A1, B1, C4) e não o valor que está nela, ou seja, se na célula A1 estiver o valor 50, a variavel deve ser igual a A1 e não igual a 50.

Segue o código que estou utilizando

Sub seleciona()

Dim primeira As Long

Dim ultima As Long

Cells.Find(What:="Pendente.TIME").Activate

ActiveCell.Offset(1, 0).Select

primeira = ActiveCell

ActiveCell.Offset(700, 0).Select

Selection.End(xlUp).Select

ultima = ActiveCell

Range(primeira, ultima).Select

End Sub

Agradeço a todos.

[Márcio Rodrigues]

Olá Acarasco

Defina as variáveis primeira e ultima com String

Atribua o endereço das celulas com ActiveCell.Address

Sub seleciona()

Dim primeira As String

Dim ultima As String

Cells.Find(What:="Pendente.TIME").Activate

ActiveCell.Offset(1, 0).Select

primeira = ActiveCell.Address

ActiveCell.Offset(700, 0).Select

Selection.End(xlUp).Select

ultima = ActiveCell.Address

Range(primeira, ultima).Select

End Sub

Veja se é por aí!!!

Márcio

[Acarasco]

É isso mesmo . .valeu pela ajuda !!!

[Patropi]

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.