srobles

Este deu erro em tempo de execuçao 13':
Tipos incompatíveis
Na linha : .Range("T76") = CCur(dadosCadastrais(8))
do codigo abaixo

Sub pesquisaAlunoListBox(ByVal nomeAluno As String)

With planConsulta
        .Range("T76") = CCur(dadosCadastrais(8))
    End With
End Sub

willian,

Repare nos módulos adicionados, que existem duas rotinas : Sub pesquisaAluno e Sub pesquisaAlunoListBox.

Ambas, ao encontrar o registro na guia Dados, retornam o numero da linha cujo registro foi encontrado.

Com base nessa variável (linhaRegistro), basta criar outra Sub, por exemplo :

Sub editaAluno()
    Call definicoesArquivo
    
    If MsgBox("Deseja alterar o registro selecionado?", vbQuestion + vbYesNo, "Editar cadastro") = vbYes Then
    
        Erase dadosCadastrais
        
        With planConsulta
            dadosCadastrais(1) = .Range("F17")
            dadosCadastrais(2) = .Range("S17")
            dadosCadastrais(3) = .Range("S29")
            dadosCadastrais(4) = .Range("S40")
            dadosCadastrais(5) = .Range("T52")
            dadosCadastrais(6) = .Range("T64")
            dadosCadastrais(7) = .Range("AY64")
            dadosCadastrais(8) = .Range("T76")
        End With
        
        With baseDados
            .Cells(linhaRegistro, 1) = UCase(dadosCadastrais(1))
            .Cells(linhaRegistro, 2) = UCase(dadosCadastrais(2))
            .Cells(linhaRegistro, 3) = UCase(dadosCadastrais(3))
            .Cells(linhaRegistro, 4) = UCase(dadosCadastrais(4))
            .Cells(linhaRegistro, 5) = UCase(dadosCadastrais(5))
            .Cells(linhaRegistro, 6) = UCase(dadosCadastrais(6))
            .Cells(linhaRegistro, 7) = UCase(dadosCadastrais(7))
            .Cells(linhaRegistro, 8) = CCur(dadosCadastrais(8))
        End With
        
        MsgBox "Cadastro alterado com sucesso!", vbInformation, "Editar cadastro"
        
        Call limparCamposConsulta
        
    End If
End Sub

E assim, atribuir a macro ao botão.

willian,

Este erro está ocorrendo, acredito eu, quando a rotina citada retorna os dados, ela está tentando converter possivelmente um valor nulo (em branco) em formato moeda (com R$).

Em meus teste aqui, não enfrentei este problema. Vou analisar, e havendo novidades, retorno com a solução.

willian,

Segue modelo atualizado.

Favor, teste e retorne.

PERFEITO.
Muito Obrigadoo! Deus te abençoe