Home Excel - Dicas Microsoft Excel VBA Excel VBA - Range Excel planilha vba range dinamico nomear e expandir digitacao copiar

Excel planilha vba range dinamico nomear e expandir digitacao copiar

E-mail Imprimir PDF

Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

  Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba range dinamico nomear e expandir digitacao copiar (25.16 kb)



Última atualização em Sáb, 06 de Outubro de 2012 09:30  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4944
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19991
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38179
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461008
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA