Este fórum está sendo desativado

[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

[JCabral]

Veja se resolve, é preciso ter em atenção que é Case Sensitivo, ou seja "C" é diferente de "c" e "Agosto" é diferente de "AGOSTO"

[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"

[JCabral]

Se disponibilizar a sua planilha posso tentar adaptar

[osvaldomp]

Segue uma alternativa.

Código: Selecionar todos

Sub 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

[JCabral]

Osvaldo

Excelente solução

[albinosergio]

Consegui senhores, muuuito obrigado or mais essa ajuda