Criando um Formulário sem UserForm no Basic do Calc
Olá, Pessoal!!
Estou montando um formulário no Basic integrado ao Calc (em Ferramentas, Macros, Organizar caixas de diálogo... Caixas de diálogo).
Eu já consegui criá-lo em único módulo (Formulario) e habilitar as macros nos botões Abrir e Cancelar, acompanhando um MODELO que encontrei aqui.
Conforme a imagem abaixo:
Agora, eu gostaria de:
a) Tirar os sublinhados nas letras L, 3, O e X do formulário.
b) Mostrar lista de seleção nos Label2, Label9 e Label10, como uma validação de dados que vou acrescentando nas col L, N e P na planilha-exemplo;
c) Disponibilizar nos Label3, Label7 e Label8 uma paleta de calendário igual no modelo acima;
d) Acrescentar, antes do Abrir e após o Ok, uma macro (pronta na minha planilha-principal) que ordena as informações na tabela e para na próxima linha a ser preenchida pelo formulário;
e) Transferir os dados para a planilha, mantendo o formulário aberto e conservando a formatação na tabela.
Segue uma PLANILHA-EXEMPLO
.
Grato pela atenção!
Orlando Souza
Ola @Orlando, resposta a) Para retirar os sublinhados marque na opção Sem rótulo = Sim
c) Para mostrar o calendário, é só marcar a opção Suspensa = Sim.
b) Se possível creio que só com Macro, não tenho nenhum exemplo neste sentido. ( caixa de listagem em Dialogo baseada em área de uma planilha )
d) e e) são possíveis.
Bom dia.
Segue sugestão de um resposta do @Grafeno de como proceder com questão b (editei para incluir as outras Combobox)
Continua...
Segue.
Segue.
Ola @Orlando, com colaborações chegaremos ao desejado.
Segue arquivo com as melhorias a) b) e c)
Sobre as dicas de @RudPiva, acrescentei na planilha três células no topo das listas indicando a quantidade de elementos para que a macro acrescida, seja otimizada conforme a qtde de elementos para serem usadas nos parâmetros das Caixa de listagem.
sobre d) e e) em estudo......
@Orlando, a ordenação da tabela é por qual Coluna ?
Ao clicar no botão [ OK ] para salvar os dados na tabela, é para limpar o formulário ?
Ou quer 2 botões:
Bom dia, @Schiavinatto!
As respostas dos itens a, b e c deram certo. Só não encontrei a opção "Sem rótulo" para os CommandButton.
Quando pressiono o bt_Cancelar, apresenta um erro na linha
oDialog1.EndExecute()
.Agora estou usando o LO 6.4.1.2 (x86) Portable, mas carrego o arquivo no pendrive e abro em outras versões.
Pode deixar um espaço no início da macro bt_Abrir e outro no final da bt_Ok(que transfere e limpa o form), para eu acrescentar uma que ordena/classifica e termina na primeira linha vazia da minha tabela-principal.
abç!
@Orlando, sobre o "Sem rótulo"
Tem uma sugestão nova na resposta abaixo.....
Caso queira contato direto gilberto@schiavinatto.com
O meu comentário anterior se referi aos botões "Ok" e "X", conforme apresentados na imagem que anexei na pergunta desse tópico.
Estou analisando todas as macros sugeridas até aqui, para adaptação na Planilha1 do arquivo-exemplo que enviei.
Obrigado!
:)