Boa tarde!!

Simples, você deve ter mudado o nome do Userform

Sub exec()
    'cxRelatorio.Show False 'Antes
    cxRelatorio 'Atual
End Sub

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, o anexo deste tópico foi removido.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Boa tarde, tenho na minha base de dados 8704 linhas e na outra aba da mesma planilha tenho a pesquisa que puxa da base da dados porém no momento está dando erro em tempo de execução. Mas quando eu tiro 3 mil linhas na planilha ainda fica com 5000 linhas ae não ocorre o erro em tempo de execução.

Segue anexado !

Atenciosamente

Boa tarde!!

Esse controle

cdcargo

existe em seu Userform?

Se retirar essa linha seu Userform vai executar.

MyUniqueList = UniqueItemList(Sheets("Base").Range("K3:K15000"), True)
    For i = 1 To UBound(MyUniqueList)
        cdcargo.AddItem MyUniqueList(i)
    Next i

Att