Usuário com melhor resposta
Urna Eletrônica

Pergunta
-
Estou fazendo um modelo de urna eletrônica, e para localizar o candidato, inseri este módulo
Sub abrircandidato() Worksheets("plan1").Select totalregistro = Worksheets("plan1").UsedRange.Rows.Count For i = 0 To totalregistro textolocal = Cells(i, 1) If UserForm1.digito = textolocal Then 'preencher as células nomeCand = Sheets("plan1").Cells(i, 2) nomeVice = Sheets("plan1").Cells(i, 3) nomePart = Sheets("plan1").Cells(i, 3) End If Next End Sub
Porém, quando chega na linha
textolocal = Cells(i, 1)
aparece um erro escrito:
Erro em tempo de execução "1004":
Erro de definição de aplicativo ou de definição de objeto
Como resolvo este erro?
Respostas
-
altere para
textolocal = Worksheets("plan1").Cells(i, 1).value
Natan
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 15 de novembro de 2014 10:59
-
Se mesmo assim não der, use:
textolocal = ThisWorkbook.Worksheets("plan1").Cells(i, 1).value
ou:
textolocal = Workbooks("Pasta1.xlsm").Worksheets("plan1").Cells(i, 1).value
Em que Pasta1.xlsm representa o nome da pasta de trabalho que você quer obter informações.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 15 de novembro de 2014 10:59
Todas as Respostas
-
altere para
textolocal = Worksheets("plan1").Cells(i, 1).value
Natan
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 15 de novembro de 2014 10:59
-
Se mesmo assim não der, use:
textolocal = ThisWorkbook.Worksheets("plan1").Cells(i, 1).value
ou:
textolocal = Workbooks("Pasta1.xlsm").Worksheets("plan1").Cells(i, 1).value
Em que Pasta1.xlsm representa o nome da pasta de trabalho que você quer obter informações.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 15 de novembro de 2014 10:59