Saberexcel - o site de quem precisa aprender macros microsoft Excel VBA

Uma das matérias mais importantes do aprendizado Microsoft Excel VBA, automatização de planilhas é aprender a lidar com manipulação de objetos ranges, nos estamos preparando um material sobre tudo sobre o objeto range e a propriedade desloc via vba conjuntamente como também as instruções For...next, For Each Next, Do Loop While, Do Until Loop, Do Loop Until, While Wend, IF Else Then, Select Case.
Para obter sucesso em seus estudos excel vba, estude bem essas matérias, são fundamentais em seu aprendizado e, em breve vou disponiblizar assunto completo sobre essas matérias.

OBJETO RANGE
Este macro localiza a segunda célula de determinada região e insere dados: letras, frases, números...

Sub Localizar_segunda_celula_regiao()
Range("C5:E7").Cells(2, "A").Value = "Saberexcel"
'Range("C5:E7").Cells(2, 2).Value = "Saberexcel"
End Sub

Sub limpar_teste()
Range("C5:E7").Cells(2, "A").Value = ""
'Range("C5:E7").Cells(2, 2).Value = ""
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Retorna ou define o valor da célula. Variant de leitura/gravação.

Sintaxe

expressão.Value2

expressão Uma variável que representa um objeto Range.

Comentários

A única diferença entre essa propriedade e a propriedade Value é que a propriedade Value2 não usa os tipos de dados Currency e Date. Você pode retornar valores formatados com esses tipos de dados como números de ponto flutuante usando o tipo de dados Double.

Exemplo

Este exemplo usa a propriedade Value2 para adicionar os valores de duas células.

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.

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.

Essa macro do Aplicativo Microsoft Excel VBA, adiciona um range dinâmico à area usada na coluna(A), o range dinâmico nomeado como 'vDados', expande a medida em que for sendo digitado dados na coluna(A), poderá verificar no Evento Change da folha de código da planilha
também há uma macro que deleta o range nomeado específico. Espero que lhe seja útil - Fique com Deus, Boa Sorte. E_Marcondes.


Sub adicionar_range_e_extender_digitacao()
Set Rng1 = Sheets("Plan1").Range("A1").CurrentRegion
ActiveWorkbook.Names.Add Name:="vDados", RefersTo:=Rng1
End Sub

Sub deletar_range_criada()
Dim resposta As String

resposta = MsgBox("Deseja deletar o range dinâmico [vDados]", vbYesNo, "Saberexcel- site das macros")
If resposta = 6 Then
ActiveWorkbook.Names("vDados").Delete
MsgBox ("range dinâmico deletada")
End If
End Sub


Sub Copiar_dados_criterio_f1()
[M1:M20].ClearContents
If Range("f1").Value = 1 Then
Range("vDados").Copy
Range("H1").Select
ActiveSheet.Paste
Range("J1").Select
SendKeys "{tab 3}{down}{enter}"

Else
On Error GoTo err

Range("vDados").Copy 'se ocorrer um erro nesta linha de código é possível que o range já nao exista!
Range("H1").Select
ActiveSheet.Paste
Range("J1").Select
SendKeys "{ESC}"
Exit Sub
err: MsgBox ("verifique se deletou o range dinamico 'vDados'")

End If
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saber Excel

Publicidade:
Compre com garantia, preços baixos e com segurança, nas lojas SubMarino

Saberexcel - site das macros
Essas macros do Aplicativo Microsoft Excel VBA, oculta e ou na lista de nomes todas as range nomeadas que inicia-se com a letra(G).


Option Explicit

Sub ocultar_range_letra_inicia_G()
Const Prefix As String = "G"

Dim vNome As Name

For Each vNome In ActiveWorkbook.Names
If Left(vNome.Name, Len(Prefix)) = Prefix _
Or InStr(vNome.Name, "!" & Prefix) Then
vNome.Visible = False
End If
Next vNome

End Sub

Sub Visualizar_range_name_inicia_G()
Const Prefix As String = "G"

Dim vNome As Name
For Each vNome In ActiveWorkbook.Names
If Left(vNome.Name, Len(Prefix)) = Prefix _
Or InStr(vNome.Name, "!" & Prefix) Then
vNome.Visible = True
End If
Next vNome

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel







Compre com garantia e bons preços nas lojas submarino