Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ModeloCadastrov3ListView alterar [RESOLVIDO]
Moderador: Rafael Monteiro
ModeloCadastrov3ListView alterar [RESOLVIDO]
Boa tarde, queria aproveitar o ModeloCadastrov3ListView para um projeto meu.
Mas queria que ficasse no MdC_FrontEnd ListView ficasse com 5 formularios de cadastro e 5 de pesquisa e o ModeloCadastro_Dados ficasse com 5 planilhas.
isto porque quero fazer 5 tipos de cadastros diferentes e a minha duvida é na parte da definição da planilha de dados como é que faço para que cada tipo de registo abra a planilha desses registos no ModeloCadastro_Dados.
pelo que entendi no VBA apenas define a pasta do ModeloCadastro_Dados e o arquivo e eu quero saber como defenir tambem qual a planilha que pretendo abrir.
Mas queria que ficasse no MdC_FrontEnd ListView ficasse com 5 formularios de cadastro e 5 de pesquisa e o ModeloCadastro_Dados ficasse com 5 planilhas.
isto porque quero fazer 5 tipos de cadastros diferentes e a minha duvida é na parte da definição da planilha de dados como é que faço para que cada tipo de registo abra a planilha desses registos no ModeloCadastro_Dados.
pelo que entendi no VBA apenas define a pasta do ModeloCadastro_Dados e o arquivo e eu quero saber como defenir tambem qual a planilha que pretendo abrir.
Editado pela última vez por lfrbranca em Seg Jul 04, 2016 3:47 pm, em um total de 1 vez.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: ModeloCadastrov3ListView alterar
LfrBranca, boa tarde e seja bem vindo ao forum.
Veja uma parte do código abaixo:
Como pode ser visto, o final desse comando informação "[Fornecedores$]", refere-se ao nome da aba existente na planilha Dados. Por exemplo, se você criar uma nova aba, com o nome Clientes, deve o código deve ser alterado, conforme abaixo:
Dessa forma, você consegue direcionar a chamada para a nova aba/informações gerada.
Como no seu caso serão: 5 FormCad, 5 FormPesq e 5 PlanDados, os caminhos tem que ser acertados conforme mencionado acima.
Teste e nos retorne. Caso tenha alguma duvida, poste aqui.
Abraços e excelente resto de semana.
Veja uma parte do código abaixo:
Código: Selecionar todos
sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
Código: Selecionar todos
sql = "SELECT DISTINCT Cidade FROM [Clientes$]"
Como no seu caso serão: 5 FormCad, 5 FormPesq e 5 PlanDados, os caminhos tem que ser acertados conforme mencionado acima.
Teste e nos retorne. Caso tenha alguma duvida, poste aqui.
Abraços e excelente resto de semana.
Re: ModeloCadastrov3ListView alterar
Desde já obrigado pela atenção.Mikel Silveira Fraga escreveu:LfrBranca, boa tarde e seja bem vindo ao forum.
Veja uma parte do código abaixo:Como pode ser visto, o final desse comando informação "[Fornecedores$]", refere-se ao nome da aba existente na planilha Dados. Por exemplo, se você criar uma nova aba, com o nome Clientes, deve o código deve ser alterado, conforme abaixo:Código: Selecionar todos
sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
Dessa forma, você consegue direcionar a chamada para a nova aba/informações gerada.Código: Selecionar todos
sql = "SELECT DISTINCT Cidade FROM [Clientes$]"
Como no seu caso serão: 5 FormCad, 5 FormPesq e 5 PlanDados, os caminhos tem que ser acertados conforme mencionado acima.
Teste e nos retorne. Caso tenha alguma duvida, poste aqui.
Abraços e excelente resto de semana.
Mas pelo que entendi essa alteração é feita na frmPesquisa,
E na frmcadastro como faço para que grave os dados na aba que quero?
Abraços e obrigado
Re: ModeloCadastrov3ListView alterar
so mais uma duvida.
como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.
já testei com aplication.quit mas fecha tudo o que estiver aberto de excel e queria que fechasse apenas a planilha de cadastro e nao outros trabalhos de excel que possa ter abertas
como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.
já testei com aplication.quit mas fecha tudo o que estiver aberto de excel e queria que fechasse apenas a planilha de cadastro e nao outros trabalhos de excel que possa ter abertas
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: ModeloCadastrov3ListView alterar
Lbrbranca, bom dia.
Vamos aos questionamentos:
Para fechar o Userform e, consequentemente a planilha, use o código abaixo:
Dessa forma, você conseguirá realizar as ações acima.
Teste os códigos e nos retorne.
Abraços e excelente final de semana.
Vamos aos questionamentos:
Se procurarmos no frmCadastro, existe também uma linha de comando, talvez um pouco modificada, que realiza a mesma função, utilizando um Select (comando SQL) para acessar a aba Fornecedor (na função de tabelas do SQL, identificada por possuir os [ $]). Faça uma busca no código do frmCadastro que você irá encontrá-los.Mas pelo que entendi essa alteração é feita na frmPesquisa,
E na frmcadastro como faço para que grave os dados na aba que quero?
Sobre esse segunda dúvida, use o código abaixo para abrir apenas o Userform e ocultar o Excel.como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.
Código: Selecionar todos
Private Sub Workbook_Open()
frmCadastro.Show
Application.Visible = False
End Sub
Código: Selecionar todos
Private Sub btnSair_Click()
Me.Hide
Application.Visible = True
Workbooks.Close
End Sub
Teste os códigos e nos retorne.
Abraços e excelente final de semana.
Re: ModeloCadastrov3ListView alterar
Boa noite ja testei mas na parte do btnSair ClickMikel Silveira Fraga escreveu:Lbrbranca, bom dia.
Vamos aos questionamentos:Se procurarmos no frmCadastro, existe também uma linha de comando, talvez um pouco modificada, que realiza a mesma função, utilizando um Select (comando SQL) para acessar a aba Fornecedor (na função de tabelas do SQL, identificada por possuir os [ $]). Faça uma busca no código do frmCadastro que você irá encontrá-los.Mas pelo que entendi essa alteração é feita na frmPesquisa,
E na frmcadastro como faço para que grave os dados na aba que quero?
Sobre esse segunda dúvida, use o código abaixo para abrir apenas o Userform e ocultar o Excel.como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.Para fechar o Userform e, consequentemente a planilha, use o código abaixo:Código: Selecionar todos
Private Sub Workbook_Open() frmCadastro.Show Application.Visible = False End Sub
Dessa forma, você conseguirá realizar as ações acima.Código: Selecionar todos
Private Sub btnSair_Click() Me.Hide Application.Visible = True Workbooks.Close End Sub
Teste os códigos e nos retorne.
Abraços e excelente final de semana.
ao colocar Me.Hide
Application.Visible = True
Workbooks.Close
fecha todos os arquivos excel que tenho abertos mesmo os que nao tem a ver com o formulario deixa apenas o excel aberto mas fecha todas as planilhas que estiverem abertas
desde ja o meu muito obrigado
bom fim de semana
Re: ModeloCadastrov3ListView alterar
queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: ModeloCadastrov3ListView alterar
Lbrbranca, bom dia.
Neste caso, substitua o Workbooks.Close por ThisWorkbook.Close.
Dessa forma, apenas a planilha que estiver executando a macro será fechada.
Com esta configuração acima, a data ficaria da seguinte forma: 14/06/2016.
Caso queria que o mês fique por extenso/abreviado, utilize 3 M´s e, por extenso/completo, 4 M´s.
Não consegui identificar o que seria o "md" da formatação que você informou.
Quaisquer dúvidas, a disposição.
Bem, como não havia detalhes sobre o fechamento da planilha, acabei lhe passando uma solução que fechasse tudo.Workbooks.Close
fecha todos os arquivos excel que tenho abertos mesmo os que nao tem a ver com o formulario deixa apenas o excel aberto mas fecha todas as planilhas que estiverem abertas
Neste caso, substitua o Workbooks.Close por ThisWorkbook.Close.
Dessa forma, apenas a planilha que estiver executando a macro será fechada.
Bem, não entendi bem que tipo de formatação é essa, mas se for o caso de uma data comum, poderia fazer da seguinte forma:queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111
Código: Selecionar todos
TextBox1.Value = VBA.Format(DataRecebida, "dd/mm/yyyy")
Caso queria que o mês fique por extenso/abreviado, utilize 3 M´s e, por extenso/completo, 4 M´s.
Não consegui identificar o que seria o "md" da formatação que você informou.
Quaisquer dúvidas, a disposição.
Re: ModeloCadastrov3ListView alterar
Boa noite não é uma data. É um numero de indentificação de material que queria que ficasse assim 5465-MD-123-4567 ou 5465-12-123-4567 isto é apenas exemplos ou seja são 4 algarimos - 2 algarismos ou letras - 3 algarismos - 4 algarismos.Mikel Silveira Fraga escreveu:Lbrbranca, bom dia.Bem, como não havia detalhes sobre o fechamento da planilha, acabei lhe passando uma solução que fechasse tudo.Workbooks.Close
fecha todos os arquivos excel que tenho abertos mesmo os que nao tem a ver com o formulario deixa apenas o excel aberto mas fecha todas as planilhas que estiverem abertas
Neste caso, substitua o Workbooks.Close por ThisWorkbook.Close.
Dessa forma, apenas a planilha que estiver executando a macro será fechada.
Bem, não entendi bem que tipo de formatação é essa, mas se for o caso de uma data comum, poderia fazer da seguinte forma:queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111Com esta configuração acima, a data ficaria da seguinte forma: 14/06/2016.Código: Selecionar todos
TextBox1.Value = VBA.Format(DataRecebida, "dd/mm/yyyy")
Caso queria que o mês fique por extenso/abreviado, utilize 3 M´s e, por extenso/completo, 4 M´s.
Não consegui identificar o que seria o "md" da formatação que você informou.
Quaisquer dúvidas, a disposição.
desejo de uma boa semana