Alemão,

Boa tarde!

Tem que rezar mais... (rss... rss...)

É vou continuar rezando, porque fui abrir o arquivo que vc me mandou e esta dando erro.
Erro em tempo de execução13 : Tipos incompativeis.

Alemão

Percebi que você anexou arquivo sem compactar, contrariando as regras do fórum.

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Desculpa, estava na correria nem percebi.

Aqui pra mim não tem erro nenhum...

Boa tarde Wagner,

Teste aqui o arquivo que você postou paro o Pelichiero, e deu erro também. Nesse arquivo dele, se vou no formulário diretamente e dou um F5 aparece um erro, bem estranho. Minha versão do Office é a 2016.

att,

Bruno,

Boa tarde!

O formulário dele tem LisView. Você sabe que esse objeto não é nativo do Excel e que precisa ser adicionada a referência correspondente. Essa referência varia muito de versão para versão do Excel. O meu aqui é 2007. Ao rodar o arquivo dele eu também tive problema inicialmente... todavia, o problema era na referência do ListView. Desse modo, desmarquei a opção de referência inicial que veio e procurei a referência correspondente no meu Excel.

Não sei qual é a versão dele. Muito provavelmente deve ser uma versão diferente da minha e, nesse caso, ele só precisa encontrar a referência adequada e instalar.

Para não dá muita dor de cabeça, ele pode, por exemplo, esquecer o formulário que eu enviei e apenas copiar todas as procedures do formulário que eu enviei para o formulário dele. Isso deve funcionar.

Wagner,

O estranho é que antes de passar o formulario para esta planilha eu testei ela em outra e funcionou , mas nesta planilha que eu te enviei nao quer funcionar de jeito nenhum .

Aparece erro de execução 13 : tipos incompativeis

Sub Macrobusca()
BUSCA.Show ----------------------essa linha fica em amarelo
End Sub

Alemão,

Você deve colocar um break point em algum lugar e ir avançado na depuração do código com F8 pois algumas vezes a linha amarela destacada não é exatamente onde está ocorrendo o problema. Somente executando passo a passo com F8 é que você poderá identificar aonde está o erro.

Fiz o que vc me falou , e todo esse codigo fica em amarelo

Private Sub UserForm_Initialize()
   
    'Adiciona as colunas
    With lslista
        .CheckBoxes = True
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
        .ColumnHeaders.Add Text:="codigo", Width:=100
        .ColumnHeaders.Add Text:="produtos", Width:=200
        .ColumnHeaders.Add Text:="fornecedor", Width:=70
        .ColumnHeaders.Add Text:="saldo", Width:=40
        .ColumnHeaders.Add Text:="vendido", Width:=40
        .ColumnHeaders.Add Text:="disponivel", Width:=40
        .ColumnHeaders.Add Text:="observaçao", Width:=100
    End With
    
    'Adiciona os itens no ListView
    UltimaLinha = Plan1.Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row
    lslista.ListItems.Clear
    q = 0
    For x = 4 To UltimaLinha
        Set li = lslista.ListItems.Add(Text:=Plan1.Cells(x, "a").Value)
        li.ListSubItems.Add Text:=Plan1.Cells(x, "b").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "c").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "d").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "e").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "f").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "g").Value
        q = q + 1
    Next
    lbQtdade = "Qtdade: " & q
End Sub

Alemão,

Peguei aqui a planilha que lhe enviei e fui depurar o código novamente e descobri o porque desse erro "Tipos Incompatíveis".

Não achei antes porque quando depurei, eu passei por cima do erro. O valor da variável contadora X vai até o valor da última linha que no caso são mais de 20 mil linhas. Quando eu testei, eu adiantei o valor da variável X para não ter que ir passo a passo com F8, mais de 20 mil linhas. Isso fez com que eu acabasse pulando o local onde o erro ocorre.

Depois, achando que já estava tudo OK, eu lhe enviei a planilha sem testar antes o clique direto no botão 6. Por isso não notei o erro.,

Bom... mas de fato o erro ocorre mesmo. E ele está ocorrendo a partir da linha 1148 quando o código vai pegar o valor correspondente a coluna F para inserir no listview. Se você observar seu arquivo, Plan1, célula F1148, vai ver que o valor existente lá é um erro de fórmula do Excel (#VALOR!). Desse modo, o código está encontrando esse erro e não consegue passar daí. Basta você arrumar a fórmula lá na planilha que não haverá mais problemas.

Wagner ,

Muito obrigado mesmo , não sabe como me ajudou , fiquei 2 dias tentando descubrir o problema e nada .
Agora funcionou perfeitamente.

Abraço