kskk132

Boa noite galera , sou iniciante no VBA, como sempre gostei desse tipo de coisa e não tenho dinheiro para um curso, estou estudando em casa mesmo, então criei um sistema de cadastro, baseado no videos do youtube, só que quiz dar uma implementada, só que estou com erro na minha macro , se puderem me ajudar , eu agradeço! Erro: em tempo de execução '1004' o método activate da classe range falhou Private Sub botao_pesquisar_Click() If caixa_nome.Text = "" Then MsgBox "Digite o NOME de um cliente" caixa_nome.SetFocus Exit Sub End If With Worksheets("Banco de Dados").Range("A:A") Set c = .Find(caixa_nome.Value, LookIn:=xlValues, LookAt:=xlPart) If Not c Is Nothing Then c.Activate caixa_nome.Value = c.Value caixa_endereço.Value = c.Offset(0, 1).Value caixa_numero.Value = c.Offset(0, 2).Value caixa_bairro.Value = c.Offset(0, 3).Value caixa_cep.Value = c.Offset(0, 4).Value caixa_cidade.Value = c.Offset(0, 5).Value caixa_uf.Value = c.Offset(0, 6).Value caixa_rg.Value = c.Offset(0, 7).Value caixa_cpf.Value = c.Offset(0, 8).Value caixa_telefone.Value = c.Offset(0, 9).Value caixa_email.Value = c.Offset(o, 10).Value caixa_processos.Value = c.Offset(0, 11).Value caixa_honorario.Value = c.Offset(0, 12).Value Else MsgBox "Cliente não localizado!" End If End With End Sub