Jump to content
Fórum Script Brasil
  • 0

Buscar valor na celula, pesquisar este valor na planilha.


Question

Olá, sou novo em VBA, muito leigo em tudo, e estou precisando de ajuda no momento,  preciso de uma função no qual quando a pessoa digitar uma data no form, fará uma busca na planilha somente com o digito do dia, ex: 22-03-2021, irá pesquisar somente pelo dia 22 dentro da planilha.
E quando achar o dia 22 na planilha, irá selecionar a coluna correspondente ao dia  "22" (que foi pesquisado) e pesquisar por uma palavra especifica no meu caso "Plantão", quando achar essa palavra dentro da coluna do dia pesquisado "22", buscar na coluna "A" os nomes referente a linha da coluna pesquisada por "Plantão" (dia 22), ( e colocar esses nomes em TexTbox que irei especificar no form. ex: dia 22 pesquisado caiu na coluna "F" que possui 6 células, sendo 4 plantão e 2 folga, na mesma linha que esta escrito plantão, na coluna "A" tem os nomes das pessoas que no caso está de plantão.

 

Se ajudar a entender melhor, estou criando uma escala 12x36, com funcionários do turno da noite e do dia, 06:00 às 18:00 e 18:00 ás 06:00, essa pesquisa irá informar uma previsão de quem estará de plantão no dia e mês pesquisado.

plantao.jpg

4 minutos atrás, mariojaa disse:

lembrando pessoal, que a pesquisa da data é feita no userform clicando no botão de OK.

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Boa noite @mariojaa

Seria algo dessa maneira?

image.png.152636d262a88ddf947696eddfae319f.png

Public Sub cPesquisa(Data As String)
Const LDATAS As Long = 2
Const CNOMES As Long = 1
Const PTEXTO As String = "Y"
If Data = "" Then Exit Sub
Dim convData As Long
convData = Day(CDate(Data))

Dim uColDatas As Long
Dim c As Long

uColDatas = Cells(LDATAS, Columns.Count).End(xlToLeft).Column
uLinUsuar = Cells(Rows.Count, CNOMES).End(xlUp).Row

fUsuarios.ListBox1.Clear


For c = 2 To uColDatas
    If Cells(LDATAS, c).Value = convData Then
        For l = 3 To uLinUsuar
            If Cells(l, c).Value = PTEXTO Then
                fUsuarios.ListBox1.AddItem
                fUsuarios.ListBox1.List(fUsuarios.ListBox1.ListCount - 1, 0) = Cells(l, CNOMES).Value
                'Debug.Print Cells(l, CNOMES).Value
            End If
        Next l
    End If
Next c
End Sub

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149150
    • Total Posts
      645417
×
×
  • Create New...