Erro de definição de aplicativo ou definição de objeto

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Erro de definição de aplicativo ou definição de objeto

Mensagempor gvidal12 » Qui Jan 23, 2020 3:21 pm

Olá, esta dando erro no meu código, na parte do vlookup,em que estou querendo gravar a função em uma variável, mas não estou conseguindo identificar o motivo, segue parte do código:

Código: Selecionar todos
Public wrkb As Workbook
Public wrks As Worksheet
Public AppOutk As Outlook.Application                       
Public MailOutk As Outlook.MailItem

Sub EviarEmail()

    Dim Cell As Range
    Dim para As Variant
   
   
    Set wrkb = ThisWorkbook
    Set wrks = wrkb.Sheets("Prestadores")
   
    Sheets("BASE").Select
    Range("AD8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="nome1", RefersTo:=Selection
   
 
    For Each Cell In Range("nome1")
   
        If Cell = "F" Then
        Cell.Select
       
  para = WorksheetFunction.VLookup(ActiveCell.Offset(0, -22), Range("tabela"), 3, False)
           
           Call CriaEmail
       
        End If
    Next
gvidal12
Membro
Membro
 
Mensagens: 13
Registrado em: Qui Jan 23, 2020 3:14 pm
Has thanked: 4 times
Have thanks: 0 time

{ SO_SELECT }

Re: Erro de definição de aplicativo ou definição de objeto

Mensagempor wagner » Qui Jan 23, 2020 4:26 pm

gvidal12,

Boa tarde!

Muito provavelmente, está faltando você referenciar a biblioteca que carrega os objeto do Outlook no menu de referências do VBA.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 104 times
Have thanks: 2373 times

Re: Erro de definição de aplicativo ou definição de objeto

Mensagempor klarc28 » Sex Jan 24, 2020 6:41 am

Compartilhe o arquivo pelo GoogleDrive.
É estudando que se consegue. Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 1410
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 35 times
Have thanks: 588 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes