jumbizinho

ERRO É ESSE: ActiveCell.Offset(1, 0).Select ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1 id = ActiveCell.Value ActiveCell.Offset(0, 1).Value = data ActiveCell.Offset(0, 2).Value = horario ActiveCell.Offset(0, 3).Value = disc ActiveCell.Offset(0, 4).Value = abrev ActiveCell.Offset(0, 5).Value = cat ActiveCell.Offset(0, 6).Value = subt ActiveCell.Offset(0, 7).Value = ativ ActiveCell.Offset(0, 8).Value = pagin ActiveCell.Offset(0, 9).Value = pagfim ActiveCell.Offset(0, 10).Value = tempo ActiveCell.Offset(0, 12).Value = acertos ActiveCell.Offset(0, 13).Value = erros ActiveCell.Offset(0, 14).Value = coment ActiveCell.Offset(0, 15).FormulaLocal = "=SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(0;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(5;59;59));" & """MADRUGADA""" & ";SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(6;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(11;59;59));" & """MANHÃ""" & ";SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(12;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(16;59;59));" & """TARDE""" & ";" & """NOITE""" & ")))" ActiveCell.Offset(0, 16).FormulaLocal = "=ano([DATA])" ActiveCell.Offset(0, 17).FormulaLocal = "=TEXTO([DATA];" & """mmm""" & ")" ActiveCell.Offset(0, 18).Value = finalizado ActiveCell.Offset(0, 19).Value = videoin ActiveCell.Offset(0, 20).Value = videofim ActiveCell.Offset(0, 21).FormulaLocal = "=dia([DATA])" ActiveCell.Offset(0, 22).FormulaLocal = "=INT(([DATA]-inicio)/7)+1" O ERRO, QUANDO DEPURO, ESTÁ COM SETA NO QUE FOI GRIFADO. ALGUÉM ME AJUDE????????