Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ModeloCadastrov3ListView alterar [RESOLVIDO]

Fórum para agrupar todas as propostas de modelos de planilhas de Excel que essa comunidade consegue imaginar. Teve uma idéia? Produziu algo bem bacana? Esse é o lugar!

Moderador: Rafael Monteiro

lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

ModeloCadastrov3ListView alterar [RESOLVIDO]

Mensagem por lfrbranca »

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.
Editado pela última vez por lfrbranca em Seg Jul 04, 2016 3:47 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: ModeloCadastrov3ListView alterar

Mensagem por Mikel Silveira Fraga »

LfrBranca, boa tarde e seja bem vindo ao forum.

Veja uma parte do código abaixo:

Código: Selecionar todos

sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
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 [Clientes$]"
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.


lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

Re: ModeloCadastrov3ListView alterar

Mensagem por lfrbranca »

Mikel Silveira Fraga escreveu:LfrBranca, boa tarde e seja bem vindo ao forum.

Veja uma parte do código abaixo:

Código: Selecionar todos

sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
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 [Clientes$]"
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.
Desde já obrigado pela atenção.
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


lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

Re: ModeloCadastrov3ListView alterar

Mensagem por lfrbranca »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: ModeloCadastrov3ListView alterar

Mensagem por Mikel Silveira Fraga »

Lbrbranca, bom dia.

Vamos aos questionamentos:
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?
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.


como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.
Sobre esse segunda dúvida, use o código abaixo para abrir apenas o Userform e ocultar o Excel.

Código: Selecionar todos

Private Sub Workbook_Open()
    frmCadastro.Show
    Application.Visible = False
End Sub
Para fechar o Userform e, consequentemente a planilha, use o código abaixo:

Código: Selecionar todos

Private Sub btnSair_Click()
    Me.Hide
    Application.Visible = True
    Workbooks.Close
End Sub
Dessa forma, você conseguirá realizar as ações acima.

Teste os códigos e nos retorne.

Abraços e excelente final de semana.


lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

Re: ModeloCadastrov3ListView alterar

Mensagem por lfrbranca »

Mikel Silveira Fraga escreveu:Lbrbranca, bom dia.

Vamos aos questionamentos:
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?
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.


como faço para que abra so a from com a planilha minimizada
e ao sair da from que feche a planilha.
Sobre esse segunda dúvida, use o código abaixo para abrir apenas o Userform e ocultar o Excel.

Código: Selecionar todos

Private Sub Workbook_Open()
    frmCadastro.Show
    Application.Visible = False
End Sub
Para fechar o Userform e, consequentemente a planilha, use o código abaixo:

Código: Selecionar todos

Private Sub btnSair_Click()
    Me.Hide
    Application.Visible = True
    Workbooks.Close
End Sub
Dessa forma, você conseguirá realizar as ações acima.

Teste os códigos e nos retorne.

Abraços e excelente final de semana.
Boa noite ja testei mas na parte do btnSair Click
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


lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

Re: ModeloCadastrov3ListView alterar

Mensagem por lfrbranca »

queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: ModeloCadastrov3ListView alterar

Mensagem por Mikel Silveira Fraga »

Lbrbranca, bom dia.
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
Bem, como não havia detalhes sobre o fechamento da planilha, acabei lhe passando uma solução que fechasse tudo.

Neste caso, substitua o Workbooks.Close por ThisWorkbook.Close.

Dessa forma, apenas a planilha que estiver executando a macro será fechada.
queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111
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:

Código: Selecionar todos

TextBox1.Value = VBA.Format(DataRecebida, "dd/mm/yyyy")
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.


lfrbranca
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 09, 2016 10:33 am

Re: ModeloCadastrov3ListView alterar

Mensagem por lfrbranca »

Mikel Silveira Fraga escreveu:Lbrbranca, bom dia.
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
Bem, como não havia detalhes sobre o fechamento da planilha, acabei lhe passando uma solução que fechasse tudo.

Neste caso, substitua o Workbooks.Close por ThisWorkbook.Close.

Dessa forma, apenas a planilha que estiver executando a macro será fechada.
queria tambem que numa das textbox ficasse formatado desta forma 11-md-111-1111 ou 11-11-111-1111
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:

Código: Selecionar todos

TextBox1.Value = VBA.Format(DataRecebida, "dd/mm/yyyy")
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.
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.

desejo de uma boa semana


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder