Planilha Excel VBA – Validação de dados criar range dinâmico banco dados

14 de setembro de 2014 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

PROMOÇÃO ESPECIAL – EXCEL VBA
Adquirir o Material Didático Escola SaberExcel VBA Estudos

Planilha Excel VBA Validação de dados criar range dinâmico banco dados

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), cria dois range dinâmico que buscara em outra folha de planilha em Lista de Dados e também poderá deletar os range dinâmicos criados para seu teste, e criá-los novamente.

Fique com Deus, Bons Estudos.

Sub sbx_range_dinamico()
‘– nomeando o range dinamico
    ActiveWorkbook.Names.Add Name:=”Escolha1″, RefersToR1C1:= _
“=OFFSET(Listas!R1C1,,,,COUNTA(Listas!R1C1:R1C26))”
ActiveWorkbook.Names.Add Name:=”Escolha2″, RefersToR1C1:=”=Listas!C1″
‘– criar a lista
    [b2].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=Escolha1″
End With
Range(“B2”) = Range(“Escolha1”)(1)
Range(“C2”).Select
X = “=offset(Escolha2,1,match(B2,Escolha1,0)-1,counta(offset(Escolha2,,match(B2,Escolha1,0)-1))-1)”
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=X
End With
Application.Dialogs(xlDialogNameManager).Show
   ‘— copiar as listas
    [B2:c10].ClearContents
‘ [B2:C2].Copy [B3:B10]
    [b2].Select
End Sub

‘//==========SOMENTE TREINAMENTO COMPLEMENTAR.

Sub sbx_deletar_range_dinamicos()
If MsgBox(“Deseja deletar os range dinâmicos?”, 4 + vbCritical, “Escola SaberExcel VBA Etudos”) = 6 Then
ActiveWorkbook.Names(“Escolha1”).Delete
ActiveWorkbook.Names(“Escolha2”).Delete
MsgBox “Range dinamicos deletados, criar novamente macro”, vbInformation, “Escola SaberExcel VBA Estudos”
‘ abaixo tem a finalidade de abrir a caixa de dialogo e mostrar que foi deletado somente.
Application.Dialogs(xlDialogNameManager).Show ‘ observe que há centenas de caixas de ‘diálogos para você treinar com vba.
End If
End Sub