Notifications
Clear all

Worksheet retorna #n/d e não resultado formula

5 Posts
2 Usuários
0 Reactions
1,167 Visualizações
(@ckymiller)
Posts: 39
Trusted Member
Topic starter
 

Olá pessoal.

Estou com um problema em uma planilha, segue ela em .rar abaixo.
https://drive.google.com/file/d/1zQr8IL ... sp=sharing

Quando peço pra atualizar os dados dela clicando em ''atualizar dados'' ABA INICIO, o resultado que é me trazido é #n/d, e eu queria que me trouxesse o resultado do procv que está na ABA PRODUTOS ("A;A")

A formula dela está assim:

Sub FiltrarCategorias()
    Application.ScreenUpdating = False
    Produtos.Unprotect "!@#$125FE521$#@!"
    Produtos.AutoFilterMode = False
    
    Controle.Columns("C:C").ClearContents
    If Controle.Range("B2").Value <> 1 Then
        Produtos.Range("A6:G" & WorksheetFunction.CountA(Produtos.Columns("A:A")) + 6).AutoFilter Field:=1, Criteria1:=WorksheetFunction.Index(Controle.Columns("A:A"), Controle.Range("B2").Value)
    End If
    Produtos.Range("B6:B" & WorksheetFunction.CountA(Produtos.Columns("A:A")) + 6).Copy Destination:=Controle.Range("C1")
    
    With Controle
        .Range("C1").Value = "Todas"
        .Columns("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
        .Range("D2").Value = 1
    End With

Mas não sei qual o comando que se utiliza pra ao invés de procurar uma palavra, trazer o resultado da formula..

Poderiam me ajudar?

 
Postado : 21/11/2019 4:14 pm
(@coutinho)
Posts: 0
New Member
 

ckymiller, primeiramente peço que suba seu modelo novamente, porque esse que postou está com erro, voce abaixa mas não abre.
Segundo, que cita a função PROCV, mas na rotina que postou não temos o uso da mesma, então fica difícil dar uma resposta precisa.

[]s

 
Postado : 21/11/2019 11:00 pm
(@ckymiller)
Posts: 39
Trusted Member
Topic starter
 

ckymiller, primeiramente peço que suba seu modelo novamente, porque esse que postou está com erro, voce abaixa mas não abre.
Segundo, que cita a função PROCV, mas na rotina que postou não temos o uso da mesma, então fica difícil dar uma resposta precisa.

[]s

Olá, Coutinho.

Acabei de subir ela para o Zyppyshare, segue: https://www57.zippyshare.com/v/pN5DoPw0/file.html
Veja se com essa tem como abrir

Desde já agradeço

 
Postado : 22/11/2019 11:01 am
(@coutinho)
Posts: 0
New Member
 

Aqui no serviço não tenho a cesso a esse drive, só sendspace, a noite em casa, assim que der vejo.

 
Postado : 22/11/2019 11:45 am
(@ckymiller)
Posts: 39
Trusted Member
Topic starter
 

Aqui no serviço não tenho a cesso a esse drive, só sendspace, a noite em casa, assim que der vejo.

Beleza, eu queria que puxasse os dados que preencho em PRODUTOS, mas ele não consegue,
olhe em um exemplo de como queria:

https://i.imgur.com/a/YbTIhm4

 
Postado : 22/11/2019 4:32 pm