Notifications
Clear all

Macro não roda! O que pode ser?

7 Posts
2 Usuários
0 Reactions
1,816 Visualizações
(@marianapd)
Posts: 48
Trusted Member
Topic starter
 

Olá!

Estive no fórum um tempo atrás, e alguém de vocês me ajudou muito na criação de uma macro. A Macro que foi criada estava funcionando, porém quando fui atualizar os dados na última vez (a única coisa que alterei foi o nome do Mês para "January" e o número da coluna onde deveria entrar a informação), a macro não rodou, não deu erro, simplesmente não acontece nada. Eu testei a macro em outras planilhas e ela funciona na boa, somente na planilha em que preciso usar ela "não acontece" e não me traz uma mensagem de erro para eu tentar alguma solução. Não sei se é relevante, mas a planilha abre como "Compatibility mode"; nunca precisei alterar as configurações de segurança, até porque elas são bloqueadas onde trabalho, mas as macros sempre rodaram. Também sempre habilito o conteúdo no botão amarelo quando abro as planilhas. Mesmo assim nada! A planilha tem macros criadas por outro usuário.
Alguém sabe o que pode ser?

 
Postado : 17/02/2014 1:10 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

marianapd, quando se trata de codigos de programação um simples caracter alterado pode gerar erros de incompatibilidades, imagina quando você diz: "a única coisa que alterei foi o nome do Mês para "January" e o número da coluna onde deveria entrar a informação", então se na rotina estavamos nos referenciando ao mes "Janeiro" e a coluna "B", só o fato de ter alterado isto já prejudica todo o trabalho.
Resumindo, para que possamos ajudar o ideal seria anexar o exemplo (COMPACTADO), informando oque alterou ou o que ainda pretende alterar, sem isto fica dificil dar um parecer.
De momento o que posso dizer é, desfaça as alterações que fez e veja se volta a funcionar, se sim, então poste aqui o que pretende.

[]s

 
Postado : 17/02/2014 4:51 pm
(@marianapd)
Posts: 48
Trusted Member
Topic starter
 

Oi MAURO, entendi. Segue a planilha compactada. A Senha dela é BONDADE (com letras maiúsculas).

Acontece o seguinte:
- Eu recebo uma planilha de fonte externa com mais de 100 lançamentos, onde consta a matrícula e a quantidade de horas de férias que o funcionário tirou em um determinado mês (sim, usamos horas mesmo), os quais eu copio e colo para a planilha "Férias" do arquivo anexo . . Eu gostaria de acionar a macro 'mariana' (está no módulo 2) para que ela localizasse a matrícula e o saldo na planilha "Férias" e colasse na planilha "Controle" nos campos corretos. No mês passado funcionou, mas agora quando clico no botão nada acontece, nem sequer uma mensagem de erro.

Outra observação: Gostaria que quando uma matrícula da planilha "Férias" não fosse localizada, uma formatação condicional em cor diferente indicasse isso.

Desde já agradeço pela atenção.

 
Postado : 18/02/2014 5:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mariana, antes de continuar com as outras solicitações, não encontrei nenhum erro, pois neste modelo que anexou faz exatamente o que pretende, é pesquisado na aba Controle a Matricula digitada em A2 na aba Ferias e colocado o valor no Mes January na coluna Ano 2014.

Onde está o erro ?

[]s

 
Postado : 18/02/2014 9:59 pm
(@marianapd)
Posts: 48
Trusted Member
Topic starter
 

Oi MAURO, muito estranho! Esta planilha que te enviei não é a original, eu enviei apenas uma pequena parte dela alterada, e de fato rodou aqui também. Estava tentando te enviar a original, mas mesmo compactado, o arquivo é bloqueado porque ultrapassa os 500kb (ela tem mais de 500 pessoas cadastradas). Agora realmente não sei o que fazer... Na minha original a macro não roda e nem dá mensagem nenhuma...Aqui no fórum não existe outro local onde eu consiga enviar esta planilha maior?

 
Postado : 19/02/2014 6:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mariana, primeiramente meu nome é MAURO, já arrumei nas postagens anteriores.

Quanto ao arquivo, procure coloca-lo em algum site de drive virtual, tipo :
SendSpace - http://www.sendspace.com , ou
4Shared - http://www.4shared.com
e depois cole o link aqui.

Aqui no serviço não temos acesso a estes tipos de serviços online, então se o fizer só poderei ver o arquivo a noite em casa, se não for possível você acessasr estes sites tambem pode estar me enviando o anexo para o emai que enviei em MP para você.
Mauro Coutinho

[]s

 
Postado : 19/02/2014 6:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mariana conforme lhe enviei por email, a razão de não funcionar no arquivo original, é porque na aba Ferias você colocou a Matricula na Linha 1, e a rotina começa a pesquisar o valor pela linha 2:

Aqui contamos a qde de linhas na aba ferias na coluna A
x = Sheets("Férias").Range("A" & Rows.Count).End(xlUp).Row

'Definimos a Variavel "j" com o Valor 2
j = 2

Ou seja a Variavel "j" é referente a linha a iniciar, e aqui temos um loop com a condição :

enquanto "j" for Maior que x+1, e o x sempre será menor porque os dados começam na linha 1.
Do While j < x + 1
want = Sheets("Férias").Range("a" & j).Value

Resumindo, só acrescente os Rotulos na aba Ferias em A1 e B1 e comece os dados em A2 - B2.

Faça os testes se é isto e qq duvida retorne.

[]s

 
Postado : 19/02/2014 7:37 am