"O método '_Default' do objeto 'Range' falhou."
Enviado: 21 Mai 2017 às 04:26
Boa noite pessoal,
Estava fazendo um programa aqui quando recebi os seguintes erros, um em seguida do outro:


Ele ocorre quando eu tento executar o código a seguir a partir da 2º tentaiva:
Alguém pode me ajudar por favor?
Estava fazendo um programa aqui quando recebi os seguintes erros, um em seguida do outro:


Ele ocorre quando eu tento executar o código a seguir a partir da 2º tentaiva:
Código: Selecionar todos
O mais estranho é que funciona na primeira execução mas quando eu fecho o Forms, executo o programa novamente e clico no botão que chama o código acima os erros surgem. ' Código do evento.
Cells(totalRow + 1, 1) = totalRow
' Nome do evento.
Cells(totalRow + 1, 2) = txtEventName
' Número de participantes relacionados ao evento.
Cells(totalRow + 1, 3).Select
ActiveCell.Formula = "=COUNTIF(TabelaParticipantes[Evento Associado],[@Código])"
' Descrição do evento.
Cells(totalRow + 1, 5) = txtEventDescription
' Data de criação
Cells(totalRow + 1, 6) = Now
Alguém pode me ajudar por favor?