Guru do Excel e Power BI

Enviado: **29 Mar 2018 às 13:13**

Bom dia gente!

No código abaixo, o objetivo é fazer, a partir do preenchimento dos txtbox do frm_consulta (combinados ou não), uma filtragem de dados na minha sheets ("dados") e levar estas informações para minha sheets ("estoque"), porém ao depurar meu cód. ele roda normalmente, mas pula a execução do loop indo diretamente para sheets ("estoque") ; gostaria que fossem levadas as informações filtradas para sheets ("estoque").

Código: Selecionar todos

Private Sub btn_pesquisar_Click()

Dim plan As Worksheet
Dim quantidade As Long
Dim lindados As Integer
Dim linestoque As Integer

Set plan = ThisWorkbook.Sheets("Estoque")
plan.Select

quantidade = plan.Cells(Rows.Count, 1).End(xlUp).ClearContents
'plan.Range("a2:k5000").ClearContents

lindados = 2
linestoque = 2

Do Until Sheets("dados").Cells(lindados, 1) = ""
    If Sheets("dados").Cells(lindados, 3) Like "*" & UCase(txt_empresa) & "*" And _
    Sheets("dados").Cells(lindados, 2) Like "*" & UCase(txt_periodo) & "*" And _
    Sheets("dados").Cells(lindados, 8) >= CCur(txt_mva) And Sheets("dados").Cells(lindados, 8) <= CCur(txt_mva1) Then
    
        plan.Cells(linestoque, 1) = Sheets("dados").Cells(lindados, 1)
        plan.Cells(linestoque, 2) = Sheets("dados").Cells(lindados, 2)
        plan.Cells(linestoque, 3) = Sheets("dados").Cells(lindados, 3)
        plan.Cells(linestoque, 4) = Sheets("dados").Cells(lindados, 4)
        plan.Cells(linestoque, 5) = Sheets("dados").Cells(lindados, 5)
        plan.Cells(linestoque, 6) = Sheets("dados").Cells(lindados, 6)
        plan.Cells(linestoque, 7) = Sheets("dados").Cells(lindados, 7)
        plan.Cells(linestoque, 8) = Sheets("dados").Cells(lindados, 8)
        plan.Cells(linestoque, 9) = Sheets("dados").Cells(lindados, 9)
        plan.Cells(linestoque, 10) = Sheets("dados").Cells(lindados, 10)
        plan.Cells(linestoque, 11) = Sheets("dados").Cells(lindados, 11)
    
        linestoque = linestoque + 1
    End If
    
        lindados = lindados + 1
        
Loop
End Sub

A quem puder ajudar sou-lhe muito obrigado pelo tempo e conhecimento!

Em anexo a planilha para ajudar a análise.

Enviado: **31 Mar 2018 às 16:57**

Veja se é o que deseja.

Amorim123, antes de ver seu outro tópico, você viu a solução deste? Estou perguntando porque pode ser que esta solução interfira na outra.

babdallas, obrigado pela atenção!

Já havia visto sim (desculpe por não marcar "RESOLVIDO" neste tópico), muito obrigado funciona perfeitamente; porém se o outro tópico for "Cálculo sem execução" acredito que não interfira, ainda, pois implementei uma rotina de cálculos no código do "btn_calcular" para a planilha não ficar muito grande...mas o cálculo não roda.

Guru do Excel e Power BI

Filtro Multicriterio não copiando dados

Filtro Multicriterio não copiando dados

Re: Filtro Multicriterio não copiando dados

Re: Filtro Multicriterio não copiando dados

Filtro Multicriterio não copiando dados