Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
erro ao abrir excel...
 
Notifications
Clear all

erro ao abrir excel 2007

 
2024 - VBA & Macros
10 Posts
3 Usuários
0 Reactions
1,733 Visualizações
RSS
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Bom Dia!

Srs, solicito ajuda, pois, não esou conseguindo executar o programa. Dá erro conforme codigo abaixo. Diz que "Era esperado uma matriz" e grifa a palavra Mid.
Já tentei e não consigo resilver este problema.

Private Sub UserForm_Initialize()
'Carregar ListBox1
Dim sht As Worksheet
Dim lin As Integer
Dim i As Integer


 lin = 3

            'Faz repetições até que 'i' seja igual ao número de planilhas
            For i = 1 To Sheets.Count
                'Se as 3 1ªs letras do nome da planilha forem = 'GRU' (Então)
                If Mid (Sheets(i).Name, 1, 3) = "GRU" Then
                    'Lista na planilha 'Controle' o nome das planilhas
                    ListBox1.AddItem Sheets(i).Name
                    lin = lin + 1
                End If
            Next i
    
            
End Sub
 
Postado : 20/12/2013 6:22 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

'Se as 3 1ªs letras do nome da planilha forem = 'GRU' (Então)
If Mid (Sheets(i).Name, 1, 3) = "GRU" Then

nesse caso, em vez de mid, não seria Left ?

If Left (Sheets(i).Name, 3) = "GRU" Then

 
Postado : 20/12/2013 6:24 am
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

OK. gtsalikis Obrigado!

Por favor, poderia me ajudar em outro erro de compilação? veja:

Private Sub txtHoras_Change()
txtHoras.Value = Format(txtHoras.Text, "HH:MM")
End Sub

a palavra Format ficou grifada. ????

eu fiz em casa no excel 2010 e rodou beleza agora estou tentando implanta-lo no meu trabalho e está osso.

Valew!

 
Postado : 20/12/2013 6:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu testei e não tive problemas com erro!!

Att

 
Postado : 20/12/2013 6:35 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

OK. gtsalikis Obrigado!

Por favor, poderia me ajudar em outro erro de compilação? veja:

Private Sub txtHoras_Change()
txtHoras.Value = Format(txtHoras.Text, "HH:MM")
End Sub

a palavra Format ficou grifada. ????

eu fiz em casa no excel 2010 e rodou beleza agora estou tentando implanta-lo no meu trabalho e está osso.

Valew!

não entendi

 
Postado : 20/12/2013 6:41 am
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

srs,

deu o seguinte erro:

"Erro de Compilação"

"É impossível localizar o projeto ou a biblioteca"

Obrigado!

 
Postado : 20/12/2013 7:04 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Pode ser alguma incompatibilidade, veja suas referencias!!
Leia:
http://www.pauloacosta.com/blog/2013/04 ... iblioteca/

Att

 
Postado : 20/12/2013 7:08 am
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

ok. resolvido.

tinha 2 caixas de referências marcadas como ausente, turei a seleção e o programa rodou normalmente.

Ale muito obrigado novamente!!!

 
Postado : 20/12/2013 8:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Precisando sabe onde nos encontrar ;)

Att

 
Postado : 20/12/2013 9:15 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 22/12/2013 7:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico