Boa noite!!!

Proeletrica, eu credito que a postagem do mauro, no tópico viewtopic.php?f=10&t=3646.

deve casar com o que você precisa, consegue adaptar?

Att

Bom dia alexandre
Como faço para acessar este tópico?

Bom dia!!!

Está no Sub-Fórum VBA --> Titulo- Filtro em vba (por Matheusgonzales).

Att

Permitam-me...

Seria esse?

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=3646

Boa tarde!!

Veja se te atende.

Que fique claro uma coisa click na mãozinha, assim como pra você a ajuda é preciosa, a mãozinha para mim vale ouro

Abraços

boa tarde alexandre
obrigado pelo retorno, mas não entendi como faço para fazer uma marcação futura e nem como saber se um cliente está marcada , digamos para daqui a 15dias. Vi que colocaste autofiltro em todas as colunas , qual é a ideia disto? E o botão para que serve?
Porque reduzir as informações no cadastro de clientes?

abraços

Boa tarde!!

Sua "Base" de dados não tinha a data.....

O botão chama um formulário, nele é feito uma busca por horários e cliente.

Segui o raciocínio baseado nos dados expostos.

Boa noite alexandre
Minha base de dados deverão ser as planilhas diárias, e a dat estão em A5.
Mas ainda não entendi como faço para fazer uma marcação futura e nem como saber se um cliente está marcada , digamos para daqui a 15dias. Vi que colocaste autofiltro em todas as colunas , qual é a ideia disto? Ao apertar o botão Formulario a macro não roda.

Option Explicit
Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Me.ComboBox3.SetFocus
End Sub
Private Sub ComboBox3_Change()
    Me.ComboBox3.Value = Format(Me.ComboBox3.Value, "hh:mm")
    Me.ComboBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
    Call Get_Stuff
End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub
Private Sub UserForm_Activate()
    Me.ComboBox2.ListRows = Me.ComboBox2.ListCount
    Me.ComboBox3.ListRows = Me.ComboBox3.ListCount
End Sub

Private Sub UserForm_Initialize()
    Dim Wks As Worksheet
    Dim c As Long
    Me.ComboBox1.RowSource = "=OFFSET(Clientes!$A$2,0,0,(COUNTA(Clientes!$A:$A)),1)"
    Me.ComboBox2.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"
    Me.ComboBox3.RowSource = "=OFFSET(Agendamento!$B$8,0,0,(COUNTA(Agendamento!$B:$B)),1)"

    With ListView1
        .Gridlines = True
        .[color=#FF0040]View = lvwReport[/color]
        .HideSelection = False
        .FullRowSelect = True
        .HotTracking = True
        .HoverSelection = False
    End With
    Set Wks = ActiveWorkbook.Sheets("Agendamento")
    For c = 2 To 7
        ListView1.ColumnHeaders.Add Text:=Wks.Cells(7, c).Text, Width:=100
        '        ComboBox1.AddItem Wks.Cells(6, C).Text
    Next c
End Sub

Porque reduzir as informações no cadastro de clientes?

Boa noite!!!

Quando preparei as rotinas não prestei atenção na parte data.

O código faz um filtro mas não coloquei nada para tirar a seleção da filtragem.

Veja uma postagem feita por mim.ao qual indiquei para você.
Essa parte Formata e depois

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "m/d/yyyy")
    Me.ComboBox3.SetFocus
End Sub
Private Sub ComboBox3_Change()
    Me.ComboBox3.Value = Format(Me.ComboBox3.Value, "m/d/yyyy")
    Me.ComboBox1.SetFocus
End Sub
Me.ComboBox1.RowSource = "=OFFSET(Plan2!$A$2,0,0,(COUNTA(Plan2!$A:$A)),1)"
    Me.ComboBox2.RowSource = "=OFFSET(Plan1!$A$7,0,0,(COUNTA(Plan1!$A:$A)),1)"
    Me.ComboBox3.RowSource = "=OFFSET(Plan1!$A$7,0,0,(COUNTA(Plan1!$A:$A)),1)"

Você pode adaptar.

Veja a postagem que vai entender melhor, procure ver e entender o sentido das rotinas.

Att

Boa noite alexandre
Não estou conseguindo adaptar tua macro a minha necessidade. Será possível tú me dar uma luz?
abraço

Boa noite!!
Vamos tentar porém, preciso de detalhes.

O que você quer, usar a planilha (Guia Agendamento), para fazer os agendamentos, e nela mesma consultar quem e quando está agendado?

Quais o critérios, somente data ?

Diga tudo, como se fosse você que estivesse vendo toda a ação do Código VBA. se é que quer somente por macros.

Att

boa noite alexandre
O que eu quero é, usar a planilha (Guia Agendamento), para fazer os agendamentos (diários e futuros), e nela mesma consultar quem e quando está agendado.
Preciso navegar entre as planilhas para poder fazer o agendamento, certo? Então, para eu poder ir de uma planilha datada digamos com a data de hoje, para uma planilha com data de 10 de abril, para marcar um horário, penso que devo ter acesso a um calendário, vou ao mes Abril , clico no dia 10 e me abre uma planilha para que eu possa marcar o horário para o cliente.
Caso não tenha ficado claro o que preciso, favor solicitar esclarecimento, ok

Os critérios para consulta seria assim:
1 - eu coloco o nome do cliente em um box, e seja mostrada o dia que o mesmo está agendado.( caso o cliente esqueceu o dia ou a hora que está agendado).
2 - Eu coloco a data futura em um box, e seja mostrada se está disponivel ou ocupada.

abraços

Boa noite!!
Tá querendo me deixa louco né???
Aqui você me confirma que vai usar essa guia para consulta e como base de dados.

O que eu quero é, usar a planilha (Guia Agendamento), para fazer os agendamentos (diários e futuros), e nela mesma consultar quem e quando está agendado.

Loga abaixo revoga...

Preciso navegar entre as planilhas para poder fazer o agendamento, certo?

Oque devo pensar...

alexandre
Tú tens razão, ficou meio confuso.Na verdade o que eu quero é, usar a planilha (Guia Agendamento), para fazer os agendamentos (diários e futuros), e nela mesma consultar quem e quando está agendado.
desculpa a trapalhada.
abraço