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

"erro de compilação"

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

"erro de compilação"

Mensagem por fabiodias »

Boa tarde pessoal!!

socooorro!!!

to com um problema aqui que ja me subiu a cabeça!!

tem uma planilha que fiz aqui baseado na planilha de controle de gastos de poiaman.

tava funcionando tudo tranquilo aqui na empresa.. até que do nada em todos os computadores que utilizavam começou a dar erro de compilação quando clica para abrir o form de lançamento de dados e no botao consulta quando vai consultar alguma coisa tambem ta dando erro!!!

que bendito de "ERRO DE COMPILAÇÃO" é esse em???

é algum controle que não tem no office como o de calendario?? se for... como incluir todos os controles necessários???

desde ja agradeço!!!!!


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: "erro de compilação"

Mensagem por webmaster »

Fabio,

Dar o erro de uma hora para outra é muito estranho. Você mudou alguma coisa? As máquinas mudaram alguma coisa? Qual o erro exatamente?

Abraços


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: "erro de compilação"

Mensagem por Mauro Coutinho »

Fábio, esse erro pode ocorrer por diversos motivos, na descrição do mesmo no final não aparece nenhum numero ou a que se refere ? podendo ser de algum controle, mas se você mesmo diz que estava funcionando perfeitamente em todos os PCs teria de se analizar o que foi feito antes de executarem a planilha, houve atualização, reinstalação do pacote Office em todas as máquinas ?
Esse erro pode acontecer tambem se tiver na rotina área a imprimir(visualizar), veja esse post da microsoft.
http://support.microsoft.com/kb/177108/pt-br

Você tem como testar a planilha em seu PC pessoal para ver se funciona, uma outra sujestão seria seguir a rotina passo a passo usando a tecla F8 para saber em qual linha expecificamente ocorre o erro.

abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: "erro de compilação"

Mensagem por fabiodias »

o erro da na parte em negrito!!
a referencia de controle de data nao ta mais como opcao no VBA. porque.. e como colocar de volta...



Private Sub UserForm_Initialize()


Set DTP4 = New DateTimePicker
With DTP4
.Add ComboBox1
.Add ComboBox2
.Add ComboBox3

.Create Me, "dd/mmm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date


End With


End Sub




desde ja agradeco ao Tomaz e ao Mauro!!


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: "erro de compilação"

Mensagem por webmaster »

Fabio,

O controle DateTimePicker que a planilha usa não precisa de referências. Não lembro exatamente como ele funciona, mas troque a linha para atribuir ao invés de Date, DateTime.Now.

Abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: "erro de compilação"

Mensagem por fabiodias »

Tomaz, obrigado pela atenção!!

consegui resolver de outra forma, vou colocar aqui pra quem tiver algum problema parecido.

resolvi alterar no registro, e isso serve para qualquer problema que estiver tendo com o office;

no comando executar, digita "regedit", depois vai no caminho "HKEY_CURRENT_USER\Software\Microsoft\Office", aí no office clica com o direito e renomear, digita "office.old".

pronto!! resolvido!!

queria tentar resolver sem precisar resetar.. mas.. foi o jeito!!!


abraços e mais uma vez obrigado pela atenção!!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: "erro de compilação"

Mensagem por webmaster »

Fabio,

O problema foi no Office ou no Windows? Qual versão? Tem o link da solução?

Abraços e obrigado por compartilhar! :)


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: "erro de compilação"

Mensagem por fabiodias »

Tomaz!

no meu tava dand outros problemas como clicar com o botao direito do mouse na celula e nao abrir o menu.. e quand clicava 2x na celula não editava..
coincidência ou não, quando fiz esse caminho informado no link, resolveu o problema da macro tambem. Acredito que por causa dos suplementos contidos no meu office como foi dito no forum.

taí o link;
http://social.microsoft.com/Forums/pt-B ... 2c1201c38d


o que eu não entendi foi porque só funcionou para o meu CPU aqui da empresa, já nos outros que tambem tavam com o problema da macro, nao funcionou essa solucao.

o problema do "DateTimePicker" resolvi da forma q voce falou.. só que, uma coisa puxa outra.. desse problema resolveu dar "pau" em tudo nos outros PCs, só no meu aqui q ta tudo ok.

inclusive nessa referencia em negrito deu erro nos outros;


Private Sub PreencheLista(ByVal TextoDigitado As String)
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Dim indiceLista As Integer
Dim coluna As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(NomePlanilha)
Dim Lista()

ReDim Lista(ws.UsedRange.Rows.Count, ws.UsedRange.Columns.Count)

i = LinhaCabecalho + 1
indiceLista = 1
coluna = Me.ComboBoxCampos.ListIndex + 1
Call PreencheCabecalho(Lista)

ListBoxLista.Clear
With ws
While .Cells(i, coluna).Value <> Empty
TextoCelula = .Cells(i, coluna).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then

For x = 0 To ws.UsedRange.Columns.Count - 1
Lista(indiceLista, x) = .Cells(i, x + 1)
Next

indiceLista = indiceLista + 1
End If
i = i + 1
Wend
End With

Me.ListBoxLista.List = Lista
End Sub


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