Este fórum está sendo desativado

[wesleybonetti]

pessoal
Tenho uma planilha de cadastro de sucata, a planilha esta em anexo
Gostaria que apos de preencher os Userfrom clicar em gravar ele fosse para aba "relatorios" ate ai esta ok, junto com isso gostaria que aparecesse quando estivesse gravado também na listbox que esta abaixo dos formulários, esse é o primeiro ponto.
segundo: Tambem gostaria que no botão consultar abrisse um User forme de consulta, que poderia ser selecionado por conta e data, e pudesse ser impresso
preciso dessa força a planilha segue em anexo

[alexandrevba]

Bom dia!!

Reformule sua dúvida!

Eu seu Userforme, você tem LIstView e não uma Listbox.
Eu fiz a primeira parte de sua dúvida, pois a segunda eu não entendi, pois você só tem um UserForm, não há cabeçalho com conta e data.


Att

[wesleybonetti]

então amigo, é bem isso a primeira parte ficou show, a segunda seria a parte de consultar os registros gravados.
basicamente isso, quando clicar no botao "consultar" abrir um userforme de consulta, das informações que estão na aba Relatórios, onde e consiga filtrar pela Conta e data, é possivel ?

[alexandrevba]

Bom dia!!

Veja uma forma.

Código: Selecionar todos

Private Sub cmbPesquisar_Click()
    'With Worksheets("Relatorio").ListObjects("Relatorio").Range("A1:C10") 'vai usar o recurso Table?
    With Worksheets("Relat").Range("A1:I20")
        .AutoFilter Field:=4, Criteria1:=">=" & Format(Me.DtInc.Value, "dd/mm/yyyyy"), Operator:=xlAnd, _
        Criteria2:="<=" & Format(Me.DtFin.Value, "dd/mm/yyyyy")
    End With
End Sub

Dentro do botão que vai fazer a pesquisa...insira o código!

Att

[wesleybonetti]

Amigo nao funcionou

[alexandrevba]

Bom dia!!

o código que eu mandei foi um pequeno modelo, pois para adaptar como eu não tenho todas as informações necessárias, fica impossível fazer.

Mas o código da ListView que eu mandei seria a forma de como você vai exibir os dados no seu outro Userform.


Att