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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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