Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido]Runtime error 13-Não abre formulário

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

[Resolvido]Runtime error 13-Não abre formulário

Mensagem por Rui Maciel » Qua Ago 21, 2019 6:51 pm

Boa noite
No aplicativo não consigo pôr algumas coisas a funcionar da melhor maneira possível, por isso recorro à vossa amabilidade e sempre disponibilidade, é o seguinte:
O formulário ufm_dp na listbox2 queria que a coluna "Meses" apareça os meses de cada ano fixo, assim como, na coluna valor, data, pago e ano fosse inscrito os valores no sitio certo;
Já no que diz respeito ao formulário userform4 para tirar os clientes que ainda não pagaram é que está mais difícil, pois, simplesmente não abre.
Para retornar ao excel:
Utilizador: ADM
Senha: 1234
Grato desde já pela vossa disponibilidade
Abraço.
RM
Anexos
Caixa_Original_1.7z
(881.79 KiB) Baixado 13 vezes
Editado pela última vez por Rui Maciel em Qui Ago 22, 2019 7:48 pm, em um total de 3 vezes.



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.


srobles
Jedi
Jedi
Mensagens: 753
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Runtime error 13-Não abre formulário

Mensagem por srobles » Qua Ago 21, 2019 9:11 pm

Rui,

Assim como outros usuários do fórum Planilhando, tive problemas em abrir o arquivo, mas consegui "remover" o causador dos erros ao abrir a Pasta de trabalho.

Durante a abertura do arquivo, não enfrentei o erro descrito por você, porém, erros do tipo Memória Insuficiente, Falha catastrófica entre outros não faltaram :D .

Não consegui de maneira nenhuma, exibir o UserFom4 (que causava os erros), mas consegui removê-lo e salvar todo seu código em um novo módulo.

Infelizmente, não sei dizer o porquê dos erros, mas sem o UserForm4, tudo voltou á operar normalmente.

Favor, teste o modelo novamente e retorne ok?
Anexos
Caixa_Original_1.zip
(801.91 KiB) Baixado 15 vezes


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Runtime error 13-Não abre formulário

Mensagem por Rui Maciel » Qui Ago 22, 2019 3:41 am

Bom dia Robles e obrigado.
Contudo, fico com um problema, com este userform4 pretendia extrato daqueles clientes que ainda não liquidaram o mês, ou seja, selecionando o mês na combobox tiraria extrato dos devedores, consegue me dar uma ideia de como fazer?
Grato pela disponibilidade e paciência,
Abraço,
RMaciel



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1205
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Runtime error 13-Não abre formulário

Mensagem por Reinaldo » Qui Ago 22, 2019 3:48 am

Não tive problemas em abrir o modelo postado aqui e tambem o do planilhando.
Quanto ao UserFom4, não abre pois na inicialização a "tentativa" de popular o combobox1 gera erro
Substitua:

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim I As Integer
For I = "Janeiro" To "Fevereiro""Março""Abril""Maio""Junho""Julho""Agosto""Setembro""Outubro""Novembro""Dezembro"
Me.ComboBox1.AddItem (I)
Next I
End Sub
Por

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim I As String
Dim mesesAno() As String
Dim x As Integer
I = "Janeiro,Fevereiro,Março,Abril,Maio,Junho,Julho,Agosto,Setembro,Outubro,Novembro,Dezembro"
mesesAno = Split(I, ",")
For x = LBound(mesesAno) To UBound(mesesAno)
Me.ComboBox1.AddItem mesesAno(x)
Next
End Sub
Altere na rotina ComboBox1_Change()
a linha

Código: Selecionar todos

For R = 1 To 8
para

Código: Selecionar todos

For R = 1 To 6
Não entendi a demanda para o Formulario ufm_dp


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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.


Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Runtime error 13-Não abre formulário

Mensagem por Rui Maciel » Qui Ago 22, 2019 5:45 am

Bom dia Reinaldo
Muito obrigado, era isto mesmo, ficou muito bem.
Relativamente ao ufm_dp era o seguinte, pretendia que a primeira coluna fixa-se os meses de janeiro a dezembro e nas outras quatro colunas inscreve-se valor, data, pago (sim) e ano, ao gravar com o ufm_dp, será possível?
Grato,
Abraço,
RMaciel



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1205
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Runtime error 13-Não abre formulário

Mensagem por Reinaldo » Qui Ago 22, 2019 3:38 pm

Experimente

Obs.:Aparentemente o .Zip está sendo rejeitado, vai .7z
Anexos
Caixa_Original_1.7z
(869.43 KiB) Baixado 12 vezes


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Rui Maciel
Colaborador
Colaborador
Mensagens: 31
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Runtime error 13-Não abre formulário

Mensagem por Rui Maciel » Qui Ago 22, 2019 5:21 pm

Muito bom Reinaldo, obrigado.
Abraço,
RMaciel



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