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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/02/2014 7:37 am