Detalhes de vba range dinamico nomear e expandir digitacao copiar

PropriedadeValor
Nome:vba range dinamico nomear e expandir digitacao copiar
Descricao:

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
Informática - Submarino.com.br

Nome do arquivo:vba range dinamico nomear e expandir digitacao copiar.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 27/11/2010 07:46
Visitas:Todos
Responsavel:Editor
Acessos:870 Acessos
Atualizado em: 27/11/2010 07:47
Site: