Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido]Runtime error 13-Não abre formulário
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
[Resolvido]Runtime error 13-Não abre formulário
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
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 368 vezes
Editado pela última vez por Rui Maciel em Qui Ago 22, 2019 7:48 pm, em um total de 3 vezes.
Re: Runtime error 13-Não abre formulário
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 .
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?
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 .
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 352 vezes
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
Re: Runtime error 13-Não abre formulário
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
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
- Reinaldo
- 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
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:
Por
Altere na rotina ComboBox1_Change()
a linha
para
Não entendi a demanda para o Formulario ufm_dp
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
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
a linha
Código: Selecionar todos
For R = 1 To 8
Código: Selecionar todos
For R = 1 To 6
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm
Re: Runtime error 13-Não abre formulário
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
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
- Reinaldo
- 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
Experimente
Obs.:Aparentemente o .Zip está sendo rejeitado, vai .7z
Obs.:Aparentemente o .Zip está sendo rejeitado, vai .7z
- Anexos
-
- Caixa_Original_1.7z
- (869.43 KiB) Baixado 359 vezes
-
- Colaborador
- Mensagens: 61
- Registrado em: Dom Set 02, 2012 3:00 pm