| Descricao: |
 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.
|