Urna Eletrônica

Question

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?

Answer 1

altere para

textolocal = Worksheets("plan1").Cells(i, 1).value

---

Natan

Answer 2

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