Este fórum está sendo desativado

[AMORIM123]

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.

[babdallas]

Veja se é o que deseja.

[babdallas]

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.

[AMORIM123]

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.