Notifications
Clear all

Erro 91

17 Posts
3 Usuários
0 Reactions
6,208 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal, td bem?

Estou com um probleminha. Estou estudando o VBA Excel 2007 e estou seguindo passo a passo as aulas e qdo fui criar uma sub-rotina apareceu esse famoso erro 91, que diz o seguinte: "A variável do objeto ou a variável do bloco 'With' não foi definida.

Eis o código:

// do modulo

Public Linha As Integer

Public Agenda As Worksheet

Public TotalReg As Integer

-----------------------------

//do botão Limpar (o problema)

Private Sub cmdLimpar_Click()

LimpaCampos

End Sub

Sub LimpaCampos()

With Registro

lblCodigo.Caption = Agenda.Range("Registro").Value + 1
End With

txtNome.Value = ""

txtEmail.Value = ""

End Sub

-------------------------

// da planilha

Private Sub Workbook_Open()

Set Agenda = Application.Worksheet("Dados")

frmAgenda.Show

End Sub

------------------

O que pode ser? Algo a ver com o software não ser original? Ou o VBA não roda no Excel 2007?
Me ajudem!!!
Abs!!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/11/2010 12:17 am
bauhaus
(@bauhaus)
Posts: 14
Active Member
 

Segue arquivo revisado, aparentemente está funcionando OK,

descompacteo no c:;

Aparece o Erro 76 nesta planilha. Vide imagens:


 
Postado : 05/02/2012 2:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Colegas, o exemplo que o Reinaldo anexou funciona corretamente, desde que ajustem o endereço das imagens, tando dentro da rotina como os definidos nas celulas, se prestarem atenção a mensagem do Erro é bem expecifica : "Caminho não Localizado"

Então na Sub MostrarReg() na linha :
EnderecoImagem = "C:AgendaCadastroFotosND.jpg", se descompactaram ou colocaram as fotos em outra Diretorio, teem de alterar a instrução em destaque, para o novo caminho, e depois ajustar nas celulas com o mesmo endereço.

Feito isto é só executar e estará tudo certo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/02/2012 6:31 pm
Página 2 / 2