Página 1 de 1
VBA- buscar do BDados com base em 3 referências
Enviado: 26 Set 2019 às 21:53
por albinosergio
Senhores,
Preciso por favor, de um comando de busca em VBA (ou função) que me busque da planilha BDados as informações relacionadas as referências: "Grupo, mês e anos" que forem selecionadas.
Estou anexando um arquivo modelo para melhor entendimento
Agradeço antecipadamente suas colaborações
Re: VBA- buscar do BDados com base em 3 referências
Enviado: 26 Set 2019 às 22:57
por JCabral
Veja se resolve, é preciso ter em atenção que é Case Sensitivo, ou seja "C" é diferente de "c" e "Agosto" é diferente de "AGOSTO"
VBA- buscar do BDados com base em 3 referências
Enviado: 28 Set 2019 às 14:18
por albinosergio
valeuJCabral,
obrigado pelo retorno, é exatamente isso, só não consegui apicar na minha planilha, deu erro " Erro de compilação" "O tipo definido pelo usuario não foi definido"
VBA- buscar do BDados com base em 3 referências
Enviado: 28 Set 2019 às 20:20
por JCabral
Se disponibilizar a sua planilha posso tentar adaptar
Re: VBA- buscar do BDados com base em 3 referências
Enviado: 29 Set 2019 às 11:51
por osvaldomp
Segue uma alternativa.
Código: Selecionar todosSub BuscaDados()
If Application.CountA([B3], [D3], [F3]) < 3 Then Exit Sub
If [B6] <> "" Then Range("B6:H" & Cells(Rows.Count, 2).End(3).Row).Value = ""
With Sheets("BDADOS")
.AutoFilterMode = False
.[A1:I1].AutoFilter 3, [B3]
.[A1:I1].AutoFilter 4, [D3]
.[A1:I1].AutoFilter 5, [F3]
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
.Range("B2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy [B6]
.Range("D2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy [C6]
End If
.AutoFilterMode = False
End With
End Sub
VBA- buscar do BDados com base em 3 referências
Enviado: 29 Set 2019 às 17:47
por JCabral
Osvaldo
Excelente solução
Re: VBA- buscar do BDados com base em 3 referências
Enviado: 03 Out 2019 às 16:21
por albinosergio
Consegui senhores, muuuito obrigado or mais essa ajuda