none
Urna Eletrônica RRS feed

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

    sexta-feira, 10 de outubro de 2014 20:57

Respostas

Todas as Respostas