Excel vba planilha range name retorna valor endereco

Sáb, 23 de Junho de 2012 17:58 Expedito Marcondes
Imprimir

Escola Saberexcel VBA Estudos® - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o range name da célula ativa, isto é ao acessar determinada célula,
e executar o macro abaixo uma mensagem retorna o nome da range nomeada e também retorna o endereço do range nomeado, data e horario,
como também o nome do usuario.
'- - - - - - - - - - - - -'
'Escola SaberExcel VBA Estudos®
'http://www.microsoftexcel.com.br
'[email protected]
'- - - - - - - - - - - - -'
Sub sbx_range_nome_selecionado()
Dim vNome As Name

For Each vNome In ActiveWorkbook.Names
  If Not Application.Intersect(ActiveCell, vNome.RefersToRange) Is Nothing Then
     MsgBox "Range Nomeada " & vbCrLf & vNome.Name, vbInformation, "Escola SaberExcel"
     Saber1.Range("s65000").End(xlUp).Offset(1, 0).Value = "'" & vNome
     Saber1.Range("s65000").End(xlUp).Offset(0, 2).Value = vNome.Name
     Saber1.Range("s65000").End(xlUp).Offset(0, 4).Value = Now()
     Saber1.Range("s65000").End(xlUp).Offset(0, 6).Value = Application.UserName
  End If
Next vNome
End Sub

 
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo o macro acima
Excel vba planilha range name retorna valor endereco (91.33 KB)

Tags:
Última atualização em Sáb, 23 de Junho de 2012 18:31