Notifications
Clear all

Busca de dados de veículo

8 Posts
2 Usuários
0 Reactions
946 Visualizações
(@santa-ars)
Posts: 3
New Member
Topic starter
 

Fazer uma macro (e tem que ser por macro mesmo) para que busque alguns dados da planilha AGENDA. Porém para que os dados sejam buscados na planilha ROTEIRO VEÍCULO, é necessário que o usuário coloque os dados de filtro. Os dados são: MÊS / VEÍCULO / PERÍODO (dia inicial e dia final). Assim, após a digitação dos dados a macro fará com que busque os nomes dos clientes que se enquadram no filtro determinado.

Segue a seguir o caminho que a planilha está postada. Fique à vontade para alterar.

sendspace.com/file/6w611i

 
Postado : 28/04/2013 8:24 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Quando postar a mesma dúvida em fóruns diferentes indique a postagem cruzada!!
http://profwillianexcel.forumeiros.com/ ... de-veiculo

Verifique seu link, está com erro!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/04/2013 8:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Talvez não tenha recebido auxilio (no post salientado pelo colega Alexandre) ainda, pela forma do "pedido"--> Fazer; dá a impressão de imposição, de obrigação.
Sites como o nosso e outros (forumeiros.com; thomasvasquez/excelbr etc.) se destacam pelo VOLUNTARIADO, onde pessoas dedicam parte de seu tempo livre para dividir conhecimentos e auxiliar, na medida do possivel a que precise.
Porem:
O link de seu arquivo está "off". Experimente utilizar a pesquisa do forum sobre filtro avançado, creio que se encaixa na descrição de sua necessidade.
Veja por exemplo: viewtopic.php?f=10&t=3681 e viewtopic.php?t=6721&p=35491
Experimente; tente adaptar a sua rela necessidade. Assim se tiver dificuldade retorne com o trecho onde ficou duvida.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/04/2013 11:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa arde!!

Olá santa.ars, seja pelo que for sua reclamação, me perdoe, as vezes é muita coisa (tenho cadastro em dezenas de fóruns), e não acaba por ai, faço outras coisas não referente ao office (excel).

Tem momentos e o tempo e a demanda (ajuda voluntária), se torna grande e impraticável!!!

Seja paciente até que o pessoal possa te responder!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/04/2013 12:47 pm
(@santa-ars)
Posts: 3
New Member
Topic starter
 

Refiz o link de busca do arquivo modelo que preciso da fórmula. Coloquei o arquivo no 4shared. Peço desculpas se não coloquei o texto inicial de forma correta, não tive a percepção de que eu poderia estar errado. De qualquer forma, coloco o texto (alterado) explicando minha necessidade e dúvida. Agradeço imensamente a ajuda.

Por favor, preciso de uma macro (e tem que ser por macro mesmo) para que busque alguns dados da planilha AGENDA. Porém para que os dados sejam buscados na planilha ROTEIRO VEÍCULO, é necessário que o usuário coloque os dados de filtro. Os dados são: MÊS / VEÍCULO / PERÍODO (dia inicial e dia final). Assim, após a digitação dos dados a macro fará com que busque os nomes dos clientes que se enquadram no filtro determinado.

Segue a seguir o caminho que a planilha está postada. Fique à vontade para alterar.

4shared.com/file/ogbOb4il/Relao_de_clientes_por_veculo.html?

 
Postado : 29/04/2013 3:54 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente o rotina abaxio:

Sub Resumir()
Dim nCol As Integer, lRow As Integer, y As Integer, x As Integer
Sheets("ROTEIRO VEÍCULO").Range("A8:A32").ClearContents
If Sheets("ROTEIRO VEÍCULO").Range("B3").Value <> "" Then
    nCol = Application.Match(UCase(Sheets("ROTEIRO VEÍCULO").Range("B3").Value), Sheets("AGENDA").Range("A1:BI1"), 0)
Else
    MsgBox "Favor informar o Mês desejado"
    Exit Sub
End If

With Sheets("AGENDA")
lRow = .Cells(Cells.Rows.Count, nCol).End(xlUp).Row
x = 8
    For y = 3 To lRow
        If .Cells(y, nCol + 3) = Sheets("ROTEIRO VEÍCULO").Range("B2").Value And _
            .Cells(y, nCol + 1) >= Sheets("ROTEIRO VEÍCULO").Range("B5").Value And _
            .Cells(y, nCol + 1) <= Sheets("ROTEIRO VEÍCULO").Range("B6").Value Then
            Sheets("ROTEIRO VEÍCULO").Range("A" & x) = .Cells(y, nCol).Value
            x = x + 1
        End If
    Next
End With
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/04/2013 10:40 am
(@santa-ars)
Posts: 3
New Member
Topic starter
 

O código funcionou. Só que para executar a macro, tenho que clicar na opção MACROS e escolher a macro e clicar em EXECUTAR.
Gostaria que a macro fosse executada automaticamente, ou seja se algum dos campos que o usuário digitou fosse alterado.
Podem me ajudar?

Por gentileza, me ajudem. Já recebi um auxílio na macro que existe, mas só que não consigo fazer com que a busca sirva também para o nome do veículo.
A dúvida é a seguinte, preciso trazer o conteúdo da célula VEÍCULO para a programação através da macro já existente. Inclusive a macro só roda se o nome do mês for alterado.
Na planilha AGENDA já tem campo para ser colocado o veículo. O que quero é fazer com que o conteúdo da célula (de coluna Veículo) apareça na planilha PROGRAMAÇÃO. Já tentei várias macros, alterei a que está existente, já postei em um site fórum e até agora não consegui nada.

Veja a planilha postada no endereço, fique à vontade para alterar, mas por favor, me ajude:

4shared.com/file/I1Tb4C6y/Busca_nome_dos_veculos.html?

 
Postado : 01/05/2013 8:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

O código funcionou. Só que para executar a macro, tenho que clicar na opção MACROS e escolher a macro e clicar em EXECUTAR.
Gostaria que a macro fosse executada automaticamente, ou seja se algum dos campos que o usuário digitou fosse alterado.
Podem me ajudar?

Talvez...

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then '<--Mude a célula ou intervalo para o qual deseja.
    Call Resumir
End If

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/05/2013 8:22 am