retorna o endereço de uma range em modo texto

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

retorna o endereço de uma range em modo texto

Mensagempor edcronos2 » Dom Out 21, 2018 11:22 pm

não sei se tem utilidade para alguem , pelo menos para mim é muito util para usar junto de indireto ou tabelas de controle de range para macros

retorna o endereço de uma range em modo texto

Código: Selecionar todos
Public Function EndereçoRange(Seleção_Range As Range, Optional linhaDesloc As Long, Optional ColunaDesloc As Long) As String
     nomeaba = Seleção_Range.Worksheet.Name
     If nomeaba <> ActiveSheet.Name Then
          EndereçoRange = nomeaba & "!" & Seleção_Range.Offset(linhaDesloc, ColunaDesloc).Address
     Else
          EndereçoRange = Seleção_Range.Offset(linhaDesloc, ColunaDesloc).Address
     End If
End Function


se a aba não for a ativa mostra tbm o nome da aba
tem como deslocar linha e coluna tbm

=EndereçoRange(AG28:AK33)
$AG$28:$AK$33

=EndereçoRange(AG28:AK33;-3;10)
$AQ$25:$AU$30

funciona como um endereço de tabela se adicionar linhas ou colunas na range a função vai reajustar
claro que se pode ter certos inconvenientes , mas ainda acho melhor do que escrever aquele monte de formula só para ter o endereço de uma range

o certo seria uma funçao nativa do proprio excel ,mas como não tem

For this post the author edcronos2 thanked:
xlarruda (Sex Out 26, 2018 6:17 pm)
edcronos2
Membro
Membro
 
Mensagens: 387
Registrado em: Seg Nov 30, 2015 6:59 pm
Has thanked: 22 times
Have thanks: 72 times

{ SO_SELECT }

Re: retorna o endereço de uma range em modo texto

Mensagempor skulden » Sex Out 26, 2018 3:30 pm

edcronos2,

Há algum diferencial entre esta fórmula e a fórmula nativa do Excel "ÉCEL"?

Digo isso porquê o O ÉCEL("endereço";...) tem a mesma funcionalidade.
Se a resposta lhe foi útil, clique no joinha!

For this post the author skulden thanked:
xlarruda (Sex Out 26, 2018 6:16 pm)
skulden
Membro
Membro
 
Mensagens: 175
Registrado em: Ter Jul 19, 2016 8:33 pm
Has thanked: 5 times
Have thanks: 58 times

Re: retorna o endereço de uma range em modo texto

Mensagempor xlarruda » Sex Out 26, 2018 4:41 pm

Uma vez criei algo parecido mas confesso que caiu no esquecimento, além do mais era mais para fazer testes:

Código: Selecionar todos
Option Explicit

Function Range_to_String(Matriz As Range, Optional Lockedrange As Integer) As String
Select Case Lockedrange
    Case Is = 0
        Range_to_String = CStr(Matriz.Address(0, 0))
     
    Case Is = 1
        Range_to_String = CStr(Matriz.Address(1, 0))
   
    Case Is = 2
        Range_to_String = CStr(Matriz.Address(0, 1))
       
    Case Is = 3
        Range_to_String = CStr(Matriz.Address(1, 1))
End Select
   
End Function



=Range_to_String(Matriz;LockedRange)

LockedRange:

0 Range fica solta
1 Trava as Linhas
2 Trava as Colunas
3 Trava Linhas e Colunas
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 789
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 97 times
Have thanks: 318 times

Re: retorna o endereço de uma range em modo texto

Mensagempor edcronos2 » Sex Out 26, 2018 7:32 pm

skulden
teve até um topico aqui a respeito
viewtopic.php?f=20&t=29594

For this post the author edcronos2 thanked:
skulden (Seg Out 29, 2018 12:02 pm)
edcronos2
Membro
Membro
 
Mensagens: 387
Registrado em: Seg Nov 30, 2015 6:59 pm
Has thanked: 22 times
Have thanks: 72 times


Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante