Excel Macro simples que ao clicar no botão abra o formulário do próprio Excel

[Revolucao]

Pessoal, boa tarde!!

Tenho uma Planilha de cadastro de clientes e gostaria de utilizar o formulário do próprio excel, porém tem duas situações que não consigo resolver:

1- Como criar uma macro simples que ao clicar no botão abra o formulário para inserção?

2- Exemplo eu escolho a linha de numero 80, e ao clicar no formulário ele abre esse registro em especifico para editar?

 

Segue arquivo em anexo, caso alguém sinta de me ajudar

 

Obrigado!!

Formulario Aprendizado.zip

[Diego Mendes Rodrigues]

@Revolucao , boa tarde.

 

Nesse vídeo ele ensina como trabalhar com formulários no Excel utilizando VBA:

 

 

Espero ter ajudado!

Abraço,

Diego

[Revolucao]

@Diego Mendes Rodrigues Agradeço!!
Mas queria usar o do excel pois não precisa de programação, só o que preciso é de um código que abra de forma automática.

Obrigado!!

[Midori]

@Revolucao Para exibir o formulário tem a função ShowDataForm, p.ex,

 

Sub Formulario()
    [B4].CurrentRegion.Name = "Database"
    ActiveSheet.ShowDataForm
End Sub

 

Esse formulário é limitado e não tem muitos recursos para manipular via macro. Mas para selecionar um registro específico você pode tentar com SendKeys, p.ex para selecionar o décimo registro,

For I = 2 To 10
    Call SendKeys("%(N)")
Next I
ActiveSheet.ShowDataForm

 

[Revolucao]

@Midori O primeiro código deu certo.

Já o segundo tenho duvidas:
1- Esse numero 10 tera que ser sempre alterado conforme o registro que se quer fazer alterações?
2- Eu preciso criar um novo módulo para inserir esse segundo código?

Obrigado!!

[Midori]

@Revolucao O segundo é um trecho que você pode acrescentar numa sub. Onde tem 10 pode ser a linha da tabela que foi selecionada.

[Revolucao]

@Midori Ve se esta correto como ficaria no Visual basic, porque esta dando erro, estou com dificuldades para juntar os dois códigos.
 

Sub Formulario()

[B4].CurrentRegion.Name = "Database" ActiveSheet.ShowDataForm

 

For I = 2 To 10

Call SendKeys("%(N)") Next I

ActiveSheet.ShowDataForm

 

End Sub

 

Obrigado!!

 

[Midori]

@Revolucao É só copiar o bloco do loop/FOR e colar antes da linha ShowDataForm.

[Revolucao]

@Midori Hoje eu estou devagar, rs

Não consegui compreender

[Midori]

Sub Formulario()
    [B4].CurrentRegion.Name = "Database"

    For I = 2 To 10
        Call SendKeys("%(N)")
    Next I
    
    ActiveSheet.ShowDataForm
End Sub

 

[Revolucao]

@Midori A parte 1 de abrir o formulário funcionou ok.
Já a segunda não entendi como associa-la a um botão e como aciona-la.

 

Obrigado!!

[Midori]

@Revolucao No botão da sua planilha com o clique direito do mouse você vai ver no menu a opção "Atribuir Macro". Aí é só selecionar a sub com o código.

[Revolucao]

@Midori Sim eu atribuiu o que abre o formulário e foi ok.
porém não estou conseguindo entender esse segundo código e nem associa-lo.

[Midori]

@Revolucao O que você não entendeu? Associar com o quê?

[Revolucao]

@Midori Eu tinha entendido que cada código tinha uma função, mas então o código todo é somente para abrir o formulário, correto?

 

 

[Midori]

@Revolucao O código é só para abrir o formulário. O último só demonstrei como o formulário pode abrir com determinado registro da tabela selecionado. E aí teria que substituir a constante 10 por uma variável com o número da linha.

[Revolucao]

@Midori Boa noite!!
Para a opção 1 abrir formulário ficou ok>
Já a de editar vou deixar para uma próxima vez.

 

Muito obrigado!!