Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
"erro de compilação"
"erro de compilação"
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!!!!!
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!!!!!
Re: "erro de compilação"
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
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
- Mauro Coutinho
- 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"
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
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
Re: "erro de compilação"
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!!
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!!
Re: "erro de compilação"
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
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
Re: "erro de compilação"
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!!!
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!!!
Re: "erro de compilação"
Fabio,
O problema foi no Office ou no Windows? Qual versão? Tem o link da solução?
Abraços e obrigado por compartilhar!
O problema foi no Office ou no Windows? Qual versão? Tem o link da solução?
Abraços e obrigado por compartilhar!
Re: "erro de compilação"
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
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