Este fórum está sendo desativado

[AMORIM123]

bom dia galera

Estou com uma nova questão:

Seguinte no cód. abaixo do "btn_pesquisar" do "frm_consulta" há a instrução para realizar uma filtragem na sheets("Dados") e em seguida limpar os dados da sheets("Estoque") e colar os dados filtrados da sheets("Dados") na sheets("Estoque"), porém está dando objeto não especificado...já verifiquei, mas acho que algo está me cegando... quem puder ajudar agradeço pela ajuda e tempo!


Acredito que tenha alguma coisa haver com fato das colunas Ei, COMPRAS e EF ESTAREM COM SINALIZAÇÃO NO CANTO SUPERIOR ESQUERDO:" O NÚMERO NESTA CÉLULA É COMO TEXTO OU PROCEDIDO COM APÓSTROFO"..estou tentando ajustar isso porém ainda nada

Código: Selecionar todos

Private Sub btn_pesquisar_Click()

Dim quantidade As Long
Dim lindados As Integer
Dim linestoque As Integer
Dim lngUltLin As Long

lindados = 2
linestoque = 2

With wshEstoque
    lngUltLin = .Cells(.Rows.Count, 1).End(xlUp).Row
    If lngUltLin >= linestoque Then .Range(.Cells(linestoque, 1), .Cells(lngUltLin, 11)).ClearContents
End With

With wshDados
    Do Until .Cells(lindados, 2).Value2 = ""
        If UCase(.Cells(lindados, 3).Value2) Like "*" & UCase(txt_empresa.Value) & "*" And _
        UCase(.Cells(lindados, 2).Value) Like "*" & UCase(txt_periodo.Value) & "*" And _
        .Cells(lindados, 8).Value >= CDbl(IIf(txt_mva.Value = "", -1E+20, txt_mva.Value)) And _
        .Cells(lindados, 8).Value <= CDbl(IIf(txt_mva1.Value = "", 1E+20, txt_mva1.Value)) Then
            For intCol = 1 To 11
                wshEstoque.Cells(linestoque, intCol) = .Cells(lindados, intCol)
            Next intCol
        
            linestoque = linestoque + 1
        End If
        
        lindados = lindados + 1
    Loop
    wshEstoque.Activate
End With
End Sub

em anexo a planilha para ajudar a compreender

[fcarlosc2018]

Boa-noite

Vc esqueceu o "2" do "txt_mva2"

[AMORIM123]

obrigado fcarlos2018, porém ainda não resolvido..meus dados ainda não são levados para sheets("estoque")

Acredito que tenha alguma coisa haver com o fato das colunas EI, COMPRAS e EF estarem com sinalização no canto superior esquerdo de erro estou tentando resolver isso mas até o momento nada!