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

[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: 61
Registrado em: Dom Set 02, 2012 3:00 pm

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

Mensagem por Rui Maciel »

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 350 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: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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 331 vezes


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

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

Mensagem por Rui Maciel »

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: 1537
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 »

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


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: 61
Registrado em: Dom Set 02, 2012 3:00 pm

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

Mensagem por Rui Maciel »

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: 1537
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 »

Experimente

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


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

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

Mensagem por Rui Maciel »

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