Excel planilha vba range dinamico nomear e expandir digitacao copiar

Sáb, 27 de Novembro de 2010 06:36 Expedito Marcondes
Imprimir

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)



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