Jump to content
Fórum Script Brasil
  • 0

ERRO EM TEMPO DE EXECUÇÃO '1004' ERRO DE DEFINIÇÃO DE APLICATIVO OU DE DEFINIÇÃO DE OBJETO


Question

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????????

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149422
    • Total Posts
      645925
×
×
  • Create New...